PowerPoint VBAの「闇」を支配する：CustomDocumentPropertiesによる永続化ステート管理術
PowerPoint VBAで大規模な業務自動化ツールを開発する際、避けて通れない壁がある。それは「設定値や編集履歴をどこに退避させるか」という問題だ。
テキストファイルやExcelを外部参照させる愚を犯してはならない。ファイルパスの変更、権限の問題、配布時のリンク切れ……これらは自動化ツールの寿命を縮める「負債」でしかない。
真のアーキテクトは、「プレゼンテーションファイル自体をデータベース化する」という選択肢を選ぶ。`Presentation.CustomDocumentProperties` を活用し、XMLやJSONをシリアライズして埋め込む。これが、配布可能かつ堅牢な業務ツールの唯一の正解だ。
—
なぜ「CustomDocumentProperties」なのか
`CustomDocumentProperties` は、PowerPointファイル内にメタデータとしてキーと値を保持する領域だ。この領域に構造化された文字列を格納することで、以下のメリットを享受できる。
1. 配布の完全性: ファイルを相手に送るだけで、設定値も履歴も全て同梱される。
2. 汚染の排除: スライド上に不可視の図形を配置してデータを隠すような、ハックじみた手法（かつて流行った「隠しシェイプ」）と決別できる。
3. 堅牢なステート管理: アプリケーション起動時にこの値をパースし、メモリ上のクラスインスタンスに展開することで、オブジェクト指向的なステート管理が可能になる。
—
設計：PersistenceStateマネージャの実装
まずは、この仕組みをカプセル化する設計思想を紹介する。
VBAには残念ながらJSONパーサが標準搭載されていないため、XML形式（MSXML2を使用）でシリアライズするのが、Windows環境における最も安定した道だ。
プロダクションコード：StateProviderクラス
このクラスは、特定のプレゼンテーションのカスタムプロパティを読み書きするインターフェースとして機能する。
‘ クラス名: StateProvider
Option Explicit
‘ 依存関係: Microsoft XML, v6.0 を参照設定すること
Private Const PROP_NAME As String = “App_State_Data”
Public Sub SaveState(ByVal xmlContent As String)
Dim ppt As Presentation
Set ppt = ActivePresentation
On Error Resume Next
‘ 既存のプロパティを削除して再作成（値の上書き更新のため）
ppt.CustomDocumentProperties(PROP_NAME).Delete
On Error GoTo 0
‘ 新規プロパティとして追加
ppt.CustomDocumentProperties.Add Name:=PROP_NAME, _
LinkToContent:=False, _
Type:=msoPropertyTypeString, _
Value:=xmlContent
End Sub
Public Function LoadState() As String
Dim ppt As Presentation
Set ppt = ActivePresentation
On Error Resume Next
LoadState = ppt.CustomDocumentProperties(PROP_NAME).Value
If Err.Number <> 0 Then LoadState = “” ‘ 初回起動時は空を返す
On Error GoTo 0
End Function
—
運用上の注意点：パフォーマンスと限界値
この手法を採用する上で、必ず知っておくべき「プロフェッショナルの境界線」がある。
- 容量の限界: カスタムドキュメントプロパティの文字列長には上限がある（数千文字程度）。巨大なログデータを全てここに放り込むのは禁忌だ。あくまで「設定値」「最後に実行したタスクのID」「フラグ」などの軽量なメタデータに絞るべきである。
- XMLパースのオーバーヘッド: ファイルを開くたびに全パースを行うと、スライド数が多い場合に起動時間が伸びる。`Application_PresentationOpen` イベントで一度だけ読み込み、モジュールレベル変数で保持する設計を徹底すること。
- 競合リスク: 複数人での同時編集（OneDrive/SharePoint等）が発生する場合、カスタムプロパティの書き込みは競合の温床となる。このツールは「特定の管理者が運用する業務自動化ツール」という文脈で最強の威力を発揮する。
—
実践的なステート復元シナリオ
単なるデータの保存・読み込みではなく、「アプリケーションの状態を復元する」コード例を示す。
‘ ツール起動時の初期化ロジック例
Public Sub InitializeApplication()
Dim provider As New StateProvider
Dim xmlData As String
xmlData = provider.LoadState()
If xmlData <> “” Then
‘ ここでMSXML2.DOMDocumentを使用してパースし、
‘ グローバルな設定オブジェクト（Configクラス等）に値をマッピングする
Debug.Print “状態を復元しました: ” & xmlData
Else
‘ 初回実行時のデフォルト値を設定
Debug.Print “新規ステートを作成します”
End If
End Sub
—
最後に：なぜ私はこの設計を勧めるのか
多くのエンジニアが、VBAのコード内にベタ書きされた定数や、外部のconfig.iniファイルに依存した設計で苦しんでいる。しかし、ファイルを開いたその瞬間に、そのファイルが持つ「文脈」を自己完結してロードできる仕組みこそ、真にメンテナンス性の高いツールと言える。
「ファイルの中に知能を閉じ込める」
このパラダイムシフトが、あなたの業務自動化ツールを「動くだけのスクリプト」から「堅牢なソフトウェア」へと昇華させるはずだ。設計に妥協せず、オブジェクトのライフサイクルをコントロールせよ。それができる者だけが、PowerPointという広大なキャンバスを完全に支配できる。
