Hvordan lage og legge til lysbilder til PowerPoint-presentasjoner med VBA?

For et par dager siden spurte en leser om det er en måte å automatisere oppretting av PowerPoint-presentasjoner fra bunnen av og deretter raskt legge til lysbilder til den eksisterende presentasjonen. Jeg trodde at skriptet kan være høyt på listen over de mest nyttige PowerPoint-makroene. 

Som vi antydet tidligere, inkluderer ikke PowerPoint en makroopptaker (det er i motsetning til Excel og Word, som begge har innebygde opptakere for makro). Derfor sitter vi igjen med gode gamle Visual Basic for Application som vi kan bruke til å lage enkle makroer for å automatisere PowerPoint. Det er flere alternativer for PowerPoint-automatisering, men de går utover omfanget av denne opplæringen.

I dagens korte veiledning vil vi gå over tre forskjellige brukstilfeller:

1. Oppretting av ny presentasjon (tom eller ved hjelp av en mal)
2. Legg til lysbilder til en eksisterende presentasjon.
3. En blanding av de to ovennevnte tilfellene (Lag fra bunnen av og tillegg til lysbilder)

La oss komme i gang.

Se på båndet. Hvis du ikke ser en utvikleroppføring i menyen, må du aktivere utviklerfanen før du starter kodingen.

Etter at du har gjort Utvikler-menyen synlig på båndet ditt, fortsett og klikk på Utvikler , og trykk deretter på Visual Basic - knappen (eller bare gå videre og trykk Alt+F11) for å åpne Visual Basic IDE.

VBA for å lage PowerPoint-presentasjoner

1. I VB Editor, høyreklikk på VBAProject og trykk Sett inn .
2. Velg Module .
3. Lim inn følgende kode i nyopprettingsmodulen.

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

1. Trykk på Fil og deretter Lagre.
2. For å kjøre koden din, trykk Kjør og velg Kjør Sub/User Form (eller ganske enkelt F5).
3. Lukk VB-editoren.

VBA for å sette inn lysbilder

1. I VB Editor, høyreklikk på VBAProject og trykk Sett inn.
2. Velg Modul
3. Lim inn følgende kode i nyopprettingsmodulen.

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. Trykk på Fil og deretter Lagre.
2. For å kjøre koden din, trykk Kjør og velg Kjør Sub/User Form (eller ganske enkelt F5).
3. Lukk VB-editoren.

Makro for å sette opp en ny presentasjon og legge til lysbilder

Det ville bare være å blande sammen de to utdragene som er skissert ovenfor.

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

Deretter kan du se nærmere på veiledningen vår om å programmere former i PowerPoint med VBA

Generer en PowerPoint-presentasjon fra Excel

Siste tilfelle er at du ønsker å lage en PowerPoint-presentasjon rett fra et Excel-regneark. Du kan bruke den samme teknikken fra Word og andre Microsoft 365-applikasjoner.

• Koble regnearket til PowerPoint-datamodellen (fra Verktøy >> Referanser)
• Sett inn en knapp i Excel-regnearket (Utvikler >> Sett inn og velg deretter en kommandoknapp).
• Sett inn VBA-koden nedenfor i regnearkets VBA-prosjekt (direkte i arket eller i en VBA-modul)
• Endre skriptet etter behov.
• Kjør (trykk F5) og test utfallet.

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

Nyt 🙂