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

Question

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

Answer 1

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

В окне VBA выберите Инструменты | Ссылки
Ищите Библиотека объектов Microsoft Powerpoint 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

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