Si të krijoni dhe shtoni rrëshqitje në prezantimet në PowerPoint me VBA?

Disa ditë më parë, një lexues pyeti se ekziston një mënyrë për të automatizuar krijimin e prezantimeve në PowerPoint nga e para dhe më pas të shtoni shpejt rrëshqitje në atë prezantim ekzistues. Unë mendoj se ai skenar mund të jetë shumë në listën e makrove më të dobishme të PowerPoint. 

Siç kemi treguar në të kaluarën, PowerPoint nuk përfshin një regjistrues makro (që është ndryshe nga Excel dhe Word, të cilët të dy kanë ndërtuar regjistrues për Macro). Prandaj, na ka mbetur Visual Basic i vjetër për aplikim që mund ta përdorim për të krijuar makro të thjeshta për të automatizuar PowerPoint. Ka alternativa të tjera për PowerPoint Automation, por ato shkojnë përtej qëllimit të këtij tutoriali.

Në tutorialin e shkurtër të sotëm, ne do të shqyrtojmë tre raste të ndryshme përdorimi:

1. Krijimi i ri i prezantimit (bosh ose duke përdorur një shabllon)
2. Shtoni rrëshqitje në një prezantim ekzistues.
3. Një përzierje e dy rasteve të lartpërmendura (Krijo nga e para dhe shtimi i rrëshqitjeve)

Le të fillojmë.

Shikoni Shiritin. Nëse nuk e shihni hyrjen "Zhvilluesi" në meny, përpara se të filloni kodimin, do t'ju duhet të aktivizoni skedën e zhvilluesit.

Pasi ta bëni të dukshme menynë e Zhvilluesit Ribbon tuaj, shkoni përpara dhe shtypni Developer , më pas shtypni butonin Visual Basic (ose thjesht shkoni përpara dhe shtypni Alt+F11) për të hapur Visual Basic IDE.

VBA për të krijuar prezantim në PowerPoint

1. Në Redaktuesin VB, klikoni me të djathtën në VBAProject dhe shtypni Insert .
2. Zgjidhni Modulin .
3. Ngjitni kodin e mëposhtëm në modulin e krijuar rishtazi.

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

1. Shtypni File dhe më pas Save.
2. Për të ekzekutuar kodin tuaj, shtypni Run dhe më pas zgjidhni Run Sub/User Form (ose thjesht F5).
3. Mbyllni redaktorin VB.

VBA për të futur rrëshqitje

1. Në Redaktuesin VB, klikoni me të djathtën në VBAProject dhe shtypni Insert.
2. Zgjidhni Modulin
3. Ngjitni kodin e mëposhtëm në modulin e krijuar rishtazi.

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. Shtypni File dhe më pas Save.
2. Për të ekzekutuar kodin tuaj, shtypni Run dhe më pas zgjidhni Run Sub/User Form (ose thjesht F5).
3. Mbyllni redaktorin VB.

Makro për të konfiguruar një prezantim të ri dhe për të shtuar rrëshqitje

Kjo do të ishte thjesht përzierja e dy pjesëve të përshkruara më sipër.

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

Më pas, mund të shikoni tutorialin tonë për krijimin e formave në mënyrë programore në PowerPoint me VBA

Gjeneroni një prezantim në PowerPoint nga Excel

Rasti i fundit është që ju dëshironi të krijoni një prezantim PowerPoint direkt nga një spreadsheet Excel. Ju mund të përdorni të njëjtën teknikë nga Word dhe aplikacione të tjera të Microsoft 365.

• Lidhni Spreadsheet me Modelin e të Dhënave të PowerPoint (nga Tools>>References)
• Futni një buton në tabelën tuaj Excel (Zhvilluesi >> Futni dhe më pas zgjidhni një buton komandues).
• Fusni kodin VBA më poshtë në Projektin tuaj të Fletëllogaritjes VBA (drejtpërsëdrejti në Fletë ose në një Modul VBA)
• Ndryshoni skriptin sipas nevojës.
• Vraponi (goditni F5) dhe provoni rezultatin.

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

Shijoje 🙂