Обрезать изображение (расширенный метафайл) в PPT 2007

Question

Может кто-нибудь помочь мне с проблемой в PPT 2007.

У меня есть изображение (диаграмма из Excel, вставленная как «Изображение (расширенный метафайл)») на слайде. Мне просто нужно обрезать это изображение, чтобы оно поместилось на слайде. Я попробовал следующий код, но безрезультатно:

1

С ActivePresentation.Slides (1) .Shapes (1)

    .PictureFormat.CropLeft = 10

    .PictureFormat.CropTop = 10

    .PictureFormat.CropRight = 10

    .PictureFormat.CropBottom = 10

End With

'Runtime error "ActiveX Component can't create object

2

ActiveWindow.Selection.ShapeRange.PictureFormat.CropRight = 10

ActiveWindow.Selection.ShapeRange.PictureFormat.CropLeft = 10

ActiveWindow.Selection.ShapeRange.PictureFormat.CropBottom = 10

ActiveWindow.Selection.ShapeRange.PictureFormat.CropTop = 10

'Object doesnt support this property or method

Любое предложение приветствуется.

Answer 1

Работает с ЭДС, вставленными из Excel:

  Dim oSh as Shape
  Set oSh = ActiveWindow.Selection.ShapeRange(1)
  ' Note:  ShapeRange(1), not just ShapeRange
  '  That's the problem with your second example

  With oSh
     .CropLeft = 10
     ' etc
  End With

Тот факт, что он кричит об объекте activex в первом примере, заставляет меня задуматься, действительно ли первая фигура является EMF, а не объектом ActiveX.