PowerPointでノートの一括削除

質問

PowerPointでノート入力した内容を全頁一括クリアする方法はないのでしょうか。Freelanceはこの機能がありますが。

回答No.1

BLUEPIXY · ベストアンサー

標準的なメニューやコマンドはないみたいですが
マクロで実現できます。

Public Sub deleteAllNotes()
Dim x As Slide
For Each x In ActivePresentation.Slides
x.NotesPage.Shapes.Placeholders(2).TextFrame.DeleteText
Next
End Sub

お礼

ありがとうございます。このマクロを実行してみましたらできました。