【PowerPoint VBA】スライド操作の「死地」を回避する：破壊的処理の鉄則
現場の自動化ツール開発において、最も多くのエンジニアが初心者の壁にぶつかり、そして無意識にバグを量産する箇所がある。それが「スライドの動的追加・削除を伴うループ処理」だ。
「スライドを順番に見て、条件に合致したら削除する」。この一見単純なロジックが、なぜ多くの現場で「処理漏れ」や「予期せぬエラー」を引き起こすのか。今日はその正体と、プロが現場で採用する「唯一の解」を伝授する。
—
1. なぜ「前から順に」ループしてはいけないのか
初心者が陥る典型的な罠がこれだ。
‘ 【アンチパターン】前から順番に削除するとどうなるか？
For i = 1 To ActivePresentation.Slides.Count
If ActivePresentation.Slides(i).Name Like “不要” Then
ActivePresentation.Slides(i).Delete
End If
Next i
このコードを実行すると何が起きるか。
1. `i=1`で削除が発生すると、本来の`2`番目のスライドが`1`番目に繰り上がる。
2. 次のループで`i=2`に進むが、実際には「元の3番目のスライド」が対象となる。
3. 結果：直前に繰り上がったスライド（元2番目）はスキップされ、検証されることなく放置される。
さらに、削除によって`Slides.Count`が減り続けるため、期待した回数と実際のインデックスが乖離し、インデックス範囲外エラー（Out of Range）でプログラムがクラッシュする。
—
2. プロの設計：「後ろから」攻めるという鉄則
この問題を解決する最もエレガントかつ堅牢な手法は、「逆順ループ（Step -1）」だ。
後方から処理を行えば、削除によってインデックスがずれるのは「既に処理が終わった前方」の領域だけである。現在地より前方は一切影響を受けない。これが最もシンプルで、かつパフォーマンスに悪影響を与えない鉄則だ。
実践：安全なスライド削除のテンプレート
Public Sub DeleteSlidesSafely()
Dim i As Long
Dim pres As Presentation
Set pres = ActivePresentation
‘ スライドの総数から1まで、マイナス1ずつカウントダウンする
For i = pres.Slides.Count To 1 Step -1
‘ 削除条件（例：特定のプレースホルダーがあるか、名前に特定の文字列があるか）
If pres.Slides(i).Shapes.HasTitle Then
If pres.Slides(i).Shapes.Title.TextFrame.TextRange.Text Like “不要” Then
pres.Slides(i).Delete
End If
End If
Next i
End Sub
—
3. 追加処理の極意：コレクションの「静的コピー」
もし「スライドを追加」する処理をループ内で行う場合、逆順ループだけでは対処できないことがある。追加によって`Slides.Count`が無限に増え続け、無限ループに陥るからだ。
この場合、「ループの回数をあらかじめ確定させる」のがプロダクションコードの定石である。
Public Sub AddSlidesSafely()
Dim i As Long
Dim totalSlides As Long
Dim pres As Presentation
Set pres = ActivePresentation
‘ ループ開始時の数を固定する（重要）
totalSlides = pres.Slides.Count
For i = 1 To totalSlides
‘ 特定のスライドの後に複製を追加する
pres.Slides(i).Duplicate
‘ 注意：ここで追加したスライドはループ処理対象外（無限ループ回避）
Next i
End Sub
—
4. 現場で生き残るための「保守性の高い設計」
自動化スクリプトを書く際、以下の3点を意識するだけで、バグ率は劇的に下がる。
1. オブジェクトの明示的な参照: `ActivePresentation`を安易に使わず、必ず変数（`pres`）に格納せよ。ユーザーが別のファイルを開いた瞬間にスクリプトが誤作動する事故を防ぐためだ。
2. 削除対象のフラグ立て: 複雑な条件判定をループ内で行うと可読性が下がる。削除対象かどうかの判定は別関数に切り出し、メインのループはシンプルに保つこと。
3. エラーハンドリング: スライド削除は稀に「保護ビュー」や「読み取り専用」で失敗する。`On Error Resume Next`で誤魔化すのではなく、`If Not pres.ReadOnly Then`といった事前チェックを必ず入れる。
結論：技術は「仕組み」で制御する
VBAにおいて「挙動が怪しい」と感じる時は、大抵ロジックではなく「オブジェクトの動的変化」を管理できていない時だ。
スライドを操作する際は、「今、自分はどこを指しているのか」「削除によって世界（インデックス）はどう変わるのか」を常にシミュレーションせよ。この視点を持つ者だけが、真に堅牢な業務自動化ツールを構築できる。
さあ、コードを書いて検証だ。理論武装した君たちのコードが、現場の無駄を一つでも多く消し去ることを期待している。
