Powerpoint: Notizentexte löschen

Notizentexte löschen. Shapes, HasTextFrame
Bevor eine Präsentation weitergegeben wird, sollen die Notizen-Texte in der Notizenansicht gelöscht werden.
Gedanke: Durch alle Folien blättern, alle Shapes prüfen ob Textfeld; wenn ja, dann löschen.
Achtung: die Textfelder auf den Folien selbst sollen nicht gelöscht werden!
Sub Loeschen()
Dim Texte As Shapes
ActiveWindow.ViewType = ppViewNotesPage
Anzahl = ActivePresentation.Slides.Count
For I = 1 To Anzahl
ActiveWindow.View.GotoSlide Index:=I
Set Texte = ActivePresentation.Slides(I).NotesPage.Shapes
For Each s In Texte
If s.HasTextFrame Then s.Delete
Next
Next
End Sub
           
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.