1. Добавьте ссылку на объектную модель PowerPoint в приложение VBA
В окне VBA выберите Инструменты | Ссылки
Найдите Библиотека объектов Microsoft Powerpoint 12.0 и отметьте ее
2. Выберите и активируйте объект презентации PowerPoint
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen
Примечание: этот код предполагает, что объект PowerPoint имеет имя Объект 1 (посмотрите в верхнем левом углу, чтобы увидеть, как он на самом деле назван) и что он находится на активном листе.
3. Получить ссылку на объект Presentation
Dim p As PowerPoint.Presentation
Set p = Selection.Object
4. Манипулировать им
Все методы и свойства объекта презентации доступны для вас. Вот пример добавления слайда:
p.Slides.Add 1, ppLayoutBlank
5. Отмените выбор
Самый простой способ - просто выбрать ячейку.
[a1].Select
Надеюсь, это поможет!