こんにちは。ようこそ、PowerPoint VBAの深淵なる世界へ。
私はこれまで、数え切れないほどの業務自動化システムを設計し、世界中のドキュメントワークフローを最適化してきました。今日は、マクロの記録を卒業し、「真の自動化」への一歩を踏み出そうとしているあなたに、PowerPointの「魂」とも言えるプロパティ（DocumentProperties）の操作について伝授します。
スライドの見栄えを整えるのは表層的な作業です。しかし、作成者、タイトル、キーワードといった「メタデータ」を正確に管理し、不要な個人情報をクリーンアップする技術は、ドキュメントの「信頼性」と「セキュリティ」を担保するプロの仕事です。
ここをマスターすれば、PowerPoint VBAのオブジェクトモデルの扱い方は格段に上達します。さあ、一緒にコードを書いていきましょう。
—
1. PowerPointの「裏側」を覗く：オブジェクトモデルの階層
PowerPoint VBAを操作する上で、まず理解すべきは「どこに何があるか」という地図です。
プロパティを操作する場合、私たちは以下の階層を辿ります。
1. Application（PowerPointそのもの）
2. Presentation（開いているファイル）
3. BuiltInDocumentProperties（標準のプロパティ：タイトル、作成者など）
4. CustomDocumentProperties（独自に定義するプロパティ）
「マクロの記録」ではなかなか見えてこないこの階層構造を意識することが、脱・初心者への近道です。
—
2. 実践：組み込みプロパティの一括設定
まずは、標準的なプロパティ（作成者やタイトルなど）を一括で設定するコードを見てみましょう。
Sub UpdatePresentationProperties()
Dim pptPres As Presentation
Set pptPres = ActivePresentation ‘ 現在操作しているプレゼンテーションを特定
‘ BuiltInDocumentPropertiesへのアクセス
‘ 実行時にエラーが出ないよう、On Errorで保護するのがプロの作法です
On Error Resume Next
With pptPres.BuiltInDocumentProperties
.Item(“Title”).Value = “2023年度 第3四半期 営業報告書”
.Item(“Subject”).Value = “全社共有用”
.Item(“Author”).Value = “DX推進本部 チーフアーキテクト”
.Item(“Keywords”).Value = “自動化, VBA, 報告書”
.Item(“Comments”).Value = “このファイルはシステムにより自動生成されました。”
End With
If Err.Number <> 0 Then
MsgBox “一部のプロパティ設定中にエラーが発生しました。”, vbExclamation
Else
MsgBox “プロパティを正常に更新しました！”, vbInformation
End If
On Error GoTo 0
End Sub
【ここがポイント！】
- Item(“名称”)で指定する: プロパティ名は文字列で指定します。`”Author”`（作成者）や`”Title”`（タイトル）など、決まった名前を使います。
- On Error Resume Next: 稀に読み取り専用のプロパティや、環境によってアクセスできない項目があるため、エラーで処理を止めない工夫をしています。
—
3. 応用：独自の「カスタムプロパティ」を操る
標準の項目だけでは足りない場合、自分たちで「管理番号」や「承認ステータス」といった独自の項目を作ることができます。これができるようになると、VBAによる文書管理のレベルが一気に上がります。
Sub ManageCustomProperties()
Dim pptPres As Presentation
Dim customProps As Object
Set pptPres = ActivePresentation
Set customProps = pptPres.CustomDocumentProperties
‘ カスタムプロパティ「管理ID」が存在するか確認し、なければ追加、あれば更新
Dim propName As String: propName = “ProjectID”
Dim propValue As String: propValue = “PRJ-2023-001”
On Error Resume Next
‘ 一度削除してから追加することで、確実に新しい値をセットするテクニック
customProps.Item(propName).Delete
On Error GoTo 0
‘ Addメソッドの引数: 名前, リンクするか, 型, 値
‘ msoPropertyTypeString は文字列型を指します
customProps.Add Name:=propName, _
LinkToContent:=False, _
Type:=3, _
Value:=propValue
MsgBox “カスタムプロパティ ‘” & propName & “‘ をセットしました。”, vbInformation
End Sub
—
4. セキュリティの要：個人情報の自動削除（ドキュメント検査）
ファイルを社外に送る際、コメントや非表示スライド、作成者の履歴などが残っているとセキュリティリスクになります。これをVBAで一括削除するのが「ドキュメント検査」の自動化です。
Sub SanitizePresentation()
Dim pptPres As Presentation
Set pptPres = ActivePresentation
‘ 1. 作成者情報などの個人情報を保存時に自動削除する設定を有効化
pptPres.RemovePersonalInformation = msoTrue
‘ 2. ドキュメント検査の実行（不要な情報を一括削除）
‘ 引数には削除したい情報の種類を指定します
‘ ppRelativePathなど、特定の情報を狙い撃ちで消去可能です
‘ 以下のメソッドは、プロパティ、コメント、非表示情報などをクリアします
pptPres.RemoveDocumentInformation (ppComments)
pptPres.RemoveDocumentInformation (ppHiddenSlides)
pptPres.RemoveDocumentInformation (ppLastAuthor)
MsgBox “セキュリティ清掃が完了しました。安心して配布できます。”, vbInformation
End Sub
—
5. 陥りやすいエラーと回避策
VBAエンジニアとして、あなたが直面するであろう「壁」についても触れておきます。
1. 型の不一致: `DocumentProperties`の`Value`は、プロパティの種類によって「数値」だったり「日付」だったりします。文字列を入れようとしてエラーになる場合は、その項目の型を再確認しましょう。
2. ファイルが開かれていない: `ActivePresentation`を使う際は、必ずPowerPointでファイルが開いている必要があります。バッチ処理（フォルダ内の全ファイル操作）を行う場合は、`Presentations.Open`で明示的に開くプロセスを忘れずに。
—
最後に：この一歩が「自動化の王道」へ続く
お疲れ様でした。スライドのテキストを書き換えるだけでなく、その背後にある「メタデータ」を操れるようになったあなたは、もう立派なVBAデベロッパーの入り口に立っています。
プロパティを正しく管理することは、後でファイルを検索しやすくし、チームでの共同作業を円滑にし、そして何より「このファイルはプロが作ったものだ」という信頼を形にすることです。
次は、これらのプロパティをExcelの管理表から一括で読み込んで、数百個のプレゼン資料を一瞬で作り上げる……そんな世界に挑戦してみませんか？
あなたの自動化ライフが、より豊かでクリエイティブなものになることを願っています。また次の講義でお会いしましょう！
