下記のコードは「Remove Notes Pages in PowerPoint (VBA)」に載っていたコードで、Office 2007で追加されたDocumentInspectorオブジェクトのFixメソッドを利用してノートを削除するコードです。
Option Explicit Public Sub Sample() Dim ret As String Application.ActivePresentation.DocumentInspectors(4).Fix msoDocInspectorStatusIssueFound, ret Debug.Print ret End Sub
2003では使用出来ないのが難点と言えば難点ですが、こんな方法があったとは思いもよりませんでした。
この記事へのコメントはありません。