Редактирование встроенного PowerPoint из Excel VBA
-
02-07-2019 - |
Вопрос
У меня есть встроенная презентация PowerPoint в рабочей книге Excel.Как я могу отредактировать это (открыть, скопировать слайды, добавить данные на слайды, закрыть) с помощью VBA?
Решение
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
Надеюсь, это поможет!