Како креирати и додати слајдове у ПоверПоинт презентације помоћу ВБА?

Пре неколико дана, читалац је питао да постоји начин да се аутоматизује креирање ПоверПоинт презентација од нуле, а затим брзо додају слајдови у ту постојећу презентацију. Мислио сам да би та скрипта могла бити високо на листи најкориснијих ПоверПоинт макроа. 

Као што смо раније навели, ПоверПоинт не укључује снимач макроа (то је за разлику од Екцел-а и Ворд-а, који имају уграђене снимаче за макро). Због тога нам остаје добар стари Висуал Басиц за апликације који можемо користити за креирање једноставних макроа за аутоматизацију ПоверПоинт-а. Постоје додатне алтернативе за ПоверПоинт аутоматизацију, али оне превазилазе оквире овог упутства.

У данашњем кратком водичу ћемо проћи кроз три различита случаја употребе:

1. Креирање нове презентације (празно или помоћу шаблона)
2. Додајте слајдове у постојећу презентацију.
3. Комбинација два горе поменута случаја (Креирај од нуле и додавање слајдова)

Хајде да почнемо.

Погледај траку. Ако не видите унос Програмер у менију, пре него што започнете кодирање, мораћете да омогућите картицу програмер.

Након што учините да мени за програмере буде видљив на вашој траци, наставите и притисните Девелопер , а затим притисните дугме Висуал Басиц (или једноставно идите напред и притисните Алт+Ф11) да бисте отворили Висуал Басиц ИДЕ.

ВБА за креирање ПоверПоинт презентације

1. У ВБ Едитору кликните десним тастером миша на ВБАПројецт и притисните Убаци .
2. Изаберите Модул .
3. Налепите следећи код у ново креирани модул.

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

1. Притисните Датотека, а затим Сачувај.
2. Да бисте покренули свој код, притисните Покрени, а затим изаберите Покрени под/кориснички образац (или једноставно Ф5).
3. Затворите ВБ едитор.

ВБА за уметање слајдова

1. У ВБ Едитору кликните десним тастером миша на ВБАПројецт и притисните Убаци.
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. Да бисте покренули свој код, притисните Покрени, а затим изаберите Покрени под/кориснички образац (или једноставно Ф5).
3. Затворите ВБ едитор.

Макро за подешавање нове презентације и додавање слајдова

То би било само мешање два горе наведена исечка.

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

Затим бисте могли да погледате наш водич о програмском креирању облика у ПоверПоинт -у помоћу ВБА

Генеришите ПоверПоинт презентацију из Екцел-а

Последњи случај је да бисте желели да креирате ПоверПоинт презентацију директно из Екцел табеле. Можете користити исту технику из Ворд-а и других Мицрософт 365 апликација.

• Повежите табелу са ПоверПоинт моделом података (из Алатке>>Референце)
• Уметните дугме у своју Екцел табелу (Програмер >> Уметни, а затим изаберите командно дугме).
• Уметните ВБА код испод у свој ВБА пројекат прорачунске табеле (директно у табелу или у ВБА модул)
• Измените скрипту по потреби.
• Покрените (притисните Ф5) и тестирајте резултат.

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

Уживајте 🙂