Wie kopieren Sie Folien mit VBA-Makros in Ihre PowerPoint-Präsentation?

Zuletzt aktualisiert: Juni 2020

Anwendbar für: Office 2019 und älter. Nur Windows.

Hier eine Leserfrage:

Im Rahmen meiner Quartalsberichtspräsentation vor dem Management muss ich oft mehrere allgemeine Informationsfolien aus anderen Präsentationen kopieren. Keine große Sache, aber es wäre eine erhebliche Ersparnis, diese Übung automatisieren zu können. Jede VBA-Makro-Hilfe, um dies zu erreichen, wird geschätzt!

Wie Sie gerade erwähnt haben, können Sie das Kopieren und Einfügen von Folien in PowerPoint mit Visual Basic for Applications automatisieren. Wenn Sie jeden Monat mehrere Präsentationen erstellen müssen, kann diese Automatisierung zum Kopieren/Importieren von Folien zu einer enormen Zeitersparnis werden!

PowerPoint VBA zum Hinzufügen von Folien

Beginnen wir mit dieser einfachen Übung.

Stellen Sie zunächst sicher, dass Ihre Registerkarte "Entwicklung" aktiviert und sichtbar ist. Hier erfahren Sie, wie Sie das tun .

Ich gehe davon aus, dass Sie bereits eine makrofähige Präsentation erstellt haben (Dateityp ist .pptm), die Sie im selben Verzeichnis abgelegt haben wie Ihre Quellpräsentation (die ich als source.pptm bezeichnen werde). So erstellen Sie eine PowerPoint-Präsentation mit VBA .

Lassen Sie uns zunächst eine Sicherungskopie dieser Präsentation erstellen (einfaches Kopieren und Speichern).

Dann lassen Sie uns weitermachen und das folgende Makro in ein neues VBA-Modul in Ihrer Zielpräsentation einfügen. Alle Details dazu finden Sie in unserem PowerPoint-VBA-Tutorial .

Hier ist der VBA-Code, den Sie benötigen, um die Folien automatisch zu kopieren und einzufügen.

Paar Annahmen, die ich gemacht habe:

• Ihre Quellpräsentation heißt source.pptm
•  Sie fügen die Folien 2-4 aus Ihrer Quellpräsentation ein
• Sie platzieren die kopierten Folien ab Folie 5.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

Natürlich können Sie die Indizierung der Foliennummer im Code ändern, damit sie Ihren Anforderungen entspricht.

Sie können mehrere Präsentationen durchlaufen lassen und aus jeder einzelne Folie in Ihren Managementbericht einfügen.

PowerPoint VBA zum Duplizieren von Folien

Anstatt Folien in eine andere Präsentation zu kopieren, möchten Sie vielleicht eine oder mehrere Folien in Ihrer Präsentation klonen:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

Das waren nur ein paar einfache Beispiele für die PowerPoint-Automatisierung. Leser, die spezifische Fragen haben, können gerne eine Anfrage über die Kontaktseite senden.

Hoffe es hilft 🙂