Покажите, как вы обрезаете -- код, вроде там все просто:
Dim s1 As Shape
Set s1 = ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(2), ActiveLayer.Shapes(1)).ConvertToBitmapEx(4, False, True, 0, 1, True, False, 95)
Dim s2 As Shape
Set s2 = ActiveLayer.Shapes(1).Trim(s1...