Як створювати та додавати слайди до презентацій PowerPoint за допомогою VBA?

Кілька днів тому читач запитав, чи існує спосіб автоматизувати створення презентацій PowerPoint з нуля, а потім швидко додавати слайди до наявної презентації. Я подумав, що цей сценарій може бути високо в списку найкорисніших макросів PowerPoint. 

Як ми вже вказували в минулому, PowerPoint не містить записувача макросів (на відміну від Excel і Word, які мають вбудовані записи для макросів). Таким чином, у нас залишився старий добрий Visual Basic для додатків, який ми можемо використовувати для створення простих макросів для автоматизації PowerPoint. Існують інші альтернативи PowerPoint Automation, але вони виходять за рамки цього підручника.

У сьогоднішньому короткому посібнику ми розглянемо три різні варіанти використання:

1. Створення нової презентації (порожня або за допомогою шаблону)
2. Додайте слайди до наявної презентації.
3. Поєднання двох вищезгаданих випадків (Створення з нуля та додавання слайдів)

Давайте розпочнемо.

Подивіться на стрічку. Якщо ви не бачите в меню пункт Розробник, перед початком кодування вам потрібно буде ввімкнути вкладку розробника.

Після того, як ви зробите меню розробника видимим на своїй стрічці, натисніть кнопку Розробник , потім натисніть кнопку Visual Basic (або просто натисніть Alt+F11), щоб відкрити Visual Basic IDE.

VBA для створення презентації PowerPoint

1. У редакторі VB клацніть правою кнопкою миші на VBAProject і натисніть Вставити .
2. Виберіть модуль .
3. Вставте наступний код у новий створений модуль.

Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub

1. Натисніть Файл, а потім Зберегти.
2. Щоб запустити свій код, натисніть «Виконати», а потім виберіть «Запустити підпорядковану форму/форму користувача» (або просто F5).
3. Закрийте редактор VB.

VBA для вставки слайдів

1. У редакторі VB клацніть правою кнопкою миші на VBAProject і натисніть Вставити.
2. Виберіть модуль
3. Вставте наступний код у новий створений модуль.

Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub

1. Натисніть Файл, а потім Зберегти.
2. Щоб запустити свій код, натисніть «Виконати», а потім виберіть «Запустити підпорядковану форму/форму користувача» (або просто F5).
3. Закрийте редактор VB.

Макрос для налаштування нової презентації та додавання слайдів

Це було б просто змішуванням двох фрагментів, описаних вище.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

Далі ви можете ознайомитися з нашим підручником із програмного створення фігур у PowerPoint за допомогою VBA

Створіть презентацію PowerPoint з Excel

Останній випадок полягає в тому, що ви хочете створити презентацію PowerPoint прямо з електронної таблиці Excel. Ви можете використовувати ту саму техніку з Word та інших програм Microsoft 365.

• Зв’яжіть електронну таблицю з моделлю даних PowerPoint (з Інструменти>>Посилання)
• Вставте кнопку в електронну таблицю Excel (розробник >> Вставити, а потім виберіть командну кнопку).
• Вставте наведений нижче код VBA у свій проект електронної таблиці VBA (безпосередньо в аркуш або в модуль VBA)
• Змініть сценарій відповідно до потреб.
• Виконайте (натисніть F5) і перевірте результат.

Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

Насолоджуйтесь 🙂