Ответ: drop_shadow to bitmap
Sub ConvertAllDropShadowToBitmap()
Dim sh As Shape, pg As Page
For Each pg In ActiveDocument.Pages
pg.Activate
For Each sh In pg.Shapes.FindShapes(Type:=cdrDropShadowGroupShape)
sh.ConvertToBitmapEx cdrCMYKColorImage, False, True, 300...