下記のコードは「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では使用出来ないのが難点と言えば難点ですが、こんな方法があったとは思いもよりませんでした。
Power Automate Desktop(PAD)でOfficeの…
この記事へのトラックバックはありません。
Office アドインやOffice スクリプト、リボンのカスタマイズに関する話題を中心に情報発信しています。 Microsoft MVP(Office Development) July 2016 -
Copyright © 初心者備忘録 All rights reserved.
この記事へのコメントはありません。