Wie erstelle und füge ich Folien zu PowerPoint-Präsentationen mit VBA hinzu?

Vor ein paar Tagen fragte ein Leser nach einer Möglichkeit, die Erstellung von PowerPoint-Präsentationen von Grund auf zu automatisieren und dann schnell Folien zu dieser vorhandenen Präsentation hinzuzufügen. Ich denke, dass dieses Skript ganz oben in der Liste der nützlichsten PowerPoint-Makros stehen könnte. 

Wie wir in der Vergangenheit angedeutet haben, enthält PowerPoint keinen Makrorekorder (im Gegensatz zu Excel und Word, die beide Rekorder für Makros eingebaut haben). Daher bleibt uns das gute alte Visual Basic for Application, mit dem wir einfache Makros zur Automatisierung von PowerPoint erstellen können. Es gibt weitere Alternativen zur PowerPoint-Automatisierung, die jedoch den Rahmen dieses Tutorials sprengen würden.

In dem heutigen kurzen Tutorial gehen wir auf drei verschiedene Anwendungsfälle ein:

1. Neue Präsentationserstellung (leer oder anhand einer Vorlage)
2. Fügen Sie Folien zu einer vorhandenen Präsentation hinzu.
3. Eine Mischung aus den beiden oben genannten Fällen (Von Grund auf neu erstellen und Folien hinzufügen)

Lass uns anfangen.

Sieh dir das Band an. Wenn Sie den Entwickler-Eintrag im Menü nicht sehen, müssen Sie vor dem Programmieren die Entwickler-Registerkarte aktivieren.

Nachdem Sie das Entwicklermenü in Ihrem Menüband sichtbar gemacht haben, klicken Sie auf Developer und dann auf die Visual Basic - Schaltfläche (oder fahren Sie einfach fort und drücken Sie Alt+F11), um die Visual Basic-IDE zu öffnen.

VBA zum Erstellen einer PowerPoint-Präsentation

1. Klicken Sie im VB-Editor mit der rechten Maustaste auf VBAProject und drücken Sie Einfügen .
2. Modul auswählen .
3. Fügen Sie den folgenden Code in das neu erstellte Modul ein.

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

1. Klicken Sie auf Datei und dann auf Speichern.
2. Um Ihren Code auszuführen, klicken Sie auf Ausführen und wählen Sie dann Sub-/Benutzerformular ausführen (oder einfach F5).
3. Schließen Sie den VB-Editor.

VBA zum Einfügen von Folien

1. Klicken Sie im VB-Editor mit der rechten Maustaste auf VBAProject und drücken Sie Einfügen.
2. Modul auswählen
3. Fügen Sie den folgenden Code in das neu erstellte Modul ein.

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. Klicken Sie auf Datei und dann auf Speichern.
2. Um Ihren Code auszuführen, klicken Sie auf Ausführen und wählen Sie dann Sub-/Benutzerformular ausführen (oder einfach F5).
3. Schließen Sie den VB-Editor.

Makro zum Einrichten einer neuen Präsentation und Hinzufügen von Folien

Das würde nur die beiden oben skizzierten Snippets verwechseln.

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

Als nächstes können Sie sich unser Tutorial zum programmgesteuerten Erstellen von Formen in PowerPoint mit VBA ansehen

Erstellen Sie eine PowerPoint-Präsentation aus Excel

Der letzte Fall ist, dass Sie eine PowerPoint-Präsentation direkt aus einer Excel-Tabelle erstellen möchten. Sie können dieselbe Technik von Word und anderen Microsoft 365-Anwendungen verwenden.

• Verknüpfen Sie die Tabelle mit dem PowerPoint-Datenmodell (aus Tools >> Referenzen)
• Fügen Sie eine Schaltfläche in Ihre Excel-Tabelle ein (Entwickler >> Einfügen und wählen Sie dann eine Befehlsschaltfläche).
• Fügen Sie den folgenden VBA-Code in Ihr Tabellenkalkulations-VBA-Projekt ein (direkt in das Blatt oder in ein VBA-Modul)
• Ändern Sie das Skript nach Bedarf.
• Ausführen (drücken Sie F5) und testen Sie das Ergebnis.

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

Viel Spaß 🙂