Редактирование встроенной PowerPoint из Excel VBA

Question

У меня есть встроенная презентация PowerPoint в книге Excel. Как это изменить (открыть, скопировать слайды, добавить данные в слайды, закрыть) с помощью VBA?

Answer 1

1. Добавьте ссылку на объектную модель PowerPoint для приложения VBA

Из окна VBA, выберите Tools | Ссылки
Посмотрите на Microsoft Powerpoint Library 12.0 объектов и проверить его

2. Выбрать и активировать объект презентации PowerPoint

ActiveSheet.Shapes("Object 1").Select 
Selection.Verb Verb:=xlOpen 

Примечание: этот код предполагает, что объект PowerPoint называется Объект 1 (посмотрите в верхнем левом углу, чтобы увидеть, что он действительно назвал) и что он находится на активном листе.

3. Получить ссылку на объект презентации

Dim p As PowerPoint.Presentation 
Set p = Selection.Object 

4. Манипулирование это

Все методы и свойства объекта презентации доступны. Вот пример добавления слайда:

p.Slides.Add 1, ppLayoutBlank 

5. Снять выделение его

Самый простой способ, это просто выбрать ячейку.

[a1].Select 

Надеюсь, что это поможет!