Visio VBAを掌握せよ：`ActiveDocument`と`ThisDocument`の「境界線」を突破する
こんにちは。業務自動化の深淵へようこそ。
マクロの記録ボタンを押して生成されたコードを眺める段階は、もう卒業しましょう。Visio VBAを自在に操るエンジニアになるために、避けて通れない「絶対的な鉄則」があります。
それが、「今、コードはどこで実行され、どのファイルを操作しようとしているのか？」という、参照の規律です。
今日は、多くのエンジニアが躓く「`ActiveDocument`」と「`ThisDocument`」の使い分けについて、その本質を叩き込みます。ここを理解すれば、あなたのマクロは「動く」だけでなく「壊れない」ものへと進化します。
—
1. 概念の解剖：なぜこの2つは混同されるのか？
VisioのVBAにおいて、これらは「似て非なるもの」です。まずは、頭の中に以下の図式を描いてください。
- `ActiveDocument`（現在地）
- ユーザーが今、画面上で操作しているファイルのことです。
- ユーザーがタブを切り替えれば、即座に中身が変わります。非常に「気まぐれ」な存在です。
- `ThisDocument`（ホームベース）
- そのコードが「書かれているファイルそのもの」を指します。
- ユーザーがどのファイルを操作していようと、このコードが書かれているファイルが主語となります。非常に「誠実」な存在です。
—
2. なぜ「Active」に依存してはいけないのか？
初学者が陥る最大の罠は、すべての処理で `ActiveDocument` を使ってしまうことです。
「コードを実行した瞬間に、ユーザーが別のファイルにタブを切り替えたら？」
想像してください。処理の途中で操作対象がすり替わり、本来書き込むべきでない図面にデータを流し込む……。これが自動化における「惨事」の始まりです。
悪いコードの例
‘ ユーザーの操作に依存する不安定なコード
Sub BadExample()
‘ もし実行直前にユーザーが他ファイルをクリックしたら、データが破壊される
ActiveDocument.Pages(1).Shapes.Add …
End Sub
—
3. 鉄則：堅牢なコードのための「参照の固定化」
プロフェッショナルな設計では、「自分がどのドキュメントを操作したいのか」を冒頭で明示的に定義（キャプチャ）します。
推奨される堅牢な記述法
Sub RobustCode()
‘ 1. 操作対象を明示的に変数に格納する（参照の固定）
Dim targetDoc As Visio.Document
‘ ここで「自分自身のファイル」を操作するのか、
‘ 「今開いているファイル」を操作するのかを意図的に選択する
‘ パターンA：自分自身のコードが含まれるファイルを操作する
Set targetDoc = ThisDocument
‘ パターンB：現在アクティブなファイルを操作する（明示的キャプチャ）
‘ Set targetDoc = Application.ActiveDocument
‘ 2. 以降の処理はすべて targetDoc を経由する
‘ これにより、途中でユーザーが操作を変えても、ターゲットは揺るがない
Dim pg As Visio.Page
Set pg = targetDoc.Pages(1)
Debug.Print “操作対象は: ” & targetDoc.Name
End Sub
—
4. アドイン開発を見据えた「共通マクロ」の視点
将来的に、このマクロをアドイン化したり、別のファイルから呼び出したりすることを考えてみてください。
- `ThisDocument` は「そのモジュールが属するファイル」を指すため、アドイン化すると挙動が複雑になります。
- `ActiveDocument` は常に「現在操作中のもの」を指すため、汎用的なツールを作る際にはこちらが適しています。
ここでの結論：
ツールを作る際は、「処理対象のドキュメントを引数として受け取る」か、上記のように「変数に格納して固定する」癖をつけてください。
—
5. まとめ：今日から意識すべき「3つのステップ」
1. 「Active」という言葉を疑う： 「今、誰が操作している？」を常に疑う姿勢が、バグを減らします。
2. 変数のスコープを意識する： `ActiveDocument` をそのままコードのあちこちに散らばらせず、処理の冒頭で `Set doc = …` して固定する。
3. ThisDocumentは「設定ファイル」： 自分のファイル内にテンプレートや設定データを持っている場合のみ `ThisDocument` を使い、それ以外は `ActiveDocument` か、あるいは `Documents.Item(“filename.vsdx”)` で明示的に指定する。
—
先輩からのアドバイス
Visio VBAにおいて、オブジェクトへの参照を「なんとなく」扱うのは、コンパスを持たずに荒海へ出るようなものです。今日からコードを書くときは、「この処理はどのドキュメントを主語にしているか？」を一行目にコメントとして書くところから始めてみてください。
その小さな意識の差が、数ヶ月後のあなたを「トラブル対応」という名の残業から救うはずです。
さあ、次はどのオブジェクトの深淵を覗いてみましょうか？質問があれば、いつでもどうぞ。あなたのエンジニアリングを全力でサポートします。
