こんにちは！Visioの自動化の世界へようこそ。
マクロの記録ボタンを押してコードを覗いてみたものの、「なんだか生成されたコードがごちゃごちゃしていて難しいぞ…？」と感じていませんか？
ここをクリアすれば、Visio VBAの基本はバッチリですよ。今日は、現場のエンジニアが絶対に知っておくべき「ActivePageに依存しない、極限まで堅牢なオブジェクトの操り方」を優しく、そして深く伝授します。
—
1. なぜ「ActivePage」は罠だらけなのか？
VisioでVBAを書き始めると、一番最初に目にするのがこのオブジェクトです。
‘ よくあるマクロの記録的コード
ActivePage.DrawRectangle 0, 0, 5, 5
一見すると、「いま開いているページに四角形を描く」という直感的なコードに見えますよね。しかし、これが複数図面（ドキュメント）を同時に扱う実務の世界に入った途端、凶悪なバグを生み出す魔物に変貌します。
バックグラウンド処理の恐怖
`Active`という名前がついている通り、これらは「いまユーザーが画面の最前面で触っているウィンドウの状態」に完全に依存しています。
もしあなたのマクロが実行されている最中に、ユーザーがうっかり別のVisioファイルをポチッとクリックしたらどうなるでしょうか？
アクティブウィンドウが切り替わり、意図しない図面の、意図しないページに向かってコードが暴走し始めます。最悪の場合、エラーで強制終了するか、気づかないうちにファイルを破壊してしまうことさえあるのです。
プロのエンジニアが目指すべきは、「ユーザーが画面のどこをクリックしていようとも、狙った標的を確実に撃ち抜くコード」です。
—
2. Visioオブジェクトモデルのピラミッド構造を理解する
Visioの内部構造は、次のようなピラミッド（階層構造）になっています。
[Application] （Visioアプリ全体）
└─ [Documents] （開かれているファイルたち）
└─ [Document] （特定のファイル）
└─ [Pages] （そのファイルの中のページたち）
└─ [Page] （特定のページ）
└─ [Shapes] （図形たち）
`ActivePage` や `ActiveDocument` を使うのは、いわば「今、自分の目の前に広げている地図だけを頼りに目的地を探す行為」です。そうではなく、「住所（オブジェクトの参照）を直接指定して、そこに一発でアクセスする」のが堅牢なコードへの第一歩です。
—
3. 実装：アクティブ状態に依存しない「安全なページ取得」
それでは、具体的なコードを見ていきましょう。
以下のコードは、現在アクティブなウィンドウに一切頼らず、コード内で明示的に指定したファイルとページを確実に操作するサンプルです。
Sub CreateShapeSafely()
‘ 1. 変数の宣言（型を明確に指定するのがプロの流儀です）
Dim targetDoc As Visio.Document
Dim targetPage As Visio.Page
Dim shp As Visio.Shape
‘ 2. 処理対象のドキュメントを明示的に取得
‘ （ここでは現在アクティブなドキュメントを例にしますが、Workbooks.Openなどで開いたドキュメントでもOKです）
On Error Resume Next
Set targetDoc = ActiveDocument
On Error GoTo 0
‘ ドキュメントが1つも開かれていない場合のガード節
If targetDoc Is Nothing Then
MsgBox “操作対象のドキュメントが存在しません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 3. 【重要】Documentオブジェクトから直接Pageを取得する
‘ ActivePageを使わず、targetDoc.Pagesコレクションから名前やインデックスで指名買いします
On Error Resume Next
Set targetPage = targetDoc.Pages(“基本設計図”) ‘ ページ名を指定
On Error GoTo 0
‘ 指定したページが見つからなかった場合のガード節
If targetPage Is Nothing Then
MsgBox “指定されたページ「基本設計図」が見つかりません。”, vbExclamation, “警告”
Exit Sub
End If
‘ 4. 取得した安全なPageオブジェクトに対して処理を実行
‘ ユーザーが別のファイルを触っていようとも、この処理は絶対にブレません
Set shp = targetPage.DrawRectangle(1, 1, 4, 3)
‘ おまけ：図形にテキストを設定
shp.Text = “安全な自動化”
MsgBox “指定ページへの図形描画が完了しました！”, vbInformation, “成功”
End Sub
このコードが「堅牢」な理由
1. オブジェクトの連鎖（チェーン）: `Application -> Document -> Page` という階層をコード上で完全にトレースしています。空中でフワフワしている `Active` プロパティに頼っていません。
2. ガード節の存在: 「もしファイルが開かれていなかったら」「もし目的のページが消されていたら」という例外ケースを事前にキャッチし、予期せぬクラッシュを防いでいます。
3. エラーハンドリング: `On Error` を適切に挟むことで、日本語のエラーメッセージをユーザーに優しく返すことができます。
—
まとめ：今日から使えるエンジニアの心得
Visio VBAを書くときは、以下の呪文を心の中で唱えてみてください。
> 「Activeに頼るな、階層を辿れ」
この基本原則を守るだけで、あなたの書くマクロの品質は一気にプロフェッショナルレベルへと跳ね上がります。複数図面を同時に扱うような大規模な自動化ツールを作る際にも、この設計思想は必ずあなたを助けてくれますよ。
ここをクリアしたあなたなら、もうマクロの記録器の奴隷ではありません。自信を持って、快適なVisio自動化ライフを楽しみましょう！
