Kako ustvariti in dodati diapozitive v PowerPointove predstavitve z VBA?

Pred nekaj dnevi je bralec vprašal, ali obstaja način za avtomatizirano ustvarjanje PowerPointovih predstavitev iz nič in nato hitro dodajanje diapozitivov v obstoječo predstavitev. Mislim, da je ta skript lahko zelo na seznamu najbolj uporabnih PowerPointovih makrov. 

Kot smo navedli v preteklosti, PowerPoint ne vključuje snemalnika makrov (to je za razliko od Excela in Worda, ki imata oba vgrajena snemalnika za makro). Zato nam ostane dober stari Visual Basic za aplikacije, ki ga lahko uporabimo za ustvarjanje preprostih makrov za avtomatizacijo PowerPointa. Obstajajo še druge alternative za PowerPoint Automation, vendar te presegajo obseg te vadnice.

V današnji kratki vadnici bomo pregledali tri različne primere uporabe:

1. Ustvarjanje nove predstavitve (prazno ali s predlogo)
2. Dodajte diapozitive obstoječi predstavitvi.
3. Mešanica dveh zgoraj omenjenih primerov (Ustvari iz nič in dodajanje diapozitivov)

Začnimo.

Poglejte trak. Če v meniju ne vidite vnosa Razvijalec, morate pred začetkom kodiranja omogočiti zavihek razvijalec.

Ko naredite meni za razvijalce viden na vašem traku, pojdite naprej in pritisnite Developer , nato pritisnite gumb Visual Basic (ali preprosto pojdite naprej in pritisnite Alt+F11), da odprete Visual Basic IDE.

VBA za ustvarjanje PowerPointove predstavitve

1. V urejevalniku VB z desno tipko miške kliknite VBAProject in pritisnite Vstavi .
2. Izberite Modul .
3. Prilepite naslednjo kodo v novoustvarjeni modul.

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

1. Pritisnite Datoteka in nato Shrani.
2. Če želite zagnati svojo kodo, pritisnite Zaženi in nato izberite Zaženi pod/uporabniški obrazec (ali preprosto F5).
3. Zaprite urejevalnik VB.

VBA za vstavljanje diapozitivov

1. V urejevalniku VB z desno tipko miške kliknite VBAProject in pritisnite Vstavi.
2. Izberite Modul
3. Prilepite naslednjo kodo v novoustvarjeni modul.

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. Pritisnite Datoteka in nato Shrani.
2. Če želite zagnati svojo kodo, pritisnite Zaženi in nato izberite Zaženi pod/uporabniški obrazec (ali preprosto F5).
3. Zaprite urejevalnik VB.

Makro za nastavitev nove predstavitve in dodajanje diapozitivov

To bi bilo samo mešanje dveh zgoraj opisanih delčkov.

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

Nato si lahko ogledate našo vadnico o programskem ustvarjanju oblik v PowerPointu z VBA

Ustvarite PowerPointovo predstavitev iz Excela

Zadnji primer je, da želite ustvariti PowerPointovo predstavitev neposredno iz Excelove preglednice. Enako tehniko lahko uporabite iz Worda in drugih aplikacij Microsoft 365.

• Povežite preglednico s podatkovnim modelom PowerPoint (iz Orodja >> Reference)
• V Excelovo preglednico vstavite gumb (Razvijalec >> Vstavi in ​​nato izberite ukazni gumb).
• Vstavite spodnjo kodo VBA v vaš projekt preglednice VBA (neposredno v list ali v modul VBA)
• Po potrebi spremenite skript.
• Zaženite (pritisnite F5) in preizkusite rezultat.

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

Uživajte 🙂