発表者用メモとして、各スライドにコメントなどをノートに記入すると大変便利ですねぇ。
その際に作成したPPTファイルを配布する際にメモに残っていたりすると、困ってしまうことって、ありますよねぇ。
そんな時には、これで全スライドに含まれるノートを削除することができ、さっさとPPTファイルを配布できます。
Sub delNote()
Dim mySld As Slide
For Each mySld In ActivePresentation.Slides
mySld.NotesPage.Shapes.Placeholders(2).TextFrame. _
TextRange = ""
Next
End Sub
