【脱・マクロ記録】Visio VBAの「ページ削除」で絶対にハマらないための黄金律
こんにちは。Visioによる業務自動化の世界へようこそ。
「マクロの記録」を使って、一歩ずつ自動化の階段を登っている皆さん、素晴らしい一歩です。しかし、記録されたコードを少し書き換えようとしたとき、あるいは「複数のページを一括で消したい」と思ったときに、「実行時エラー：インデックスが範囲外です」や「なぜか一部のページが残ってしまう」という壁にぶつかったことはありませんか？
実はこれ、プログラミング初学者が必ずと言っていいほど踏んでしまう、非常に美しく、そして奥深い「罠」なんです。
今日は、エンジニアとして一生モノの知識になる「コレクション操作におけるインデックスのズレ」をテーマに、Visio VBAでページを安全に削除するための極限の知見をお伝えします。ここをクリアすれば、あなたのVBAスキルは「記録レベル」から「設計レベル」へと劇的に進化しますよ。
1. なぜ「普通にループ」させると失敗するのか？
まずは、多くの人が陥る「失敗するコード」を見てみましょう。
失敗するコードの例（やってはいけないパターン）
Sub BadDeleteExample()
Dim i As Integer
' ページ数分だけ、1番目から順番に削除しようとする
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Delete
Next i
End Sub一見、完璧に見えますよね？「1番目から最後までのページを全部消す」という、極めて論理的な思考です。しかし、このコードを実行すると、Visioは悲鳴を上げてエラーを吐くか、あるいは半分くらいのページを残して止まってしまいます。
「インデックスのズレ」という怪現象
なぜ失敗するのか。その理由は、「削除した瞬間に、残りのページの番号（インデックス）が書き換わるから」です。
イメージ図で説明しましょう。今、ページが3枚あるとします。
1. 初期状態:
- [Index 1]: ページA
- [Index 2]: ページB
- [Index 3]: ページC
2. ループ1回目 (i = 1):
- 「Index 1（ページA）を消せ！」と命令します。
- ページAが消えると、残ったページが自動的に詰められます。
- 【重要】 ここで、ページBが「Index 1」に、ページCが「Index 2」に繰り上がります。
3. ループ2回目 (i = 2):
- 次は「Index 2を消せ！」と命令します。
- 今のIndex 2は……ページCです。
- あれ？ さっき繰り上がった「ページB」が飛ばされてしまいました！
このように、前から順番に消していくと、削除によって「ターゲットが動いてしまう」のです。これが、インデックスエラーや、削除漏れを引き起こす正体です。
2. 解決策：逆順ループ（Step -1）の魔法
この問題を回避するための、エンジニアの「定石」があります。
それは、「後ろ（末尾）から順番に消していく」ことです。
成功するコード（黄金律）
Sub SafeDeleteExample()
Dim i As Integer
Dim pageCount As Integer
' 現在のページ総数を取得
pageCount = ActiveDocument.Pages.Count
' 【ここがポイント！】
' Countから1に向かって、1ずつ減らしながらループさせる (Step -1)
For i = pageCount To 1 Step -1
' 注意：Visioの仕様として「全てのページを削除すること」はできません。
' 最低でも1枚は残す必要があるため、そのガードレールを敷いておきます。
If ActiveDocument.Pages.Count > 1 Then
ActiveDocument.Pages(i).Delete
Else
MsgBox "最後の1枚は削除できないため、残します。", vbInformation
Exit For
End If
Next i
MsgBox "ページ削除処理が完了しました。", vbInformation
End Subなぜ逆順なら安全なのか？
逆順（Step -1）で行う場合、インデックスの動きを見てみましょう。
1. 初期状態: [1:A, 2:B, 3:C]
2. ループ1回目 (i = 3):
- Index 3（ページC）を消します。
- 残ったのは [1:A, 2:B]。Index 1と2は変化しません！
3. ループ2回目 (i = 2):
- Index 2（ページB）を消します。
- 残ったのは [1:A]。Index 1は変化しません！
4. ループ3回目 (i = 1):
- Index 1（ページA）を消そうとしますが、条件分岐で回避されます。
見ての通り、「今から消そうとしている番号より後ろの番号」がズレるだけなので、次に処理する番号には一切影響を与えないのです。これが、オブジェクトのライフサイクルを考慮した安全な設計です。
3. チーフアーキテクトからのアドバイス：実戦での注意点
このテクニックをマスターしたあなたに、さらに一歩進んだ実戦的な知見を授けます。
① 「最後の1枚」問題に備えよ
Visioのドキュメントは、空っぽ（ページが0枚）の状態にはなれません。もし全てのページを削除するロジックを組む場合、`ActiveDocument.Pages.Count > 1` という条件チェックを入れ忘れると、実行時エラーが発生します。プログラムを書くときは常に「例外的な状況（エッジケース）」を想定する癖をつけてください。
② 名前で指定するか、インデックスで指定するか
特定の名前のページ（例：”Template”）を残したい場合は、インデックスではなく名前で判定するのがスマートです。
' 名前で判定する高度な例
For i = ActiveDocument.Pages.Count To 1 Step -1
If ActiveDocument.Pages(i).Name <> "KeepMe" Then
ActiveDocument.Pages(i).Delete
End If
Next i③ パフォーマンスの重みを知る
大量のページ（数百枚単位）を扱う場合、一つずつ `Delete` を呼び出すのは、Visioの画面更新と相まって動作が重くなることがあります。もし極限の速度を求めるなら、画面更新を一時的に止めるなどの工夫が必要になりますが、まずはこの「正しいループ」を確実に書けるようになることが先決です。
まとめ：ここをクリアすれば、Visio VBAの基本はバッチリですよ
今回の学びを整理しましょう。
- コレクション（Pagesなど）から要素を削除するときは、インデックスがズレる。
- 前からループ（1 To Count）すると、要素が飛ばされたりエラーになったりする。
- 必ず「後ろからループ（Count To 1 Step -1）」を使うこと。
プログラミングは、単に命令を並べる作業ではありません。「データがどう動き、どう変化するか」というオブジェクトの振る舞いを想像しながら書くものです。
この「逆順ループ」の感覚が掴めたなら、あなたはもう「マクロを記録する人」ではなく、「仕組みを構築するエンジニア」への入り口に立っています。
自信を持って、次の自動化に挑戦してください。応援していますよ！
