Hur skapar och lägger man till bilder i PowerPoint-presentationer med VBA?

För ett par dagar sedan frågade en läsare om det finns ett sätt att automatisera skapandet av PowerPoint-presentationer från början och sedan snabbt lägga till bilder till den befintliga presentationen. Jag trodde att det skriptet kan vara mycket i listan över de mest användbara PowerPoint-makron. 

Som vi antytt tidigare, inkluderar PowerPoint inte en makroinspelare (det är till skillnad från Excel och Word, som båda har inbyggda brännare för makro). Därför sitter vi kvar med gamla goda Visual Basic for Application som vi kan använda för att skapa enkla makron för att automatisera PowerPoint. Det finns ytterligare alternativ för PowerPoint Automation, men de går utöver den här handledningen.

I dagens korta handledning kommer vi att gå över tre olika användningsfall:

1. Skapa ny presentation (tom eller med en mall)
2. Lägg till bilder i en befintlig presentation.
3. En blandning av de två ovan nämnda fallen (Skapa från början och tillägg bilder)

Låt oss börja.

Titta på bandet. Om du inte ser posten för utvecklare i menyn måste du aktivera fliken utvecklare innan du startar kodningen.

När du har gjort Utvecklarmenyn synligt för ditt menyfliksområdet, fortsätt och tryck på Utvecklare och tryck sedan på Visual Basic - knappen (eller helt enkelt gå vidare och tryck Alt+F11) för att öppna Visual Basic IDE.

VBA för att skapa PowerPoint-presentationer

1. I VB Editor, högerklicka på VBAProject och tryck på Infoga .
2. Välj Modul .
3. Klistra in följande kod i den nyskapade modulen.

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

1. Tryck på Arkiv och sedan på Spara.
2. För att köra din kod, tryck Kör och välj sedan Kör Sub/User Form (eller helt enkelt F5).
3. Stäng VB-editorn.

VBA för att infoga diabilder

1. I VB Editor, högerklicka på VBAProject och tryck på Infoga.
2. Välj Modul
3. Klistra in följande kod i den nyskapade modulen.

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. Tryck på Arkiv och sedan på Spara.
2. För att köra din kod, tryck Kör och välj sedan Kör Sub/User Form (eller helt enkelt F5).
3. Stäng VB-editorn.

Makro för att ställa in en ny presentation och lägga till bilder

Det skulle bara vara att blanda ihop de två utdragen som beskrivs ovan.

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

Därefter kan du titta på vår handledning om att programmera skapa former i PowerPoint med VBA

Skapa en PowerPoint-presentation från Excel

Det sista fallet är att du vill skapa en PowerPoint-presentation direkt från ett Excel-kalkylblad. Du kan använda samma teknik från Word och andra Microsoft 365-program.

• Länka kalkylarket till PowerPoint-datamodellen (från Verktyg>>Referenser)
• Infoga en knapp i ditt Excel-kalkylblad (Utvecklare >> Infoga och välj sedan en kommandoknapp).
• Infoga VBA-koden nedan i ditt kalkylblads VBA-projekt (direkt i arket eller i en VBA-modul)
• Ändra skriptet efter behov.
• Kör (tryck F5) och testa resultatet.

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

Njut 🙂