Ответ: 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...