【型安全なメタデータ管理】`Presentation.CustomDocumentProperties`のデータ型を厳密にハンドリングする極限のVBAライブラリ
VBAによるOffice自動化の現場において、プレゼンテーションの属性管理や外部データベース（SQL ServerやSharePoint等）との連携基盤を構築する際、最も見落としがされ、かつ致命的なバグの温床となるのが「カスタムドキュメントプロパティ（CustomDocumentProperties）の型安全性」である。
`CustomDocumentProperties` コレクションは一見すると非常に便利で、任意のキーに対して値のストア・リトリーバルを行える。しかし、その内部実装はCOMのVARIANT型に依存しており、VBA側で明示的な型管理を行わないと、「文字列として保存したはずがVariant/Stringになり、別環境ではなぜかVariant/EmptyやLongに化ける」「Date型がシリアル値に崩れ、SQL側でパースエラーを引き起こす」という、レガシー特有の悪夢のような挙動を引き起こす。
本稿では、PowerPointのオブジェクトモデルの深層を知り尽くしたアーキテクトの視点から、このメタデータ管理の脆弱性を完全に克服し、厳密な型安全性を担保するプロダクション品質のカスタムプロパティ操作ラッパーライブラリを提示する。
—
1. なぜ `CustomDocumentProperties` は危険なのか？
PowerPointの `Presentation.CustomDocumentProperties` は、Officeドキュメントの内部ストレージ（OPC形式であれば `docProps/custom.xml`）にキーバリューのメタデータを保持する。
ここに潜む構造的リスクは以下の3点に集約される。
1. 暗黙の型変換（Implicit Type Coercion）の恐怖
数値の `0` を渡したつもりが、Variantの挙動によりIntegerからLong、あるいはDoubleへ勝手に昇格、あるいは文字列として評価される。
2. 存在しないキーへのアクセス例外
存在しないプロパティ名を指定して取得を試みた場合、VBAでは捕捉しにくい実行時エラー（エラー番号：-2147467259 など）が容赦なく発生する。
3. 日付・真偽値のシリアライズ問題
特にBoolean型とDate型は、COMコンポーネントを介して書き戻される際に、それぞれInteger（`-1` / `0`）やDouble値へと劣化することが多く、システム間連携の致命傷となる。
これらを完全に封じ込め、「指定したデータ型で確実に取り出し、書き込む」ためのオブジェクト指向的アプローチによるラッパーモジュールを設計する。
—
2. 実装：型安全カスタムプロパティ操作クラス (`CustomPropertyManager`)
以下のコードは、エラーハンドリング、厳密な型チェック、そしてオブジェクトのライフサイクル管理を網羅した、クラスモジュール (`CustomPropertyManager.cls`) の実装である。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 ‘True
END
Attribute VB_Name = “CustomPropertyManager”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
‘ ==============================================================================
‘ 致命的な型崩れを防ぐカスタムプロパティ・マネージャー
‘ Architecture: 厳密な型制約付きCOMラッパー
‘ ==============================================================================
Private m_TargetPresentation As Presentation
‘ サポートするデータ型の列挙体（外部システム連携用）
Public Enum MetaDataType
DataType_String = 1
DataType_Long = 2
DataType_Double = 3
DataType_Boolean = 4
DataType_Date = 5
End Enum
‘ コンストラクタ代わりとなる初期化メソッド
Public Sub Initialize(ByVal targetPres As Presentation)
If targetPres Is Nothing Then
Err.Raise 91, “CustomPropertyManager”, “対象のプレゼンテーションが参照されていません。”
End If
Set m_TargetPresentation = targetPres
End Sub
‘ デストラクタ（メモリ・参照の明示的解放）
Private Sub Class_Terminate()
Set m_TargetPresentation = Nothing
End Sub
‘ ==============================================================================
‘ 型安全な値の設定 (Set)
‘ ==============================================================================
Public Sub SetValue(ByVal propName As String, ByVal val As Variant, ByVal dataType As MetaDataType)
Dim props As Office.DocumentProperties
Set props = m_TargetPresentation.CustomDocumentProperties
‘ 既存の同名プロパティが存在する場合は一度削除して型競合を防ぐ
Call DeletePropertyInternal(props, propName)
‘ 型に応じた厳密なキャストと追加処理
Select Case dataType
Case MetaDataType.DataType_String
props.Add Name:=propName, LinkToContent:=False, Type:=msoPropertyTypeString, Value:=CStr(val)
Case MetaDataType.DataType_Long
props.Add Name:=propName, LinkToContent:=False, Type:=msoPropertyTypeNumber, Value:=CLng(val)
Case MetaDataType.DataType_Double
props.Add Name:=propName, LinkToContent:=False, Type:=msoPropertyTypeNumber, Value:=CDbl(val)
Case MetaDataType.DataType_Boolean
‘ BooleanはCOM経由だと不安定なため、Integer(-1/0)を経て確実に数値として格納し、メタデータ側で解釈する
Dim bVal As Integer
bVal = IIf(CBool(val), -1, 0)
props.Add Name:=propName, LinkToContent:=False, Type:=msoPropertyTypeBoolean, Value:=bVal
Case MetaDataType.DataType_Date
If Not IsDate(val) Then
Err.Raise 13, “CustomPropertyManager”, “指定された値は有効な日付ではありません: ” & CStr(val)
End If
‘ 日付はISO8601文字列またはシリアル値の混同を防ぐため、強制的にDate型としてバインド
props.Add Name:=propName, LinkToContent:=False, Type:=msoPropertyTypeDate, Value:=CDate(val)
Case Else
Err.Raise 5, “CustomPropertyManager”, “未定義のデータ型が指定されました。”
End Select
‘ 参照の解放（COMリーク防止）
Set props = Nothing
End Sub
‘ ==============================================================================
‘ 型安全な値の取得 (Get)
‘ ==============================================================================
Public Function GetValue(ByVal propName As String, ByVal dataType As MetaDataType, Optional ByVal defaultValue As Variant = Empty) As Variant
Dim props As Office.DocumentProperties
Set props = m_TargetPresentation.CustomDocumentProperties
Dim prop As Office.DocumentProperty
On Error GoTo ErrorHandler
Set prop = props(propName)
If prop Is Nothing Then
GetValue = defaultValue
GoTo CleanUp
End If
‘ 期待する型への厳密な変換と返却
Select Case dataType
Case MetaDataType.DataType_String
GetValue = CStr(prop.Value)
Case MetaDataType.DataType_Long
GetValue = CLng(prop.Value)
Case MetaDataType.DataType_Double
GetValue = CDbl(prop.Value)
Case MetaDataType.DataType_Boolean
GetValue = CBool(prop.Value)
Case MetaDataType.DataType_Date
GetValue = CDate(prop.Value)
Case Else
GetValue = prop.Value
End Select
CleanUp:
Set prop = Nothing
Set props = Nothing
Exit Function
ErrorHandler:
‘ プロパティが存在しないエラー (-2147024809 / 0x80070057 等) の場合はデフォルト値を返す
GetValue = defaultValue
Resume CleanUp
End Function
‘ ==============================================================================
‘ 内部ユーティリティ：プロパティの安全な削除
‘ ==============================================================================
Private Sub DeletePropertyInternal(ByRef props As Office.DocumentProperties, ByVal propName As String)
Dim i As Long
On Error GoTo CleanUp
For i = props.Count To 1 Step -1
If StrComp(props(i).Name, propName, vbTextCompare) = 0 Then
props(i).Delete
Exit For
End If
Next i
CleanUp:
End Sub
—
3. 実践：社内DB連携を想定したモダンな呼び出し例
上記のクラスモジュールを組み込むことで、クライアントコード側はデータ型の不一致や例外処理の煩雑さから完全に解放される。以下に標準モジュールでの実用的な利用例を示す。
Option Explicit
Sub Example_MetadataOperation()
Dim mgr As CustomPropertyManager
Set mgr = New CustomPropertyManager
‘ アクティブなプレゼンテーションを対象に初期化
mgr.Initialize ActivePresentation
‘ 1. 各種メタデータの型安全な書き込み
mgr.SetValue “ProjectID”, 1048576, DataType_Long
mgr.SetValue “ApprovalStatus”, True, DataType_Boolean
mgr.SetValue “LastSynced”, Now, DataType_Date
mgr.SetValue “AuthorName”, “Chief Architect”, DataType_String
‘ 2. メタデータの型安全な読み出し（システム連携時のシミュレーション）
Dim projId As Long
Dim isApproved As Boolean
Dim syncDate As Date
Dim author As String
projId = mgr.GetValue(“ProjectID”, DataType_Long, 0)
isApproved = mgr.GetValue(“ApprovalStatus”, DataType_Boolean, False)
syncDate = mgr.GetValue(“LastSynced”, DataType_Date, #1/1/1970#)
author = mgr.GetValue(“AuthorName”, DataType_String, “Anonymous”)
‘ デバッグ出力（イミディエイトウィンドウで確認）
Debug.Print “Project ID: ” & projId & ” (” & TypeName(projId) & “)”
Debug.Print “Approved: ” & isApproved & ” (” & TypeName(isApproved) & “)”
Debug.Print “Sync Date: ” & syncDate & ” (” & TypeName(syncDate) & “)”
Debug.Print “Author: ” & author & ” (” & TypeName(author) & “)”
‘ 明示的解放
Set mgr = Nothing
End Sub
—
4. チーフアーキテクトが教える：運用時の極限知見
COMオブジェクトの参照リークとメモリ最適化
VBAにおいて `ActivePresentation.CustomDocumentProperties` のようなプロパティチェーンを記述すると、背後で暗黙的なCOMオブジェクト（`DocumentProperties` コレクション）のインスタンスが生成される。これらを `Set props = Nothing` や `Set prop = Nothing` によって明示的に解放しないと、特に大規模なバッチ処理や数千枚のスライドを巡回する自動化プロセスにおいてメモリリークを引き起こし、PowerPointの突然の強制終了（プロセス落ち）を誘発する。
本ライブラリでは、内部ローカル変数に対して確実に `Nothing` 代替を行っており、長時間稼働するサーバーサイド・アドインの基盤としても耐えうる設計としている。
レガシー環境と新規格（.pptx / .xml）の差異への配慮
`.ppt`（バイナリ形式）と `.pptx`（OpenXML形式）では、カスタムプロパティの内部ストレージ構造が異なる。バイナリ形式ではOLEプロパティストリームの制限により、長すぎる文字列や特殊文字を含むキー名で破損リスクが高まる。
実運用では、キー名（`propName`）に対して半角英数字とアンダースコア（`^[a-zA-Z0-9_]+$`）のみを許可するバリデーションを `SetValue` の先頭に挟むことで、レガシー環境特有のファイル破損バグを未然に防ぐことが、プロフェッショナルなアーキテクチャの条件となる。
