Как да създавате и добавяте слайдове към презентации на PowerPoint с VBA?

Преди няколко дни читател попита дали има начин да се автоматизира създаването на PowerPoint презентации от нулата и след това бързо да се добавят слайдове към тази съществуваща презентация. Мисля, че този скрипт може да е много в списъка на най-полезните макроси на PowerPoint. 

Както посочихме в миналото, PowerPoint не включва записващо устройство за макроси (това е за разлика от Excel и Word, които и двете имат вградени рекордери за макроси). Следователно ни остава добрият стар Visual Basic за приложения, който можем да използваме за създаване на прости макроси за автоматизиране на PowerPoint. Има и други алтернативи за PowerPoint Automation, но те излизат извън обхвата на този урок.

В днешния кратък урок ще разгледаме три различни случая на употреба:

1. Създаване на нова презентация (празно или с помощта на шаблон)
2. Добавете слайдове към съществуваща презентация.
3. Комбинация от двата по-горе споменати случая (Създаване от нулата и добавяне на слайдове)

Да започваме.

Вижте лентата. Ако не виждате записа за разработчик в менюто, преди да започнете кодирането, ще трябва да активирате раздела за програмисти.

След като направите менюто за програмисти видимо във вашата лента, продължете и натиснете Developer , след което натиснете бутона Visual Basic (или просто продължете напред и натиснете Alt+F11), за да отворите Visual Basic IDE.

VBA за създаване на презентация на PowerPoint

1. Във VB Editor щракнете с десния бутон върху VBAProject и натиснете Insert .
2. Изберете Модул .
3. Поставете следния код в новосъздадения модул.

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

1. Натиснете File и след това Save.
2. За да стартирате кода си, натиснете Run и след това изберете Run Sub/User Form (или просто F5).
3. Затворете VB редактора.

VBA за вмъкване на слайдове

1. Във VB Editor щракнете с десния бутон върху VBAProject и натиснете Insert.
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. Натиснете File и след това Save.
2. За да стартирате кода си, натиснете Run и след това изберете Run Sub/User Form (или просто 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

Насладете се 🙂