Visio VBAを掌握せよ：`ThisDocument`と`ActiveDocument`の境界に潜む罠
Visio VBAにおける開発で、初心者が最も早く突き当たる壁、そして中級者が最も無防備に踏み抜く地雷がある。それが「ドキュメント参照の曖昧さ」だ。
特に、業務自動化ツールとしてVisioを組み込み、複数ドキュメントのバッチ処理や、アドイン（VSTO/COM）への移行を視野に入れたとき、`ActiveDocument`への無邪気な依存は、システムを崩壊させる「死のトリガー」となる。
今日は、伝説的アーキテクトの視点から、この参照の鉄則を叩き込む。
—
1. 存在意義の峻別：境界線はどこにあるか
まず、両者の本質を定義する。
- `ThisDocument`: コードが「物理的に」格納されているプロジェクト。VBAプロジェクトと運命を共にするコンテキストである。
- `ActiveDocument`: ユーザーが現在操作（フォーカス）している、極めて不安定なグローバル状態。
なぜ`ActiveDocument`が危険なのか？
`ActiveDocument`は、ユーザーのクリック一つで瞬時に切り替わる。マクロの実行中に別のウィンドウをクリックされただけで、処理対象が意図しないドキュメントにすり替わる。また、Visioのインスタンスが複数立ち上がっている場合や、バックグラウンドで別処理が走っている場合、このプロパティは「期待値」を裏切る。
—
2. 堅牢な参照のための「オブジェクト・コンテナ」設計
大規模開発において、参照をグローバルに依存させることは悪である。マクロを記述する際は、常に明示的にドキュメントオブジェクトを保持し、スコープ内に閉じ込めるのが鉄則だ。
以下のパターンを標準装備とせよ。
‘ 堅牢なドキュメント参照の基本パターン
Public Sub ProcessVisioDocument(ByVal targetDoc As Visio.Document)
‘ 引数で明示的に渡すことで、グローバルなActiveDocumentへの依存を排除する
If targetDoc Is Nothing Then Exit Sub
Dim docName As String
docName = targetDoc.Name
‘ 以下、targetDocを基準に処理を展開する
‘ ActiveDocumentには一切触れないことが、バグを生まない秘訣だ
End Sub
—
3. メモリの呪縛：COMオブジェクトの明示的解放
Visioのオブジェクトモデルは、強力だがメモリリークの温床でもある。特に`Application.Documents.Open`等で生成したオブジェクトは、参照の連鎖によりVBAのGC（ガベージコレクタ）がうまく機能しないケースが多い。
Sub RobustProcess()
Dim vApp As Visio.Application
Dim vDoc As Visio.Document
Set vApp = Application
‘ オブジェクトの明示的生成
Set vDoc = vApp.Documents.Open(“C:\Path\To\Template.vsdx”)
‘ ここで処理を行う
‘ …
‘ 【重要】明示的な解放とNothing代入
‘ COM参照のカウントを減らし、メモリリークを確実に防ぐ
vDoc.Close
Set vDoc = Nothing
Set vApp = Nothing
End Sub
—
4. アドイン移行を見据えた「アーキテクチャの抽象化」
将来的にVBAからC#（VSTO）への移行や、システム間連携を考えるなら、`ThisDocument`にコードを書き散らすのは今すぐやめるべきだ。すべてのロジックは「標準モジュール」に集約し、`Document`オブジェクトを引数として受け取る設計にせよ。
これにより、以下の利点が享受できる。
1. 単体テストの容易性: 特定のドキュメントを渡すだけでテストが可能になる。
2. マルチスレッド耐性: `ActiveDocument`への依存がないため、将来的な並列処理への拡張が容易。
3. レガシー対応: Windows APIを呼び出す際も、`hWnd`（ウィンドウハンドル）を`ActiveWindow.WindowHandle32`から取得するのではなく、操作対象から確実に特定できる。
—
5. 伝説のエンジニアからの「極限の知見」
最後に、一つだけ伝えておく。
「`Application` を省略するな」
VBAでは `ActivePage` や `ActiveDocument` と書けば動くが、それは `Application.ActiveDocument` を省略しているに過ぎない。大規模なシステムにおいて、暗黙の参照は「可読性の欠如」と「予期せぬエラー」の二大悪を呼び寄せる。
常に `Application` を基点とし、コンテキストを明示的に渡すこと。これが、Visio VBAを単なるマクロの集積から、保守可能な「システム」へと昇華させる唯一の道だ。
コードは、誰がいつ実行しても同じ結果を返す「純粋関数」に近づけること。それが、この過酷な開発現場で生き残るための、唯一の生存戦略である。
