Wie kann man in Powerpoint die Funktion 'Folien wiederverwenden' per vba ausführen?

Question

Guten Tag,

Wie kann man in Powerpoint die Funktion 'Folien wiederverwenden' per vba ausführen?

Ich habe mehrere pptx, die in in ein pptx verschieben will.

Das würde ich gerne in einem Makro tun.

Wie geht das?

Viele Grüße

Willi

Answer 1

Diese Antwort wurde automatisch übersetzt. Daher können grammatikalische Fehler oder seltsame Formulierungen auftreten.

Hallo wKs_h

Zum Ausführen des Features "Folien wiederverwenden" in PowerPoint mit VBA können Sie den folgenden Code verwenden:

Haftungsausschluss: VBA-Code basiert auf sich wiederholenden Vorgängen und einige der .pptx Pfade wie C:\Path\To\SourcePresentation1.pptx die im Code geändert werden müssen, müssen manuell durchgeführt werden, was einige grundlegende VB-Kenntnisse erfordert.

Hier sind die Schritte zum Ausführen des VBA-Codes, um Folien aus mehreren Präsentationen wiederzuverwenden (hier nehme ich an, dass Sie 4 .pptx Dateien haben):

1> Öffnen Sie PowerPoint, und erstellen Sie eine neue Präsentation oder öffnen Sie eine vorhandene.

2> Wechseln Sie zur Registerkarte Entwicklertools , und klicken Sie auf die Schaltfläche Visual Basic, um den Visual Basic-Editor (VBE) zu öffnen.

3> Klicken Sie auf Im VBE einfügen , und wählen Sie dann Modul aus, um ein neues Modul zu erstellen.

4> Kopieren Sie den folgenden Code, und fügen Sie ihn in das neue Modul ein:

Sub ReuseSlidesFromMultiplePresentations() 

Dim pptSource1 As PowerPoint.Presentation 

Dim pptSource2 As PowerPoint.Presentation 

Dim pptSource3 As PowerPoint.Presentation 

Dim pptSource4 As PowerPoint.Presentation 

Dim pptDestination As PowerPoint.Presentation 

Set pptDestination = ActivePresentation 

' Open the source presentations 

Set pptSource1 = Application.Presentations.Open("C:\Path\To\SourcePresentation1.pptx") 

Set pptSource2 = Application.Presentations.Open("C:\Path\To\SourcePresentation2.pptx") 

Set pptSource3 = Application.Presentations.Open("C:\Path\To\SourcePresentation3.pptx") 

Set pptSource4 = Application.Presentations.Open("C:\Path\To\SourcePresentation4.pptx") 

' Reuse all slides from the first source presentation 

pptDestination.Slides.InsertFromFile _ 

' Reuse all slides from the second source presentation 

pptDestination.Slides.InsertFromFile _ 

' Reuse all slides from the third source presentation 

pptDestination.Slides.InsertFromFile _ 

' Reuse all slides from the fourth source presentation 

pptDestination.Slides.InsertFromFile _ 

' Close the source presentations 

pptSource1.Close 

pptSource2.Close 

pptSource3.Close 

pptSource4.Close 

End Sub 

5> Ersetzen Sie die Werte für die FullName-Eigenschaft in jeder Application.Presentations.Open-Anweisung durch die tatsächlichen Pfade zu den Quellpräsentationen. 6> Speichern Sie die Änderungen am Modul, indem Sie im VBE auf Datei und dann auf Speichern klicken.7> Schließen Sie die VBE.8> Gehen Sie zurück zu PowerPoint und führen Sie das Makro aus, indem Sie auf "Entwickler" und dann auf "Makros" klicken. Wählen Sie das Makro ReuseSlidesFromMultiplePresentations aus, und klicken Sie auf die Schaltfläche Ausführen .Das Makro verwendet nun alle Folien aus den vier angegebenen Quellpräsentationen in der aktiven Präsentation.

Fühlen Sie sich frei, zurück zu posten, wenn weitere Hilfe benötigt wird.

Chandy | Microsoft Community Support-Spezialist

Answer 2

Guten Tag, Willi,

willkommen beim Microsoft Community Forum.

Es tut mir leid, Ihnen mitzuteilen, dass VBA den Rahmen der Answers Support Community übersteigt. Der beste Ort, um Hilfe zu Makro zu erhalten, ist Microsoft Learn, wo fortgeschrittene Benutzer wie Sie unterstützt werden. (Dieses Forum ist auf Englisch und Sie brauchen Ihre Fragen auf Englisch zu stellen.)

Ich werde Ihnen nicht helfen können, aber ich lasse die Frage offen, falls einer unserer tollen Freiwilligen eine Idee für Sie hat.

Vielen Dank für Ihr Verständnis und Ihre wertvolle Zeit.

Ich wünsche Ihnen einen schönen Tag und bleiben Sie gesund!

Mit freundlichen Grüßen

Olivia | Microsoft Community Support Spezialist

Answer 3

Hello,

it works perfectly.

Thanks a lot!

What I found: it happens, that if I try to loop on shapes, I will get an error message, that the clipboard is empty or can not be pasted.

This never happend in older versions of ppt.

Did MS change something about this copy/paste feature??

Best regards,

Willi