Visio VBAの深淵へ：ドキュメントを開いた瞬間に「魔法」をかけるイベントハンドラ入門
Visioを使いこなす多くのユーザーが、マクロの記録ボタンを押すだけの「作業者」で止まってしまう中、あなたは今、その先にある「自動化の設計者」への扉を開こうとしています。
Visio VBAにおける最も強力な武器、それは「イベント駆動（Event-Driven）」という概念です。今回は、ファイルを開いた瞬間にキャンバスの状態を整える『DocumentOpenedイベント』を実装し、あなたのVisio環境を「自分専用の最強ツール」へと昇華させる方法を伝授します。
—
1. なぜ「イベントハンドラ」が必要なのか？
通常、マクロは「ボタンを押して実行するもの」と考えがちです。しかし、業務で使う図面において「毎回、レイヤーを表示して、表示倍率を100%にして、グリッドを表示する」といった手作業を繰り返していませんか？
これらをVisioに「自動でやらせる」仕組みがイベントハンドラです。人間が「開く」というアクションを起こした瞬間に、Visioの頭脳（Applicationオブジェクト）がそれを検知し、裏側で勝手に環境を整えてくれる。これが自動化エンジニアの第一歩です。
—
2. 実装の舞台：ThisDocumentモジュール
標準モジュールではなく、VBAエディタ（Alt + F11）の左側にある「ThisDocument」モジュールを開いてください。こここそが、ドキュメントそのもののライフサイクルを司る聖域です。
以下のコードをコピーして貼り付けてみてください。
‘ VisioのDocumentオブジェクトをイベント付きで定義
Private WithEvents vsoDoc As Visio.Document
‘ ドキュメントが開かれた時に自動的に実行される初期化処理
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
‘ エラーハンドリングを追加して堅牢性を確保
On Error Resume Next
‘ 1. 表示倍率を100%に固定
ActiveWindow.Zoom = 1.0
‘ 2. レイヤー設定の初期化（例：「非表示レイヤー」を隠す）
Dim lyr As Visio.Layer
Set lyr = ActivePage.Layers.Item(“非表示レイヤー”)
If Not lyr Is Nothing Then
lyr.CellsC(Visio.visLayerVisible).Formula = 0
End If
‘ 3. ユーザーへ完了の通知
Debug.Print “環境設定が完了しました。”
On Error GoTo 0
End Sub
—
3. コードの心臓部を紐解く
なぜこのコードが動くのか、その本質を理解しましょう。
- `WithEvents` の魔法:
通常の変数と違い、`WithEvents` をつけることで、そのオブジェクト（今回はDocument）が発する「イベント」をキャッチできるようになります。これがイベントハンドラの生命線です。
- `Document_DocumentOpened`:
これはVisioが用意した「特別な名前の関数」です。Visioはファイルを開くたびに、この名前の関数が存在するかを確認し、あれば勝手に実行します。
- `On Error Resume Next` の真意:
実務環境では、特定のレイヤーが存在しないといった小さなエラーでマクロ全体が止まるのは致命的です。あえてエラーを無視し、処理を完遂させることも「プロの設計」の一部です。
—
4. 初学者が陥りやすい「3つの罠」
現場でよくある失敗を先回りして回避しておきましょう。
1. マクロが無効になっている:
Visioのセキュリティ設定でマクロが制限されていると、どんなに正しいコードを書いても動きません。開発タブから「マクロのセキュリティ」を確認してください。
2. 標準モジュールに書いている:
`Document_DocumentOpened` は、`ThisDocument` オブジェクトモジュールに書かないと機能しません。標準モジュールに書いても「ただの関数」として扱われ、自動実行はされません。
3. イベントの発生タイミング:
このイベントは「ファイルを開いた直後」に走ります。まだ画面の描画が完了していないこともあるため、処理が複雑になる場合は `DoEvents` を挟むなど、Visioの描画ライフサイクルを意識する必要があります。
—
5. 次のステップ：君だけの「最強のVisio」へ
このコードをマスターした今、あなたは「Visioを操作する」段階から「Visioをプログラミングする」段階へ進みました。
次は、`ShapeAdded`（図形がドロップされた瞬間に自動でプロパティを書き込む）や、`BeforeDocumentClose`（閉じる前に自動でバックアップを取る）といったイベントに挑戦してみてください。
Visioは単なる作図ソフトではなく、「データと図形が同期する強力なアプリケーション」です。そのエンジンを使いこなすのは、他でもないあなた自身です。
さあ、このコードをあなたのVisioに組み込み、日々のルーチンワークを過去のものにしてしまいましょう。何か詰まったら、いつでも戻ってきてください。エンジニアとしての旅路は、まだ始まったばかりです。
