Ein (möglicherweise fehlerhafter) Ansatz:
Gehen Sie zu jedem Layout in der Master-Ansicht.
Drücken Sie Strg + A, um alle
auszuwählen. Drücken Sie Strg + C, um zu kopieren.
Gehen Sie zur Normalansicht zurück.
Fügen Sie eine neue Folie hinzu, die auf dem BLANK-Layout basiert. Drücken Sie
Strg + V, um den gerade kopierten Inhalt aus dem Layout
einzufügen Gehen Sie bei allen Layouts zur Hauptansicht zurück, wählen Sie den Inhalt aus jedem Layout aus und löschen Sie ihn.
Der Fehler? Dadurch erhalten Sie eine Reihe von Folien, die nicht mehr mit Layouts verbunden sind, die das Erscheinungsbild der Präsentation steuern. Um weitreichende Änderungen vorzunehmen, müssen Sie jede einzelne Folie ändern. Es ist jedoch eine relativ schnelle Lösung, die Ihnen zumindest bearbeitbare Folien zur Verfügung stellt.
Wenn die Präsentation mehr als nur ein paar Mal verwendet und von einer Vielzahl von Benutzern bearbeitet wird, ist eine umfassendere Korrektur möglicherweise geeigneter, auch wenn sie viel zeitaufwändiger ist.
Dazu müssen Sie die oben genannten Schritte ausführen und dann die Layouts durchgehen und Inhalte löschen, die nicht entweder a) Platzhalter oder b) auf jeder Folie sind, die auf dem Layout basiert.
Sie müssen dann das entsprechende Layout auf jede Folie anwenden, die ursprünglich darauf basiert, und schließlich ggf. Text aus zufälligen Textfeldern in die entsprechenden Platzhalter kopieren.
Wenn Sie sich für diese Route entscheiden, wird hier ein Makro angezeigt, das alle Nicht-Platzhalter-Formen von jedem Master / Layout in der Präsentation löscht. Es erledigt auf keinen Fall die ganze Arbeit für Sie, aber es automatisiert zumindest einen recht langweiligen Teil davon:
Sub DeleteNonPlaceholderShapes() ' Deletes non-placeholder shapes from ' each slide master and layout in a presentation ' Run this on a COPY of your presentation, never the only original. Dim oDes As Design Dim oLay As CustomLayout Dim oSh As Shape With ActivePresentation For Each oDes In .Designs Call HandleOneContainerObject(oDes.SlideMaster) For Each oLay In oDes.SlideMaster.CustomLayouts Call HandleOneContainerObject(oLay) Next Next End With End Sub Sub HandleOneContainerObject(oObject As Object) Dim x As Long For x = oObject.Shapes.Count To 1 Step -1 If Not oObject.Shapes(x).Type = 14 Then oObject.Shapes(x).Delete End If Next End Sub