Visio VBAの深淵：メタデータ一括制御で実現する「管理されないファイル」からの脱却
業務自動化エンジニアとして多くの現場を見てきたが、未だに「図面の中身は完璧だが、プロパティが空っぽ」という惨状を放置しているプロジェクトが散見される。ドキュメント管理システムや検索エンジンにとって、メタデータが欠落したファイルは「存在しないも同然」だ。
今日は、Visioの`Document.BuiltInDocumentProperties`をハックし、VSDXのメタデータを堅牢に、かつ高速に最適化する手法を授ける。小手先の自動化ではなく、「ファイルライフサイクルを制御する」という観点でコードを組もう。
—
1. なぜ「手動更新」がエンジニアの墓場なのか
図面のタイトルや作成者、カテゴリをプロパティウィンドウからポチポチ入力しているようでは、プロフェッショナルとは呼べない。
- ヒューマンエラーの温床: 命名規則の崩壊。
- 工数の浪費: ファイル数が増えるほど、同期コストが指数関数的に増大する。
- メタデータの陳腐化: 内容とプロパティの乖離は、後工程での検索・分類を地獄に変える。
真のエンジニアは、外部データ（ExcelやDB）を正とし、それをVisioオブジェクトへ流し込むパイプラインを構築する。
—
2. 堅牢なメタデータ更新エンジンの設計思想
`BuiltInDocumentProperties`を扱う際、初心者が陥る罠は「存在しないプロパティへのアクセス」だ。
Visioのプロパティは、ドキュメントの作成状況やテンプレートによって、インデックスがずれたり、プロパティ自体が存在しないケースがある。
極意：`On Error Resume Next` で逃げるな。
各プロパティをオブジェクトとして取得し、存在判定を行ってから代入する「防衛的コーディング」こそが、プロダクションコードの最低条件だ。
—
3. 実装：VSDXメタデータ・オートメーション
以下のコードは、外部ソース（今回はDictionaryを想定）からメタデータを流し込み、最適化保存を行うためのモジュールだ。
Option Explicit
‘ @brief 指定されたプロパティを一括更新する堅牢な関数
‘ @param doc 対象となるVisioドキュメント
‘ @param propName プロパティ名
‘ @param propValue 設定する値
Public Sub UpdateDocProperty(doc As Visio.Document, propName As String, propValue As String)
Dim props As Object
Set props = doc.BuiltInDocumentProperties
On Error Resume Next
‘ プロパティの存在確認と更新
props(propName).Value = propValue
‘ プロパティが存在しない場合の処理（必要に応じて作成）
If Err.Number <> 0 Then
Debug.Print “Warning: Property ‘” & propName & “‘ not found. Creating…”
Err.Clear
props.Add propName, False, 4, propValue ‘ 4 = msoPropertyTypeString
End If
On Error GoTo 0
End Sub
‘ @brief メタデータ更新から保存までを完遂するメインルーチン
Public Sub OptimizeDocumentMetadata(filePath As String, title As String, author As String)
Dim doc As Visio.Document
‘ ファイルのオープン（非表示で開くことでパフォーマンス向上）
Set doc = Application.Documents.OpenEx(filePath, visOpenRO + visOpenNoUI)
‘ メタデータの流し込み
Call UpdateDocProperty(doc, “Title”, title)
Call UpdateDocProperty(doc, “Author”, author)
Call UpdateDocProperty(doc, “Company”, “Project-X Engineering”)
‘ 保存とクリーンアップ
‘ VSDXは保存時に最適化が走るため、明示的なSaveを実行する
doc.Save
doc.Close
Set doc = Nothing
End Sub
—
4. 現場で生き残るための「4つの鉄則」
1. `Application.Documents.OpenEx` を使いこなせ
単なる `Open` ではなく、`OpenEx` を使用し、`visOpenNoUI` フラグを立てろ。GUIを表示させずにバックグラウンドで処理することで、処理速度は劇的に向上し、意図しないイベントの発生を抑制できる。
2. PDF出力との連動性
メタデータを更新した後にPDF化する場合、必ず `Document.Export` メソッドを使用し、PDFのオプション（`visFixedFormatPDF`）を適切に設定せよ。メタデータが埋め込まれた状態でPDF化することで、文書管理のトレーサビリティが完成する。
3. トランザクションを意識せよ
大量のファイルを処理する場合、ファイルアクセスは常にリスクだ。
- 処理開始前にファイル属性（Read-Onlyでないか）をチェックすること。
- `Application.AlertResponse` を設定し、ダイアログによる処理停止を未然に防ぐこと。
4. キャッシュとメモリ管理
`Set doc = Nothing` は儀式ではない。Visioはオブジェクトの解放にシビアなアプリだ。巨大な図面を扱う際は、ループごとに `DoEvents` を挟み、Windowsのリソース状況を適度に解放する配慮を見せろ。
—
最後に：エンジニアとしての矜持
VBAはレガシーと言われることもある。だが、巨大な図面群を瞬時に制御し、組織のインフラを整える力は、どんなモダンな言語にも負けない武器だ。
「ファイルを開いて直す」という作業を「コードで定義する」という概念に変えたとき、君の業務は自動化から「エンジニアリング」へと昇華する。このコードをベースに、君の現場の課題を解決する強力なツールを組み上げてほしい。
準備はいいか。さあ、コードを書こう。
