Kako stvoriti i dodati slajdove u PowerPoint prezentacije pomoću VBA?

Prije nekoliko dana, čitatelj je pitao postoji li način za automatiziranje izrade PowerPoint prezentacija od nule, a zatim brzo dodavanje slajdova toj postojećoj prezentaciji. Mislio sam da bi ta skripta mogla biti visoko na popisu najkorisnijih PowerPoint makronaredbi. 

Kao što smo naveli u prošlosti, PowerPoint ne uključuje snimač makronaredbi (to je za razliku od Excela i Worda, koji imaju ugrađene snimače za makronaredbe). Stoga nam ostaje dobar stari Visual Basic za aplikacije koji možemo koristiti za izradu jednostavnih makronaredbi za automatizaciju PowerPointa. Postoje dodatne alternative za PowerPoint automatizaciju, ali one nadilaze opseg ovog vodiča.

U današnjem kratkom vodiču proći ćemo kroz tri različita slučaja upotrebe:

1. Izrada nove prezentacije (prazna ili pomoću predloška)
2. Dodajte slajdove postojećoj prezentaciji.
3. Kombinacija dva gore spomenuta slučaja (Izrada od nule i dodavanje slajdova)

Započnimo.

Pogledaj vrpcu. Ako u izborniku ne vidite unos Developer, prije početka kodiranja morat ćete omogućiti karticu programer.

Nakon što izbornik Developer učinite vidljivim na vašoj vrpci, samo naprijed i pritisnite Developer , zatim pritisnite gumb Visual Basic (ili jednostavno idite naprijed i pritisnite Alt+F11) da otvorite Visual Basic IDE.

VBA za izradu PowerPoint prezentacije

1. U VB Editoru desnom tipkom miša kliknite VBAProject i pritisnite Umetanje .
2. Odaberite Modul .
3. Zalijepite sljedeći kod u novostvoreni modul.

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

1. Pritisnite Datoteka, a zatim Spremi.
2. Da biste pokrenuli svoj kod, pritisnite Pokreni, a zatim odaberite Pokreni pod/korisnički obrazac (ili jednostavno F5).
3. Zatvorite VB editor.

VBA za umetanje slajdova

1. U VB Editoru desnom tipkom miša kliknite VBAProject i pritisnite Umetanje.
2. Odaberite Modul
3. Zalijepite sljedeći kod u novostvoreni 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, a zatim Spremi.
2. Da biste pokrenuli svoj kod, pritisnite Pokreni, a zatim odaberite Pokreni pod/korisnički obrazac (ili jednostavno F5).
3. Zatvorite VB editor.

Makro za postavljanje nove prezentacije i dodavanje slajdova

To bi bilo samo miješanje dva gore navedena isječka.

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

Zatim biste mogli pogledati naš vodič o programskom stvaranju oblika u PowerPointu s VBA

Generirajte PowerPoint prezentaciju iz Excela

Posljednji slučaj je da biste željeli stvoriti PowerPoint prezentaciju izravno iz Excel proračunske tablice. Možete koristiti istu tehniku ​​iz Worda i drugih Microsoft 365 aplikacija.

• Povežite proračunsku tablicu s podatkovnim modelom PowerPoint (iz Alati>>Reference)
• Umetnite gumb u svoju Excel proračunsku tablicu (Razvojni programer >> Umetni, a zatim odaberite gumb za naredbe).
• Umetnite VBA kod ispod u svoj VBA projekt proračunske tablice (izravno u Sheet ili u VBA modul)
• Izmijenite skriptu prema potrebi.
• Pokrenite (pritisnite F5) i testirajte 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 🙂