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ß 🙂

Vorteile von Excel VBA PowerPoint

  • Die Verwendung von VBA in Powerpoint erleichtert die Handhabung, wenn eine PPT-Datei so viele Folien mit großem Inhalt enthält.
  • VBA mit Powerpoint bietet einen Hauch von Automatisierung, selbst wenn nur begrenzte Funktionen verfügbar sind.

Nachteile von Excel VBA PowerPoint

  • Wir müssen die Microsoft PowerPoint 15.0-Objektbibliothek aus der Referenzoption in der Menüoption „Werkzeug“ auswählen, die wir zu Beginn benötigen Beispiel 1, jedes Mal, wenn wir den Code für PowerPoint ausführen.

Dinge, an die man sich erinnern sollte

  • Speichern Sie die Datei im Macro-Enable Presentation-Format, nachdem Sie den Code geschrieben haben. Dies wird uns helfen, den Verlust des Codes und die mehrfache Verwendung desselben in Zukunft zu vermeiden.
  • Die Neukodierungsfunktion funktioniert hier nicht, da wir von Excel zu PowerPoint wechseln und die Schnittstelle zwischen den Seiten ändern müssen.
  • Kompilieren Sie den Code immer, bevor Sie ihn ausführen. Dies wird Ihnen helfen, den Fehler im Code zu finden. Dies ist sehr hilfreich, wenn wir große Codezeilen schreiben.
  • Um den Code auszuführen und zu implementieren, müssen wir die Excel-Tabelle mit dem Diagramm öffnen, das wir in die PowerPoint-Folie einfügen möchten.
  • Wir können das Diagramm in PowerPoint nach unseren Bedürfnissen ausrichten.

So zeichnen Sie auf einem Foto auf dem iPhone

So zeichnen Sie auf einem Foto auf dem iPhone

Erfahren Sie, wie Sie auf einem Foto auf Ihrem iPhone zeichnen können. Unsere Schritt-für-Schritt-Anleitung zeigt Ihnen die besten Methoden.

Was ist TweetDeck und wie wird es verwendet?

Was ist TweetDeck und wie wird es verwendet?

TweetDeck ist eine App, mit der Sie Ihren Twitter-Feed und Ihre Interaktionen verwalten können. Hier zeigen wir Ihnen die Grundlagen für den Einstieg in TweetDeck.

BEHOBEN: Discord-Installation in Windows 10 fehlgeschlagen [7 einfache Lösungen]

BEHOBEN: Discord-Installation in Windows 10 fehlgeschlagen [7 einfache Lösungen]

Möchten Sie das Problem mit der fehlgeschlagenen Discord-Installation unter Windows 10 beheben? Wenden Sie dann die angegebenen Lösungen an, um das Problem „Discord kann nicht installiert werden“ zu beheben …

Fix XCOM2-Mods funktionieren nicht [10 BEWÄHRTE & GETESTETE LÖSUNGEN]

Fix XCOM2-Mods funktionieren nicht [10 BEWÄHRTE & GETESTETE LÖSUNGEN]

Entdecken Sie die besten Tricks, um zu beheben, dass XCOM2-Mods nicht funktionieren. Lesen Sie mehr über andere verwandte Probleme von XCOM2-Wotc-Mods.

10 getestete Fixes für „Chrome-error://chromewebdata/“

10 getestete Fixes für „Chrome-error://chromewebdata/“

Um den Chrome-Fehler „chrome-error://chromewebdata/“ zu beheben, nutzen Sie erprobte Korrekturen wie das Löschen des Browsercaches, das Deaktivieren von Erweiterungen und mehr.

So ändern Sie das Bild der Spotify-Wiedergabeliste

So ändern Sie das Bild der Spotify-Wiedergabeliste

Einer der Vorteile von Spotify ist die Möglichkeit, benutzerdefinierte Wiedergabelisten zu erstellen und das Bild der Wiedergabeliste anzupassen. Hier ist, wie Sie das tun können.

Fix: RCS funktioniert nicht mit Samsung Messages

Fix: RCS funktioniert nicht mit Samsung Messages

Wenn RCS bei Samsung Messages nicht funktioniert, stellen Sie sicher, dass Sie lokale Daten von Carrier-Diensten löschen, deinstallieren Sie die Updates oder versuchen Sie es mit Google Messages.

10 Behebt den OpenGL-Fehler 1282 (Ungültiger Vorgang) Minecraft

10 Behebt den OpenGL-Fehler 1282 (Ungültiger Vorgang) Minecraft

Beheben Sie den OpenGL-Fehler 1282 (Ungültiger Vorgang) in Minecraft mit detaillierten Korrekturen, die im Artikel beschrieben sind.

So beheben Sie, dass Google Assistant auf diesem Gerät nicht verfügbar ist

So beheben Sie, dass Google Assistant auf diesem Gerät nicht verfügbar ist

Wenn Sie sehen, dass der Google Assistant auf diesem Gerät nicht verfügbar ist, empfehlen wir Ihnen, die Anforderungen zu überprüfen oder die Einstellungen zu optimieren.

So entfernen Sie DuckDuckGo auf Ihrem Telefon und Computer

So entfernen Sie DuckDuckGo auf Ihrem Telefon und Computer

Wenn Sie DuckDuckGo loswerden möchten, ändern Sie die Standardsuchmaschine, deinstallieren Sie die App oder entfernen Sie die Browsererweiterung.