Как редактировать / разгруппировать вставки EMF в PPT, используя VBA? - PullRequest
Новая
       0

Как редактировать / разгруппировать вставки EMF в PPT, используя VBA?

1 голос
/ 08 июля 2011

это Мартин из Берлина (Германия - прошу прощения за мой неправильный английский) ...

Я пытаюсь редактировать вставки EMF в PPT, используя VBA. Вставки EMF - это таблицы Excel, и я использовал ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial DataType: = 3 (расширенный метафайл)

Без VBA это просто: просто щелкните правой кнопкой мыши изображение и «разгруппируйте» (2 раза).

В VBA я пробовал следующее: 1. Выбор правильной формы (работает), затем ActiveWindow.Selection.ShapeRange.Ungroup.Select

Это происходит при ошибке: "... невозможно разгруппировать ".

В другой теме было дано «решение»: запись макроса -> невозможна в PPT 2007! Когда я записываю макрос в PPT 2003, он говорит то же самое: ActiveWindow.Selection.ShapeRange.Ungroup.Select но это не работает.

Похоже, что перед преобразованием изображения emf в «офисный формат» должен быть один шаг (если вы делаете это без VBA после нажатия «ungroup», появляется сообщение, спрашивающее, хотите ли вы преобразовать графику в « офисный формат ").

Есть идеи, что делать, если эта группа не работает с VBA?

1 Ответ

0 голосов
/ 19 июля 2011

Это работает здесь: 

Sub UngroupPastedChart()
Dim oShRange As ShapeRange
Dim oSh As Shape
Set oShRange = ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial(ppPasteEnhancedMetafile)
Set oShRange = oShRange.Ungroup
Set oShRange = oShRange.Ungroup
End Sub

и добавьте oShRange.Select, если вы хотите, чтобы несгруппированные фигуры были выбраны в конце.

...