PowerPoint VBAの深淵：埋め込みメタデータによる「自己記述型プレゼンテーション」の構築
外部ログファイルやデータベースへの依存は、配布用プレゼンテーションにおいては時として足枷となる。ファイルが移動すればリンクは切れ、アクセス権限の問題が浮上する。ならば、「プレゼンテーション自身に自身の歴史を刻ませる」のが、最も堅牢かつ高潔なアーキテクチャである。
本稿では、`CustomDocumentProperties`を駆使し、外部依存を排除した不可視の監査ログシステムを構築する術を伝授する。
—
1. なぜ「外部ファイル」ではなく「CustomDocumentProperties」なのか
多くのエンジニアがログ保存先にテキストファイルやExcelを選ぶ。だが、プレゼンテーションをメールで送付する際、ログファイルが欠落すれば履歴は途絶える。
`CustomDocumentProperties`は、Office Open XMLフォーマット（.pptx）の内部メタデータ領域に直接書き込まれる。ファイル単体で履歴が完結し、かつ標準的なUIからは隠蔽されているため、意図しない改ざんや誤操作のリスクを最小化できる。これこそが、堅牢なシステム設計の極意である。
—
2. ログ蓄積エンジンの実装：実戦的コード
以下に、Windows APIを利用して現在時刻と実行ユーザー情報を取得し、`CustomDocumentProperties`へ追記するモジュールを提示する。
実装のポイント
- メモリ解放: `Object`変数は明示的に`Nothing`を代入し、VBAのガベージコレクションに頼らぬリソース管理を徹底する。
- エラーハンドリング: プロパティ未作成時の初期化ロジックを内包させる。
Option Explicit
‘ Windows API: 実行ユーザー名取得用
Private Declare PtrSafe Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” _
(ByVal lpBuffer As String, nSize As Long) As Long
”’
”’
Public Sub AppendExecutionLog()
Dim pptPres As Presentation
Dim customProps As DocumentProperties
Dim logProp As DocumentProperty
Dim logKey As String: logKey = “ExecutionHistory”
Dim logEntry As String
Set pptPres = ActivePresentation
Set customProps = pptPres.CustomDocumentProperties
‘ 実行ログの生成
logEntry = “[” & Now & “] User: ” & GetCurrentUserName & vbCrLf
On Error Resume Next
‘ プロパティの存在確認と取得
Set logProp = customProps.Item(logKey)
If Err.Number <> 0 Then
‘ 未作成の場合は新規作成
customProps.Add Name:=logKey, LinkToContent:=False, _
Type:=msoPropertyString, Value:=logEntry
Else
‘ 既存ログに追記（メモリ効率を考慮し、末尾に結合）
logProp.Value = logProp.Value & logEntry
End If
On Error GoTo 0
‘ オブジェクトの明示的解放（メモリ最適化）
Set logProp = Nothing
Set customProps = Nothing
Set pptPres = Nothing
End Sub
Private Function GetCurrentUserName() As String
Dim buffer As String 255
Dim length As Long
length = 255
If GetUserName(buffer, length) <> 0 Then
GetCurrentUserName = Left$(buffer, length – 1)
Else
GetCurrentUserName = “Unknown”
End If
End Function
—
3. シニアエンジニアが意識すべき「隠れた境界条件」
この実装を実戦投入する際、以下の3点に注意を払わなければならない。
① 文字列長の制限
`CustomDocumentProperties`の文字列値には上限がある。数年運用するとメモリ溢れや書き込みエラーが発生する可能性があるため、ログの行数が一定（例：100行）を超えた場合、古い行を削除してFIFO（先入れ先出し）構造を維持するロジックを組み込むのが「プロフェッショナルの仕事」である。
② セキュリティとマクロ警告
マクロを含むプレゼンテーション（.pptm）は、現代のOffice環境においてセキュリティ制限が厳しい。デジタル署名を付与し、社内の信頼された発行元として登録することを強く推奨する。
③ 読み取り専用環境への配慮
プレゼンテーションが読み取り専用で開かれている場合、`CustomDocumentProperties`への書き込みは失敗する。`ActivePresentation.ReadOnly`プロパティを事前にチェックし、書き込み不可の場合は警告を出さず静かにログ出力をスキップする制御を入れるのが、ユーザービリティを損なわない設計だ。
—
結びに代えて：自動化の先にある「保守性」
私は長年、現場で「コードが動くこと」と「コードが運用に耐えうること」の間の深い溝を見てきた。今回紹介した手法は、単なる機能実装ではない。プレゼンテーションという一つの閉じたオブジェクトに、時間軸という「履歴」を付与するアーキテクチャだ。
システムを構築する諸君、技術の表面的な利用にとどまらず、オブジェクトのライフサイクルと、その背後にあるデータの整合性にまで想いを馳せてほしい。それが、伝説的な自動化エンジニアへの第一歩である。
何かあれば、また問いかけてくれ。VBAの深淵で待っている。
