Hallo zusammen,
weiß jemand, wie ich alle unsichtbaren weil leeren Textfelder in einer .ppt 2007 Präsentation löschen kann?
Makro? versteckte Suchoption?
Danke für Hinweise,
Steinspecht
steinspecht Gast |
steinspecht Gast |
Hallo zusammen,
weiß jemand, wie ich alle unsichtbaren weil leeren Textfelder in einer .ppt 2007 Präsentation löschen kann?
Makro? versteckte Suchoption?
Danke für Hinweise,
Steinspecht
Das meine ich nicht.
Ich meine die unsichtbaren, weil leeren, nicht die markierten und dadurch sichtbaren textfelder.
Wer schon mal eine fremde Präsentation durchforstet hat, weiss, dass der Autor oft Textfelder angelegt hat und nicht mit Text gefüllt hat. Sie liegen als Leichen da herum und werden nur durch Zufall sichtbar, wenn man irgendwo rumklickt, oder mit Tab von Form zu Form springt (Tab? Was ist das?)
Alles klar?
Weiterhin danke für weiterführende Hinweise.
Steinspecht
Das geht z.B. mit einem Makro.
Die MSDN-Doku zeigt dies in ihrem VBA Einführungs-Beispiel
Getting Started with VBA in PowerPoint 2010
In PPT 2007 sollte das auch funktionieren:
Dim SlideToCheck As Slide
Dim ShapeIndex As Integer
' Visit each slide
For Each SlideToCheck In ActivePresentation.Slides
' On each slide, count down through the shapes
For ShapeIndex = SlideToCheck.Shapes.Count To 1 Step -1
' If the shape IS a text box and DOES NOT have text
If SlideToCheck.Shapes(ShapeIndex).Type = msoTextBox And _
Not SlideToCheck.Shapes(ShapeIndex).TextFrame.HasText Then
' Delete the shape
SlideToCheck.Shapes(ShapeIndex).Delete
End If
Next
Next
« Windows XP: Desktopproblem | Win XP: VM mit Virtual-Box und USB-Anschluss » | ||