Как «разгруппировать» изображение в PowerPoint с помощью VBA

Question

У меня есть файл PowerPoint со слайдом с изображением (файл wmf / emp), и я хочу «разгруппировать» элементы изображения в нем с помощью VBA.

Мне нужно дважды попросить PowerPoint сделать это, но тогда это произойдет.

Можно ли это сделать с помощью VBA? и если да, то как?

Answer 1

Это довольно просто - из файла справки:

Этот пример разгруппирует все сгруппированные формирует и разбирает любые картинки или OLE-объекты в myDocument.

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    s.Ungroup
Next

Вам может потребоваться выполнить некоторую проверку ошибок, если она не может быть разгруппирована, например JPG, и некоторую проверку типов (т.е. If s.Type = msoPicture...)

Answer 2

Не прямой ответ на вопрос, но ...

Единственный лучший способ выяснить, как автоматизировать офисные приложения с VBA, - это записать макрос и затем посмотреть на код, который получаетвыплюнуть .