Nein, PowerPoint verfügt nicht über eine Funktion, die dies ermöglicht.
Was genau willst du damit erreichen? Vielleicht gibt es einen anderen Weg.
Ich arbeite an einer Präsentation mit ungefähr 150 kombinierten Tabellen und Diagrammen, um den Überblick zu behalten. Im Bereich Auswahl und Sichtbarkeit (Bildtools> Anordnen> Auswahlbereich) kann ich eine Liste aller Formen auf einer Folie benennen und anzeigen. Es gibt jedoch die Option, eine Ebene nach oben zu gehen und eine Liste aller Formen anzuzeigen, die in der gesamten Ansicht verwendet werden Präsentation?
Nein, PowerPoint verfügt nicht über eine Funktion, die dies ermöglicht.
Was genau willst du damit erreichen? Vielleicht gibt es einen anderen Weg.
Ich wollte eine teilweise Antwort auf meine eigene Frage geben, die auf VBA basiert, die im folgenden Thread bei Stapelüberlauf gefunden wurde: VBA, um alle Objektnamen einer Powerpoint-Präsentation aufzulisten
Diese Lösung ermöglicht es einer Person, alle in einer PowerPoint-Präsentation verwendeten Formen über einen Textdateibericht anzuzeigen.
Sub ListAllShapes() Dim curSlide As Slide Dim curShape As Shape Dim lFile As Long Dim sPath As String sPath = ActivePresentation.Path lFile = FreeFile Open sPath & "\All Shapes.txt" For Append As #lFile For Each curSlide In ActivePresentation.Slides Print #lFile, "SLIDE " & curSlide.SlideNumber For Each curShape In curSlide.Shapes Print #lFile, " " & curShape.Name Next curShape Next curSlide Close #lFile End Sub
Dadurch wird ein Textbericht generiert, der folgendermaßen aussieht:
SLIDE 1 Rectangle 2 Rectangle 4 Rectangle 4 TextBox 10 Rectangle 4 SLIDE 2 TextBox 7 Rectangle 2 Rectangle 4 Rectangle 4 Line 37 Picture 1 Picture 2 SLIDE 3 Rectangle 2 Rectangle 4 Rectangle 7 TextBox 7 Line 28 Picture 3 Picture 4, etc...
Für meinen speziellen Anwendungsfall wollte ich eine Liste nur bestimmter Formen pro Folie. Dies wurde erreicht, indem ich zunächst jedes Bild, das eine Figur oder Tabelle enthielt, mit einem entsprechenden Präfix benannte und dann folgendes ausführte:
Sub ListFiguresAndTables() Dim curSlide As Slide Dim curShape As Shape Dim lFile As Long Dim sPath As String sPath = ActivePresentation.Path lFile = FreeFile Open sPath & "\Figures and Tables.txt" For Append As #lFile For Each curSlide In ActivePresentation.Slides Print #lFile, "SLIDE " & curSlide.SlideNumber For Each curShape In curSlide.Shapes If Left(curShape.Name, 4) = "Fig." Or Left(curShape.Name, 5) = "Table" Then Print #lFile, " " & curShape.Name End If Next curShape Next curSlide Close #lFile End Sub
Leider kann ich das Makro nur in aufsteigender Reihenfolge drucken, wenn ich den Auswahlbereich zum manuellen Anordnen von Formen zuerst in der entgegengesetzten (absteigenden) Reihenfolge benutze.
SLIDE 1 Fig. 1 Fig. 2 Fig. 3 Table 1 SLIDE 2 Fig. 4 Fig. 5 Fig. 6 SLIDE 3 Table 2 Table 3 (etc.)