破壊的な自動化を防ぐ「ガードレール」の作り方：MsgBoxでページ削除に安全策を
こんにちは。Visio VBAの世界へようこそ。
「マクロの記録」を使って、なんとか自動化の第一歩を踏み出したあなた。素晴らしい一歩です！しかし、自動化の階段を登るにつれて、あなたは一つの「恐怖」に直面することになります。
それは、「プログラムが、人間の意図しないスピードと正確さで、大切なデータを消し去ってしまうこと」です。
例えば、大量のページを整理するために「ページを削除するマクロ」を書いたとしましょう。もし、そのループ処理の中に「消してはいけないマスター図面」が含まれていたら？ プログラムは一切の躊躇なく、そのマスター図面をゴミ箱へと放り込みます。
今日は、そんな悲劇を防ぐための、エンジニアとしての「良心」とも言える技術――「確認ダイアログ（MsgBox）による制御フローの構築」について解説します。ここをマスターすれば、あなたのコードは単なる「命令の羅列」から、「思考を持つシステム」へと進化します。
1. なぜ「マクロの記録」だけでは足りないのか？
「マクロの記録」は、あなたの操作を忠実にトレースします。しかし、記録されたコードには「判断」がありません。
- 記録されたコード： 「ページを削除せよ」
- プロの書くコード： 「もし、ユーザーが『本当に削除して良い』と答えたなら、ページを削除せよ」
この「もし〜なら（If文）」と「判断を仰ぐ（MsgBox）」の組み合わせこそが、業務自動化におけるガードレール（安全柵）になります。
2. 武器となる技術：MsgBox関数
今回の主役は `MsgBox` 関数です。これは、ユーザーに対してメッセージを表示し、そのユーザーが「はい」を押したのか「いいえ」を押したのかという「返り値（結果）」を受け取るための関数です。
MsgBoxの基本構造
Dim response As VbMsgBoxResult
response = MsgBox("メッセージ内容", ボタンの種類, "タイトル")- メッセージ内容: ユーザーに伝えたい警告文です。
- ボタンの種類: `vbYesNo` と指定することで、「はい」「いいえ」のボタンを表示できます。
- 返り値: ユーザーが「はい」を押せば `vbYes` が、「いいえ」を押せば `vbNo` が変数 `response` に格納されます。
3. 実践：安全なページ削除マクロ
それでは、実際に「現在開いているページを削除する前に、必ず確認を求める」コードを書いてみましょう。
以下のコードを、VisioのVBAエディタ（Alt + F11）の標準モジュールに貼り付けて試してみてください。
Option Explicit
''' <summary>
''' 現在アクティブなページを、ユーザーの確認を経て削除するプロシージャ
''' </summary>
Sub SafeDeleteActivePage()
Dim targetPage As Visio.Page
Dim userConfirm As VbMsgBoxResult
' 1. 現在のターゲット（ページ）をオブジェクト変数にセット
' オブジェクトを明示的に扱うことで、後の操作を確実なものにします
Set targetPage = ActivePage
' 2. ユーザーに確認を求める（ガードレールの構築）
' vbQuestion: 疑問符アイコンを表示
' vbYesNo: 「はい」「いいえ」のボタンを表示
' vbDefaultButton2: 最初から「いいえ」を選択状態にしておく（誤操作防止のプロの技）
userConfirm = MsgBox("現在表示されているページ「" & targetPage.Name & "」を削除してもよろしいですか？" & vbCrLf & _
"この操作は取り消せません。", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"削除の最終確認")
' 3. 条件分岐による制御フロー
' ユーザーが「はい(vbYes)」を選択した場合のみ、削除を実行する
If userConfirm = vbYes Then
' ページが存在することを確認してから削除を実行
' (Visioには最低1枚のページが必要なため、エラー回避の意識が重要です)
On Error Resume Next ' エラーが発生しても中断しない（簡易的なエラーハンドリング）
targetPage.Delete
If Err.Number <> 0 Then
MsgBox "エラーが発生しました。ページが削除できない可能性があります。", vbCritical, "エラー"
Else
MsgBox "ページを削除しました。", vbInformation, "完了"
End If
On Error GoTo 0 ' エラーハンドリングをリセット
Else
' 「いいえ」が押された場合は、何もしない
MsgBox "操作をキャンセルしました。", vbInformation, "キャンセル"
End If
' 4. オブジェクトの解放
' メモリリークを防ぐため、使い終わったオブジェクトは明示的に解放するのが一流の作法です
Set targetPage = Nothing
End Sub4. コードの深層解説：ここが「プロ」の視点
コードをただ写すだけでなく、なぜこう書くのかという「意図」を理解しましょう。
① `vbDefaultButton2` の魔法
コードの中に `vbDefaultButton2` という記述がありますね。これは、ダイアログが開いた瞬間に「いいえ」が選択された状態にする設定です。
人間は、つい「はい」を勢いで押してしまうことがあります。最初から「いいえ」にフォーカスを当てておくことで、誤操作によるデータ消失のリスクを物理的に下げることができます。これは、UI/UXデザインにおける重要な知見です。
② オブジェクト変数への格納 (`Set targetPage = ActivePage`)
`ActivePage.Delete` と直接書くこともできますが、一度 `targetPage` という変数に格納することを推奨します。
なぜか？ それは、「削除しようとしている対象が何であるか」をプログラム内で明確に定義するためです。これにより、デバッグ（間違い探し）が劇的に楽になります。
③ エラーハンドリングの意識
Visioには「ページは最低1枚なければならない」というルールがあります。もし全ページを消そうとするマクロを走らせると、Visioはエラーを吐いて止まってしまいます。
`On Error Resume Next` を使い、エラーが起きた場合に「何が起きたのか」をユーザーに優しく伝える。これが、現場で使える「壊れないツール」への第一歩です。
5. 陥りやすい落とし穴
初心者がこのステップで躓きやすいポイントをまとめておきます。
1. 比較演算子のミス:
`If userConfirm = “Yes” Then` と書いてしまうミスです。`MsgBox` の返り値は文字列ではなく、専用の定数（`vbYes` など）です。必ず定数を使ってください。
2. 無限ループの中でのMsgBox:
大量のページをループで消していく際、毎回 `MsgBox` を出すと、ユーザーは何度もクリックさせられて作業になりません。
- 改善案: 「10ページごとに確認する」や「特定の名前のページ（’Master’など）の時だけ確認する」といった、一歩進んだ条件分岐を検討しましょう。
最後に：エンジニアとしての成長
「自動化」の目的は、作業を速くすることだけではありません。「正確に、安全に、再現性を持って実行すること」です。
今回学んだ `MsgBox` によるガードレールは、これからあなたが作る複雑なシステムにおいても、必ず必要になる基礎知識です。コードを書くとき、常に自分に問いかけてみてください。
「もし、このマクロが間違った方向に走ったら、どうやって止めるか？」
この問いに答えられるようになったとき、あなたは単なるプログラマーではなく、信頼される「アーキテクト」への道を歩み始めています。
さあ、恐れずに、もっと複雑な自動化の世界へ踏み出していきましょう。応援していますよ！
