Visio VBAを掌握する極限の知見：保存イベントをハックし、図面メタデータを完全自動制御する
図面管理において最大のボトルネックは何か？ それは「人間の手作業によるメタデータの入力漏れ」だ。
「作成者が空欄」「プロジェクトコードが古い」「更新日が実態とズレている」。ISO監査や構成管理の現場において、こうした不備は致命傷になり得る。
プロの業務自動化エンジニアであれば、これをヒューマンエラーに委ねてはならない。Visioの「名前を付けて保存」の瞬間をフックし、ドキュメントプロパティへ組織の統制下にある正確なメタデータを強制書き込みする仕組みをVBAで構築する。
今回は、Visioのイベントモデルの暗部を知り尽くした私が、バグの起きない堅牢なメタデータ自動挿入アーキテクチャを伝授する。
—
1. なぜ「普通のVBAコード」では破綻するのか？
多くの初学者は、`ActiveDocument.SaveAs` メソッドの前後でプロパティを書き換えるだけの場当たり的なマクロを組む。だが、それでは以下の実務的リスクを防げない。
1. ユーザーが「名前を付けて保存」ダイアログで保存した際に対応できない
通常のUI操作（Ctrl+Sやファイルメニューからの保存）をコードで完全にはインターセプトできない。
2. イベントの二重発火と無限ループ
保存イベント内でドキュメントを再保存（Save）しようとすると、イベントが連鎖してVBAがクラッシュする。
3. ビルトインプロパティとカスタムプロパティの仕様違い
Visioの `DocumentProperties`（ビルトイン）と `DocumentSheet.CellsU`（カスタムプロパティ/ShapeSheet）のライフサイクルの違いを理解していないと、読み取り専用エラーや値の揮発に悩まされる。
これを解決するには、Visioのグローバルイベントハンドラ（Application Events）を正しく実装し、保存処理のトランザクションを掌握する必要がある。
—
2. 堅牢な設計アプローチ：クラスモジュールによるイベント監視
Visio VBAで安全にイベントを捉えるには、通常の標準モジュールだけでは不十分だ。`Visio.Application` のイベントを `WithEvents` を使ったクラスモジュールでラップし、アプリケーションのライフサイクル全体で監視を維持しなければならない。
アーキテクチャの全体像
- `ThisDocument`: マクロ有効図面の起点。起動時にイベント監視クラスを初期化する。
- `ClsVisioEvents`: `Visio.EApplication` を継承し、`BeforeDocumentSave` イベントをキャッチする。
- メタデータ注入ロジック: 保存直前にドキュメントプロパティおよびShapeSheetへ確実に値を流し込む。
—
3. プロダクションコード実装例
以下のコードは、エラーハンドリングを完備し、実際の開発現場でそのまま稼働するプロダクション品質のコードである。
① クラスモジュール：`ClsVisioEvents`
プロジェクトにクラスモジュールを追加し、名前を `ClsVisioEvents` に変更して以下のコードを貼り付けてほしい。
Option Explicit
‘ Visioアプリケーションのイベントをフックするための宣言
Public WithEvents VisApp As Visio.Application
‘ ドキュメントが保存される直前に発生するイベント
Private Sub VisApp_BeforeDocumentSave(ByVal Doc As Visio.Document)
On Error GoTo ErrorHandler
‘ テンポラリファイルや未保存の新規ドキュメントは対象外とする
If Doc.Path = “” Then Exit Sub
‘ 無限ループ防止のため、イベントの伝播を一時停止
VisApp.EventEnabled(visEvtModAdd) = False
‘ — メタデータの自動挿入・更新処理 —
Call SetDocumentMetadata(Doc)
‘ 変更を確定するためにサイレント保存を実行
‘ ※無限ループに陥らないよう、BeforeDocumentSave内での過度なSaveは避けるが、
‘ プロパティの変更のみであればVisioが自動的にダーティフラグを立ててくれる。
ErrorHandler_Exit:
‘ イベント監視を復元
VisApp.EventEnabled(visEvtModAdd) = True
Exit Sub
ErrorHandler:
MsgBox “メタデータの自動書き込み中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “メタデータ制御システム”
Resume ErrorHandler_Exit
End Sub
‘ メタデータをドキュメントプロパティおよびカスタムセルに書き込むコアロジック
Private Sub SetDocumentMetadata(ByVal targetDoc As Visio.Document)
Dim props As Visio.DocumentProperties
Set props = targetDoc.DocumentProperties
‘ 1. ビルトインプロパティの設定
On Error Resume Next ‘ 読み取り専用や環境依存によるエラーを回避
props.Item(“Author”) = “インフラ運用自動化チーム”
props.Item(“Company”) = “Enterprise Architecture Corp.”
props.Item(“Manager”) = “DevOps Division”
props.Item(“Category”) = “Network Topology”
On Error GoTo 0
‘ 2. カスタムメタデータ（ドキュメントのShapeSheetへ直接埋め込み）
‘ 図面固有のカスタムプロパティ（DocumentSheet）を取得
Dim docSheet As Visio.Shape
Set docSheet = targetDoc.DocumentSheet
‘ プロジェクトコード（存在しない場合は行を追加して設定）
Call SetUserDefinedCell(docSheet, “Prop.ProjectCode”, “PRJ-202X-A01”, “プロジェクトコード”)
‘ 最終更新自動スタンプ
Call SetUserDefinedCell(docSheet, “Prop.LastAutoUpdate”, Format(Now, “yyyy-mm-dd hh:nn:ss”), “最終自動更新日時”)
End Sub
‘ ShapeSheetのUser-definedセルの安全な設定ヘルパー
Private Sub SetUserDefinedCell(shp As Visio.Shape, cellName As String, cellValue As String, prompt As String)
Dim cell As Visio.Cell
On Error Resume Next
Set cell = shp.CellsU(cellName)
If Err.Number <> 0 Then
‘ セルが存在しない場合は行を追加
shp.AddNamedRow visSectionUser, Mid(cellName, InStr(cellName, “.”) + 1), visTagDefault
Set cell = shp.CellsU(cellName)
Err.Clear
End If
On Error GoTo 0
If Not cell Is Nothing Then
cell.FormulaU = “””” & cellValue & “”””
‘ プロンプト（説明文）の設定
Dim promptCell As Visio.Cell
Set promptCell = shp.CellsU(cellName & “.Prompt”)
If Not promptCell Is Nothing Then promptCell.FormulaU = “””” & prompt & “”””
End If
End Sub
② 標準モジュール / `ThisDocument`：イベントの初期化
Visioを開いた瞬間からイベント監視を有効化するため、`ThisDocument` モジュールに以下を記述する。
Option Explicit
Private cVisioEvents As ClsVisioEvents
Private Sub Document_Open()
‘ アプリケーションイベントを有効化するクラスをインスタンス化
Set cVisioEvents = New ClsVisioEvents
Set cVisioEvents.VisApp = Visio.Application
‘ デバッグ用（実運用ではコメントアウト推奨）
‘ Debug.Print “Visio Metadata Controller: Activated.”
End Sub
Private Sub Document_Close()
‘ クリーンアップ
Set cVisioEvents = Nothing
End Sub
—
4. エンジニアリング上の重要な注意点（トラブルシューティング）
1. マクロセキュリティとVSDMフォーマット
この仕組みを組み込んだ図面は、必ずマクロ有効図面形式（`.vsdm`）として保存する必要がある。 `.vsdx` ではVBAコード自体がストリップ（削除）されるため動作しない。組織内で展開する場合は、信頼できる場所（Trusted Locations）の事前設定をグループポリシー（GPO）等で徹底すること。
2. PDF出力時のメタデータ継承
もしこのマクロと連動してPDF出力を自動化する場合、VisioのPDFパブリッシュエンジンはドキュメントプロパティ（AuthorやTitle）をPDFのドキュメント情報へそのまま引き継ぐ仕様になっている。つまり、このVBAでプロパティを制御することで、出力されるPDFのメタデータ品質も同時に担保されるという強力なシナジーが生まれる。
—
総括
システム開発の現場において、「ルールで縛る」のは三流の手法である。二流は「チェックツールを別に用意する」。そして、一流のエンジニアは「業務のフローそのもの（保存という不可避なアクション）に統制を組み込む」。
今回提供したコードベースを活用すれば、図面のメタデータ不備という無駄なオーバーヘッドを組織から永久に排除できる。
VBAを単なる「マクロ」ではなく、「アプリケーションの挙動を支配するアーキテクチャ」として使いこなし、真の業務自動化を達成してほしい。
