Ein Benutzer, mit dem ich zusammenarbeite, hat versehentlich seine gesamte Präsentation in der Folienmasteransicht erstellt. Das heißt, anstatt Folien hinzuzufügen, hat er Layouts erstellt.
Es gibt eine einfache Teillösung, die lediglich darin besteht, neue Folien mit jedem der Layouts hinzuzufügen. Das Ergebnis ist eine Präsentation, die zwar gut angezeigt werden kann, aber gewisse Einschränkungen hat. Insbesondere arbeiten wir hier viel zusammen, und wenn wir diese Datei mit anderen Benutzern teilen, kann niemand sonst den Text in den Folien bearbeiten, ohne selbst in die Masteransicht zu wechseln.
Das Ganze könnte von Grund auf neu aufgebaut werden, aber da es sehr groß ist, würde dies zu zeitaufwändig sein.
Antwort1
Ein (möglicherweise fehlerhafter) Ansatz:
Gehen Sie in der Masteransicht zu jedem Layout.
Drücken Sie Strg+A, um alles auszuwählen.
Drücken Sie Strg+C zum Kopieren.
Gehen Sie zurück zur Normalansicht.
Fügen Sie eine neue Folie basierend auf dem LEEREN Layout hinzu.
Drücken Sie Strg+V, um den Inhalt einzufügen, den Sie gerade aus dem Layout kopiert haben.
Wenn Sie mit allen Layouts fertig sind, gehen Sie zurück zur Masteransicht und wählen und löschen Sie den Inhalt aus jedem Layout.
Der Fehler? Dadurch erhalten Sie eine Reihe von Folien, die nicht mehr mit den Layouts verknüpft sind, die das Erscheinungsbild der Präsentation steuern. Um umfassende Änderungen vorzunehmen, müssten Sie jede einzelne Folie ändern. Dies lässt sich jedoch relativ schnell beheben und hinterlässt Ihnen zumindest bearbeitbare Folien.
Wenn die Präsentation öfter verwendet und von verschiedenen Personen bearbeitet wird, ist eine umfassendere Korrektur möglicherweise angemessener, auch wenn diese wesentlich zeitaufwändiger ist.
Dazu müssten Sie zunächst die oben beschriebenen Schritte ausführen und dann die Layouts durchgehen und alle Inhalte löschen, die nicht entweder a) ein Platzhalter sind oder b) basierend auf dem Layout auf jeder Folie erwünscht sind.
Anschließend müssen Sie auf jede Folie das entsprechende Layout anwenden, das ursprünglich darauf basiert, und abschließend bei Bedarf Texte aus beliebigen Textfeldern in die entsprechenden Platzhalter kopieren.
Wenn Sie sich für diesen Weg entscheiden, finden Sie hier ein Makro, das alle Nicht-Platzhalterformen aus jedem Master/Layout in der Präsentation löscht. Es wird zwar nicht die ganze Arbeit für Sie erledigen, aber es wird zumindest einen ziemlich mühsamen Teil davon automatisieren:
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