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

Mehr Tipps: Notizenseiten einheitlich formatieren

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt