【実務・中級編】ActiveDocumentとThisDocumentの明確な使い分け：アドイン開発や共通マクロでハマらない参照の鉄則 – Visio VBA解析バイブル

Visio VBAの「魔境」を突破せよ：ActiveDocumentとThisDocumentの境界線

Visio VBAを触り始めたエンジニアが、まず最初に遭遇し、そして多くの者が「なぜか動かない」「別のファイルに書き込んでしまった」と頭を抱えるのがActiveDocumentとThisDocumentの混同です。

これは単なる「使い分け」の問題ではありません。あなたの書いたコードが、「ただのスクリプト」で終わるか、「堅牢な業務自動化ツール」へと昇華するかを分かつ、設計思想の根幹です。

今日は、Visioのオブジェクトモデルを掌握し、トラブルゼロの自動化環境を構築するための「鉄則」を授けます。

—

1. なぜActiveDocumentは「禁断の果実」なのか

多くの初学者が `ActiveDocument` を多用するのは、それが「今見ているファイル」を指すという直感に合致しているからです。しかし、業務自動化の世界では、これほど危険なものはありません。

ActiveDocumentの脆弱性

• フォーカス依存: ユーザーがマクロ実行中に誤って別のVisioファイルをアクティブにすると、処理対象が即座に切り替わります。
• 並列処理の限界: 複数ドキュメントをループで回すような高度な自動化において、Activeの概念は崩壊します。

ThisDocumentの立ち位置

• `ThisDocument` は、「このVBAコードが格納されているドキュメントそのもの」を指します。
• モジュールではなく、ドキュメントオブジェクトのスコープで定義されているため、ファイル単位でロジックをカプセル化する際に極めて強力です。

—

2. 鉄則：明示的な参照（Explicit Reference）の設計

プロダクションレベルのコードでは、`ActiveDocument` に頼る設計を捨て、「どのドキュメントを操作対象にするか」を引数や変数で明示的に渡すのがプロの流儀です。

悪い設計（バグの温床）

‘ どこがアクティブか依存してしまう
Sub BadCode()
ActiveDocument.Pages(1).Shapes(1).Text = “失敗の源”
End Sub

良い設計（堅牢なプロダクションコード）

操作対象を明示的に指定し、`Document` オブジェクトを関数に渡す設計にします。

‘ ターゲットを明示的に指定する設計
Sub ProcessDocument(targetDoc As Visio.Document)
Dim pag As Visio.Page
Set pag = targetDoc.Pages(1)

‘ オブジェクトのライフサイクルを考慮した記述
Debug.Print “Processing: ” & targetDoc.Name
pag.Shapes(1).Text = “成功の設計”
End Sub

‘ 呼び出し元で制御する
Sub Main()
‘ 自分自身のファイルを操作する場合
ProcessDocument ThisDocument

‘ 別のファイルを開いて操作する場合
Dim doc As Visio.Document
Set doc = Application.Documents.Open(“C:\Work\Target.vsdx”)
ProcessDocument doc
End Sub

—

3. アドイン・共通ライブラリ化を見据えた「参照の極意」

将来的に、作成したコードを `.vsl` (アドイン) 化したり、別ファイルから呼び出す共通関数として整備する場合、`ThisDocument` の取り扱いには注意が必要です。

• VBAプロジェクトの参照: 別のドキュメントから関数を呼ぶ際、`ThisDocument` は「呼び出し元のドキュメント」を指すのか、「コードが格納されているドキュメント」を指すのかを意識する必要があります。
• グローバルなApplicationオブジェクト: Visioのルートである `Application` は常に一つです。`Application.ActiveDocument` を使うのは、本当に「ユーザーが今選択しているファイルを処理したい」という要件がある時のみに限るべきです。

—

4. エンジニアが守るべき3つのコーディング規約

1. 暗黙的参照を禁止する: `ActiveDocument` や `ActivePage` という単語をコード中で検索し、もし存在したら「明示的な変数」に置換できないか検討してください。
2. オブジェクトの解放を怠らない: 大規模なループ処理を行う場合、`Set pag = Nothing` 等でオブジェクト参照を適切に解放し、メモリリークを防ぐ姿勢が重要です。
3. エラーハンドリングでDocumentを捕捉する: 処理の冒頭で `If targetDoc Is Nothing Then Exit Sub` のようなチェックを入れ、存在しないドキュメントへのアクセスを未然に防ぎます。

—

まとめ：あなたのコードは「意志」を持つべきだ

Visio VBAにおける `ActiveDocument` と `ThisDocument` の使い分けは、コードの「意図」を明確にすることと同義です。

• ThisDocument は、コードの「帰属先」である。
• ActiveDocument は、ユーザーの「気まぐれ」に左右される。

業務自動化エンジニアとして目指すべきは、ユーザーがどの画面を開いていようが、どのウィンドウにフォーカスがあろうが、「設計した通りに確実にファイルを特定し、正確に操作を行う」システムです。

この「明確な参照」を習慣にするだけで、あなたの作成する自動化ツールの品質は一気にプロレベルへと引き上がります。さあ、今すぐあなたのコードから `ActiveDocument` を追い出し、堅牢なオブジェクト操作を実装してください。