Visio VBAの「無人化」を極める：AlertResponseによる割り込み制御の真髄
Visioの自動化において、最も忌むべき存在は何か。それは、深夜のバッチ処理中に突然現れ、処理を停止させる「確認ダイアログ」だ。
我々のようなエンジニアにとって、ユーザーの介入を許す設計は「敗北」と同義である。今回は、Visioのオブジェクトモデルを掌握し、`Application.AlertResponse` を駆使して完全無人化を実現する技術的知見を共有する。これは単なるプロパティの設定ではない。Visioの制御権をエンジンから我々のコードへ完全移譲するための儀式である。
—
1. AlertResponseの真の役割：モーダルダイアログの封殺
Visioの `Application.AlertResponse` プロパティは、標準的なプロンプトに対する「自動回答」を規定する。これを知らないエンジニアは `SendKeys` でウィンドウを叩くような脆弱で非効率な手法に逃げるが、それは今すぐ捨て去るべきだ。
`AlertResponse` に値を設定することで、Visio内部のメッセージループに対して、「ユーザーの介入を待たずに、常に指定のIDで応答せよ」と命令を下すことができる。
実装の定石：プロパティの退避と復元
処理の開始前と終了後の状態を確実に保証すること。これがシステムを安定させる唯一の道だ。
‘ 処理の完全無人化を実現するラッパーの雛形
Public Sub ExecuteBatchProcess()
Dim originalAlertResponse As Long
‘ 現在のAlertResponseを退避（他プロセスとの干渉を防ぐ）
originalAlertResponse = Application.AlertResponse
‘ 0を設定するとVisioの警告はすべてデフォルト値で即時応答される
Application.AlertResponse = 0
On Error GoTo Cleanup
‘ — ここに重厚なバッチ処理を記述 —
‘ 例: ActivePage.Export “C:\Output.pdf” 等のダイアログが出る処理
Cleanup:
‘ 異常終了時も確実に設定を戻す（ここが甘いとVisioが死ぬ）
Application.AlertResponse = originalAlertResponse
If Err.Number <> 0 Then
Debug.Print “Critical Error: ” & Err.Description
End If
End Sub
—
2. オブジェクトライフサイクルとメモリ最適化の極致
`AlertResponse` でダイアログを消し去ったとしても、Visioのメモリ管理が杜撰であれば、大規模な図面処理中に必ずメモリリークが牙を剥く。
Visio VBAはCOMベースである以上、`Shape` や `Page` オブジェクトをループで回す際は注意が必要だ。特に `visio.Documents.Open` や `visio.Pages.Add` の後は、明示的な解放が必須となる。
- 循環参照の回避: `Set obj = Nothing` をループの最後で徹底する。
- イベントハンドラの解除: `WithEvents` を使用している場合、処理終了後に必ず `Nothing` に設定し、メモリ上の参照カウントをゼロにする。
—
3. レガシー環境におけるWindows APIとの融合
もし `AlertResponse` を以てしても抑制できない、OSレベルのダイアログやサードパーティ製アドインの警告が現れた場合、私は迷わず User32.dll を呼び出す。
`FindWindow` でウィンドウハンドルを特定し、`PostMessage` で `WM_CLOSE` を送る。これは荒療治だが、レガシーシステムを延命させるための「外科手術」としては最も信頼性が高い。
‘ ウィンドウを強制的に閉じるためのAPI定義
If VBA7 Then
Private Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function PostMessage Lib “user32” Alias “PostMessageA” (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long
Else
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib “user32” Alias “PostMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
End If
Private Const WM_CLOSE = &H10
Public Sub ForceCloseDialog(ByVal windowTitle As String)
Dim hwnd As LongPtr
hwnd = FindWindow(vbNullString, windowTitle)
If hwnd <> 0 Then
PostMessage hwnd, WM_CLOSE, 0, 0
End If
End Sub
—
4. 伝説のエンジニアからの提言
システム自動化の極意は「コードを書くこと」ではなく、「コードが走る環境の予測可能性を高めること」にある。
1. エラーハンドリングの徹底: `AlertResponse` を操作する際、エラーによる中断はVisioの警告ダイアログを「生きたまま」放置するリスクがある。必ず `Err` オブジェクトの監視をプロセスの核心に据えること。
2. ログ出力の非同期化: 大量処理を行う際は、ファイルI/Oでボトルネックを作らないこと。メモリ上にバッファリングし、処理終了後に一括書き込みを行うのがプロの流儀だ。
3. 無人化後の監視: 無人化されたシステムは、沈黙のうちに死ぬ。定期的な「ハートビート（生存確認）」をログに出力させるアーキテクチャを必ず組み込むこと。
Visio VBAは古い言語かもしれないが、そのオブジェクトモデルは依然として強力だ。ツールに振り回されるのではなく、ツールの喉元を掴んでコントロールし続ける。その矜持を忘れてはならない。
諸君のバッチ処理が、誰の手を借りることもなく、完璧に完遂されることを願う。
