プレゼンテーションの「魂」を制御せよ：DocumentProperties操作とセキュリティの極致
「スライドの中身さえ完成すれば、プレゼン資料は完成だ」――もし君がそう考えているなら、プロフェッショナルとしての認識を改める必要がある。
優れたシステムアーキテクトは、ファイルがネットワークを流れ、ストレージに蓄積され、検索エンジンにインデックスされる「その後のライフサイクル」までを設計に含める。そこで重要になるのがメタデータ（DocumentProperties）だ。
作成者、タイトル、キーワード、そして隠された個人情報。これらを適切に制御できないツールは、企業のコンプライアンスを脅かす時限爆弾になりかねない。今回は、PowerPoint VBAを用いたプロパティ操作の「正解」を伝授する。
—
1. DocumentPropertiesの二重構造を理解する
PowerPointのプロパティには、Microsoft Office共通の規格である「組み込みプロパティ（BuiltInDocumentProperties）」と、ユーザーが独自に定義する「カスタムプロパティ（CustomDocumentProperties）」の2種類が存在する。
多くの開発者が陥る罠は、これらを同一視して雑に扱うことだ。
組み込みプロパティ（BuiltInDocumentProperties）
タイトル、作成者、会社名など、あらかじめ定義された項目だ。これらはインデックス（番号）または特定の名前でアクセスするが、「存在しないインデックス」や「読み取り専用項目への書き込み」で容易に実行時エラーを吐く。
カスタムプロパティ（CustomDocumentProperties）
「プロジェクトID」や「承認ステータス」など、独自項目を追加できる。しかし、「既にあるものを追加しようとする」あるいは「無いものを読み取ろうとする」と即座にクラッシュする。
この「コレクション操作の脆さ」をどう克服するかが、堅牢なコードへの第一歩だ。
—
2. 実践：プロパティ操作をカプセル化する堅牢な設計
場当たり的に `ActivePresentation.BuiltInDocumentProperties(“Title”) = “hoge”` と書くのは素人の仕事だ。プロは、存在チェックと型変換を内包したラッパー関数を構築する。
以下に、実務でそのまま使えるプロダクションレベルのコードを示す。
プロダクション・コード：メタデータの一括制御
Option Explicit
‘ — 列挙型でセキュリティ設定を定義（保守性の向上） —
Public Enum PptSecurityLevel
pslNone = 0
pslRemovePersonalInfo = 1
pslFullCleanup = 2
End Enum
”’
”’
Public Sub MasterPropertyController(ByRef targetPres As Presentation)
On Error GoTo ErrorHandler
‘ 1. 組み込みプロパティの更新
‘ インデックスではなく名前で指定するが、スペルミスを防ぐため慎重に扱う
With targetPres.BuiltInDocumentProperties
.Item(“Title”).Value = “2024年度 第3四半期 営業報告書”
.Item(“Author”).Value = “DX推進本部 アーキテクトチーム”
.Item(“Subject”).Value = “社外秘”
.Item(“Company”).Value = “Global Innovation Corp.”
.Item(“Keywords”).Value = “VBA, Automation, Report”
End With
‘ 2. カスタムプロパティの更新（存在チェックを伴う安全な書き込み）
SetCustomProperty targetPres, “ProjectCode”, “PX-999”, msoPropertyTypeString
SetCustomProperty targetPres, “LastAuditedBy”, “SystemBot”, msoPropertyTypeString
‘ 3. セキュリティ対策：個人情報の削除
‘ 外部送出前に、コメントや非表示スライド、ドキュメント検査で検知される項目を削除
ApplySecurityCleanup targetPres, pslRemovePersonalInfo
Debug.Print “Property Update Success: ” & targetPres.Name
Exit Sub
ErrorHandler:
MsgBox “Fatal Error in Property Control: ” & Err.Description, vbCritical
End Sub
”’
”’
Private Sub SetCustomProperty(ByRef pres As Presentation, ByVal propName As String, _
ByVal val As Variant, ByVal propType As MsoDocProperties)
Dim props As Object ‘ DocumentProperties
Set props = pres.CustomDocumentProperties
On Error Resume Next
‘ 既存チェック：一度削除してから追加するのが最も確実でコードが簡潔になる
props.Item(propName).Delete
On Error GoTo 0
props.Add Name:=propName, LinkToContent:=False, _
Type:=propType, Value:=val
End Sub
”’
”’
Private Sub ApplySecurityCleanup(ByRef pres As Presentation, ByVal level As PptSecurityLevel)
If level = pslNone Then Exit Sub
‘ 組み込みのドキュメント検査機能を利用
‘ ppRDIAll は Office 2007以降で利用可能な全スキャン
‘ 個人情報の削除フラグを立てる
pres.RemovePersonalInformation = True
‘ 指定した情報の削除（2010以降の定数を利用）
‘ 1: コメント、2: プロパティと個人情報、11: 非表示スライド
If level >= pslRemovePersonalInfo Then
pres.RemoveDocumentInformation ppRDIComments
pres.RemoveDocumentInformation ppRDIDocumentProperties
End If
If level = pslFullCleanup Then
pres.RemoveDocumentInformation ppRDIHiddenSlides
End If
End Sub
—
3. アーキテクトが教える「運用の急所」
なぜ `RemoveDocumentInformation` を使うのか？
手動で `Author` プロパティを空にしても、ファイルのバイナリ内には「編集時間」や「前回の印刷者」など、意図しないメタデータが残留する。`RemoveDocumentInformation` メソッドは、Microsoftが提供するドキュメント検査（Document Inspector）のエンジンを直接叩くものだ。コンプライアンスが厳しい現代において、この一行を自動化プロセスに入れるかどうかが、ツールの信頼性を分ける。
データベース連携時の注意点
もしDBから取得した値をプロパティに流し込む場合、Null値のハンドリングを絶対忘れてはならない。
`BuiltInDocumentProperties` は `Null` を受け付けない。必ず `CStr(Nz(val, “”))` （Access連携の場合など）のように、文字列へのキャストと空文字置換を行うこと。
パフォーマンスの視点
プロパティの操作自体は軽量だが、大量のファイル（数百、数千）に対して一括処理を行う場合は、`Application.ScreenUpdating = False` は当然として、`targetPres.Close` の前に `targetPres.Save` を忘れないこと。プロパティの変更は、保存しなければ確定されない。
—
4. 最後に：コードの向こう側にある「信頼」
VBAでスライドの見た目を整えるのは、いわば「化粧」だ。対して、ドキュメントプロパティを整えるのは「身元保証」である。
誰が作り、誰が責任を持ち、どのような機密レベルなのか。これを自動で、かつ正確に埋め込む仕組みを構築することは、単なる効率化を超えたデータのガバナンスそのものである。
君が書くその数行のプロパティ操作コードが、将来の誰かがファイルを検索する際の手助けとなり、あるいは重大な情報漏洩を防ぐ最後の砦となる。その矜持を持って、エディタに向かってほしい。
