叡智の断片：PowerPointプロパティ操作の深淵――メタデータ制御と情報の不可視化
ドキュメントのライフサイクルにおいて、視覚的なスライドの背後に潜む「メタデータ」を軽視する者は、プロフェッショナルとは呼べない。
我々シニアアーキテクトにとって、PowerPointファイルは単なるプレゼンテーション資材ではなく、一つの「構造化されたデータコンテナ」である。特に、企業内での自動生成システムや、数千件規模のアーカイブ処理においては、`DocumentProperties` の制御こそが、検索性、トレーサビリティ、そして情報セキュリティの根幹を成す。
本稿では、PowerPoint VBAを用いた組み込みプロパティおよびカスタムプロパティの操作、そして公開前に必須となる「個人情報の徹底排除」を自動化する極限の手法を解説する。
—
1. COMオブジェクトの闇：DocumentPropertiesの構造的理解
PowerPointにおけるプロパティ操作の起点は `ActivePresentation.BuiltInDocumentProperties` および `CustomDocumentProperties` である。しかし、ここには初心者が陥る「型」と「インデックス」の罠が潜んでいる。
組み込みプロパティの不安定さ
組み込みプロパティ（BuiltInDocumentProperties）は、`DocumentProperties` コレクションとして実装されているが、これらは実質的にOffice共通のCOMインターフェースを介して提供されている。
‘ 典型的なアクセス例
Dim title As String
title = ActivePresentation.BuiltInDocumentProperties(“Title”).Value
ここで重要なのは、「存在しないプロパティや、値が未設定のプロパティにアクセスした瞬間に、実行時エラーが発生する」という点だ。シニアエンジニアなら、直接アクセスを避け、必ずラッパー関数を介すべきである。
—
2. 実装：堅牢なメタデータ・インジェクター
以下に示すコードは、単なる代入ではない。オブジェクトの参照カウントを意識し、エラーハンドリングを完備した、システム統合に耐えうる実装例である。
Option Explicit
‘ —————————————————————————–
‘ 概要: プレゼンテーションのメタデータを一括制御する
‘ 備考: 参照設定に「Microsoft Office 16.0 Object Library」が必要
‘ —————————————————————————–
Public Sub ProfessionalMetadataManager()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
On Error GoTo ErrorHandler
‘ 1. 組み込みプロパティの更新
‘ インデックスではなく名前で指定するが、存在確認のロジックを内包させる
UpdateBuiltInProperty targetPres, “Title”, “【極秘】次世代アーキテクチャ設計書”
UpdateBuiltInProperty targetPres, “Author”, “Chief Architect Office”
UpdateBuiltInProperty targetPres, “Keywords”, “VBA, Automation, Security, Enterprise”
UpdateBuiltInProperty targetPres, “Comments”, “Auto-generated by System v1.0”
‘ 2. カスタムプロパティの更新（業務システムとの紐付け用）
‘ 独自の管理IDや承認ステータスを埋め込む
UpdateCustomProperty targetPres, “InternalID”, “SYS-999-XRAY”
UpdateCustomProperty targetPres, “ApprovalStatus”, “Approved”
MsgBox “メタデータの埋め込みが完了しました。”, vbInformation
CleanUp:
‘ オブジェクトの明示的解放
‘ 大規模ループ処理などでメモリリークを防ぐための鉄則
Set targetPres = Nothing
Exit Sub
ErrorHandler:
Debug.Print “Error: ” & Err.Number & ” – ” & Err.Description
Resume CleanUp
End Sub
Private Sub UpdateBuiltInProperty(ByRef pres As Presentation, ByVal propName As String, ByVal val As String)
On Error Resume Next
pres.BuiltInDocumentProperties(propName).Value = val
If Err.Number <> 0 Then
‘ 読み取り専用プロパティ（作成日時等）や、特殊なエラーへの対応
Debug.Print “Warning: Could not update BuiltInProperty: ” & propName
Err.Clear
End If
End Sub
Private Sub UpdateCustomProperty(ByRef pres As Presentation, ByVal propName As String, ByVal val As String)
Dim props As Object
Set props = pres.CustomDocumentProperties
On Error Resume Next
‘ 既存のプロパティがある場合は更新、ない場合は新規作成
props.Item(propName).Value = val
If Err.Number <> 0 Then
Err.Clear
‘ msoPropertyTypeString = 4
props.Add Name:=propName, LinkToContent:=False, _
Type:=4, Value:=val
End If
End Sub
—
3. セキュリティの極致：ドキュメント検査の自動化（RDI）
エンタープライズ領域において、最も致命的なのは「作成者の氏名」「編集時間」「非表示のスライド」といった機密情報の流出である。
PowerPointには `RemoveDocumentInformation` メソッド（RDI: Remove Document Information）が存在する。これをVBAから制御することで、ヒューマンエラーを排除した「クリーンなファイル」の自動生成が可能になる。
実行時引数の戦略
`RemoveDocumentInformation` メソッドには `PpRemoveDocInfoType` 列挙型を渡す。
- `ppRDIRemovePersonalInformation`: 個人情報
- `ppRDIComments`: コメントと注釈
- `ppRDIDocumentProperties`: プロパティ全体
- `ppRDIAll`: すべての情報の削除
‘ —————————————————————————–
‘ 概要: 公開用プロセスの最終工程。個人情報とコメントを完全に抹消する。
‘ —————————————————————————–
Public Sub FinalizePresentationForPublic()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ ドキュメント検査の自動実行
‘ これにより、プロパティ、コメント、非表示データ、カスタムXMLなどが一掃される
targetPres.RemoveDocumentInformation (ppRDIRemovePersonalInformation)
targetPres.RemoveDocumentInformation (ppRDIComments)
‘ 編集者が意図しない「隠れたデータ」を削除
‘ ここには、以前のバージョンへのリンクやサーバーパスが含まれる可能性がある
targetPres.RemoveDocumentInformation (ppRDIDocumentServerProperties)
Debug.Print “Security Check: Personal information removed.”
End Sub
—
4. シニアアーキテクトの視点：Windows APIによる補完
VBAの標準機能だけでは、ファイルシステムレベルの「読み取り専用属性」や「ファイル作成日時」の厳密な制御に限界がある。特にレガシーなファイルサーバ上での運用では、`kernel32.dll` を介した低レベル操作が必要になるケースがある。
例えば、プロパティ更新後にファイルの「最終更新日時」を意図的に固定したい場合、以下のAPI宣言が武器となる。
‘ Windows APIを用いたファイル時間操作（高度な保守用）
If VBA7 Then
Private Declare PtrSafe Function SetFileTime Lib “kernel32” (ByVal hFile As LongPtr, _
lpCreationTime As Any, lpLastAccessTime As Any, lpLastWriteTime As Any) As Long
Else
Private Declare Function SetFileTime Lib “kernel32” (ByVal hFile As Long, _
lpCreationTime As Any, lpLastAccessTime As Any, lpLastWriteTime As Any) As Long
End If
※注：APIを用いたファイル操作は、ファイルハンドル（CreateFile）の取得が必要であり、VBA内での完結よりも、外部連携ツール（C#等）との境界線上で検討されるべき技術である。
—
5. 結論：メタデータは意思を持つ
多くの開発者は、スライド上の図形（Shapes）やテキスト（TextFrame）の操作に終始する。しかし、システム管理者や監査部門が真に注視するのは、その「外枠」であるメタデータだ。
1. 冪等性の確保: 何回実行しても同じ状態（プロパティ）に収束するようにコードを書く。
2. 例外処理の徹底: COMオブジェクトは常に「欠落」している可能性があることを前提とする。
3. クリーンアップの自動化: `RemoveDocumentInformation` は、デプロイパイプラインの必須要件である。
これらを掌握して初めて、PowerPoint VBAは「おもちゃのスクリプト」から「エンタープライズ・コンポーネント」へと昇華する。君のコードが、組織のデータの整合性と安全性を守る最後の砦となることを期待する。
