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

End Sub