Schattenreich

Ich missbrauche das hier gerade mal als Notizzettel – ich wollte in Powerpoint alle Notizen aus den Seiten rauslöschen, ohne es von Hand machen zu müssen. Fand den Tip unten auf Englisch auf Ohad’s Blog

Öffne deine Präsentation
Klicke “Tools”, “Macro”, “Macros…” und removeNotes ein.
Klicke “Create”.
Paste das folgende in das erscheinde Fenster, gerade vor den Text “End Sub”

Dim objSlide As Slide
Dim objShape As Shape
For Each objSlide In ActivePresentation.Slides
For Each objShape In objSlide.NotesPage.Shapes
If objShape.TextFrame.HasText Then
objShape.TextFrame.TextRange = “”
End If
Next
Next

Schließe das Script Fenster.
Klicke “Tools”, “Macro”, “Macros…” und Doppelklick auf removeNotes.
Die Notizen sind gelöscht!

Und es funktioniert, danke, Ohad!