【入門編】Application.AlertResponseダイアログ抑制：バックグラウンド一括処理でのユーザー割り込み防止 – Visio VBA解析バイブル

Visio VBA

2026.08.25

こんにちは。現場でVisioと格闘する皆さんの悩みを、コード一つで解決へ導くアーキテクトです。

マクロの記録から一歩踏み出し、数百枚の図面を一括変換したり、データベースから自動作図を行うような「本気の自動化」に挑むと、必ずある「壁」にぶつかります。そう、処理の途中で突如現れる「警告ダイアログ」です。

「この操作は元に戻せません」「図面が読み取り専用です」……。
これらが表示された瞬間、あなたの自動化プログラムはストップし、誰かが「OK」ボタンを押すのをじっと待ち続けることになります。これでは、真の自動化とは呼べませんよね。

今日は、Visio VBAにおいてこの「ユーザーの介入」を完全にシャットアウトし、真の無人実行環境を構築するための奥義、`Application.AlertResponse`について伝授します。

—

プログラムにとって、ユーザーインターフェース（UI）の割り込みは「例外」です。特に、夜間に回すバッチ処理や、バックグラウンドでのファイル一括変換中にダイアログが出ることは、「システムの停止」を意味します。

Visioの `Application` オブジェクトには、この割り込みを制御するための非常に強力なプロパティが用意されています。それが `AlertResponse` です。

—

`AlertResponse` は、Visioが何かをユーザーに尋ねようとしたとき、「人間がクリックする代わりに、この値を返せ」とあらかじめ命令しておくためのプロパティです。

コードの冒頭で `AlertResponse` に特定の値をセットし、処理が終わったら元に戻す。これが鉄則です。

Sub BatchProcessWithNoInterrupt()
Dim originalAlertResponse As Long

‘ 1. 現在のAlertResponseの設定を退避（元の状態に戻すため必須！）
originalAlertResponse = Application.AlertResponse

‘ 2. Visioの警告を自動的に「OK」または「はい」で応答するように設定
‘ 0を指定すると、Visioの標準的なダイアログのデフォルトボタンが自動選択されます
Application.AlertResponse = 0

On Error GoTo Cleanup

‘ — ここに自動化したい重い処理を記述 —
‘ 例：ActiveDocument.SaveAs “C:\Temp\Export.vsdx”
Debug.Print “処理を実行中…”

‘ ————————————

Cleanup:
‘ 3. 処理終了後は必ず元の設定に戻す（これを行わないとVisioが不安定になります）
Application.AlertResponse = originalAlertResponse

If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description
End If
End Sub

—

多くの初心者がここで失敗するのは、「エラーハンドリング」と「後始末」を忘れることです。

「元に戻す」を忘れないこと: `Application.AlertResponse` を変更したままプログラムが異常終了すると、Visio自体が「ダイアログを表示できない状態」に陥り、最悪の場合Visioを再起動するまで操作不能になります。必ず `On Error GoTo` を使い、どんな状況でも設定を元に戻す仕組み（Cleanupブロック）を作ってください。
0以外を指定する場合: `AlertResponse` には、ダイアログに応じた「戻り値」を整数で指定します。基本は `0` でOKですが、特定のダイアログで「キャンセル」を強制したい場合は、そのダイアログのIDに応じた値を調査する必要があります（ただし、まずは `0` の完全自動応答で十分なケースがほとんどです）。

—

`AlertResponse` をマスターすれば、もう画面の前に張り付く必要はありません。

しかし、真の自動化エンジニアを目指すなら、さらにこう考えます。
「ダイアログを消すだけでいいのか？それとも、そもそもダイアログを出させない設計にできないか？」

例えば、ファイル保存時に「上書き確認」が出ないように `Application.AlertsSuppressed = True` を併用したり、ファイルを開く際に `OpenEx` メソッドを使って読み取り専用フラグを明示的に制御したり。

Visioのオブジェクトモデルには、まだまだ隠れた「自動化のための武器」が眠っています。まずはこの `AlertResponse` で、あなたのプログラムを「自立したエージェント」に育て上げてください。

ここをクリアしたあなたは、もう初心者ではありません。
次回の記事では、`Visio.InvisibleApp` を使った、画面すら表示させない「超高速バックグラウンド処理」の極意を解説します。

それでは、良い自動化ライフを！