Visio VBAの真髄：メタデータの一括制御で「管理の闇」を光に変える
こんにちは。自動化の現場でVisioと格闘し続けている皆さんに、今日は「図面管理の自動化」という、一見地味だが極めて重要な技術を伝授します。
多くの現場で、Visio図面の「プロパティ（タイトルや作成者など）」は放置されがちです。しかし、図面が100枚、1,000枚となったとき、これらが空白であることは、情報の墓場を作っているのと同じ。今日は、`BuiltInDocumentProperties`を使いこなし、メタデータを一括で制圧する手法を学びましょう。
—
1. なぜ「プロパティ」が重要なのか？
Windowsのエクスプローラーでファイルを検索する際、ファイル名だけで判断していませんか？ 本来、Visioのプロパティは「図面の履歴書」です。ここを整えるだけで、社内共有時の検索効率は劇的に向上します。
マクロの記録（レコーダー）では決して触れることのないこの領域を操作できるようになったとき、あなたは「ただの作業者」から「インフラの設計者」へと進化します。
—
2. 核心：Document.BuiltInDocumentPropertiesの正体
Visio VBAにおいて、メタデータは `Document` オブジェクトの配下にある `BuiltInDocumentProperties` コレクションで管理されます。
ここで重要なのは、「存在しないプロパティにアクセスするとエラーになる」という仕様です。初学者がまず躓くのはここです。いきなり値を代入しようとせず、プロパティが存在するか、あるいは正しく値が書き込める状態かを確認する「防御的プログラミング」が求められます。
—
3. 実践：メタデータ一括更新スクリプト
以下に、現在開いている図面のプロパティを安全に更新するコードを用意しました。これをベースに、Excelからデータを読み込むように拡張すれば、業務自動化の強力な武器になります。
Sub UpdateDocumentProperties()
Dim doc As Visio.Document
Dim props As Object
‘ 現在アクティブなドキュメントを取得
Set doc = ActiveDocument
‘ プロパティコレクションにアクセス
Set props = doc.BuiltInDocumentProperties
‘ エラーハンドリング：書き込み不可なプロパティへの干渉を防ぐ
On Error Resume Next
‘ タイトルと作成者の更新
props(“Title”).Value = “次世代インフラ設計図”
props(“Author”).Value = “自動化エンジニアチーム”
props(“Subject”).Value = “ネットワーク構成”
‘ エラー確認
If Err.Number <> 0 Then
Debug.Print “プロパティの書き込みに失敗しました: ” & Err.Description
Err.Clear
Else
Debug.Print “メタデータの更新が完了しました。”
End If
On Error GoTo 0
‘ 保存処理：この際、メタデータも一緒にコミットされる
doc.Save
MsgBox “図面のメタデータを最適化しました。”, vbInformation
End Sub
コードの解説
- `On Error Resume Next`: 特定のプロパティが読み取り専用だった場合にコードが止まるのを防ぎます。プログラミングの現場では「止まらないこと」が正義です。
- `doc.Save`: メタデータはメモリ上で変更されても、最後に保存しなければ反映されません。一括処理の際はここが最大のボトルネックになるため、ループ処理の回数には注意が必要です。
—
4. 陥りやすい罠と対策
① 「プロパティ名」の罠
`props(“Author”)` のような指定は、OSの言語設定によって日本語表記が必要な場合があります（例: `props(“作成者”)`）。環境が変わっても動くコードにするには、英語のインデックス名を使用するか、エラーハンドリングで言語設定を吸収する工夫が必要です。
② ファイル保存時のフリーズ
大量の図面を一度に書き換える場合、`doc.Save` を繰り返すとディスクI/Oで処理が重くなります。可能であれば、処理の合間に `DoEvents` を挟み、OSに呼吸をさせるのが「優しい」エンジニアの作法です。
—
5. 次のステップ：あなたへの挑戦状
今回のコードは「現在開いているファイル」を対象にしましたが、真の自動化エンジニアは「特定のフォルダ内の全VSDXファイルを一括処理」します。
`FileSystemObject` を使ってフォルダ内の全ファイルをループし、一つずつ開いてメタデータを更新し、閉じる。このサイクルが回せるようになれば、あなたの業務時間は劇的に短縮されます。
「マクロの記録」で生成される不格好なコードから卒業し、オブジェクトの寿命（ライフサイクル）を意識した美しいコードを書く。その第一歩を、ぜひこのプロパティ制御から始めてみてください。
分からないことがあれば、いつでも聞いてください。壁を越えるその瞬間まで、私が伴走しますよ。
