PowerPoint VBAの「地雷」を踏むな：スライド一括削除の鉄則とクレンジング・アーキテクチャ
業務自動化の現場でよく見る光景がある。「スライドを一括削除するマクロ」を書こうとして、`For i = 1 To ActivePresentation.Slides.Count` のループ内で `Slide.Delete` を呼び出し、インデックスのズレでエラーを吐く、あるいは残すべきスライドまで消し飛ばす。
PowerPoint VBAにおいて、オブジェクトの削除は「破壊的」な操作だ。特にコレクションを走査しながらその要素を削除する場合、漫然としたループは即座にプログラムを破綻させる。
今回は、数千枚規模のプレゼン資料を扱い、メタデータによる選別と安全な削除を両立させる、プロダクションレベルの「スライドクレンジング・アーキテクチャ」を伝授する。
—
1. なぜ「昇順ループ」での削除は失敗するのか
VBAの `Slides` コレクションは、削除されるたびにインデックスが再割り当てされる。
例えば、スライド1〜3があり、条件に合致したスライドを `1 To .Count` で削除しようとすると、以下の現象が起きる。
- i=1（スライド1）を削除 → 旧スライド2が新スライド1に繰り上がる。
- i=2 に進む → ループは「旧スライド3（新スライド2）」を評価するが、実は「旧スライド2」を評価し損ねている。
結論：削除系の処理を行う際は、必ず「後ろ（最後尾）から前へ」降順ループを回せ。 これが、インデックスの整合性を保つための唯一にして絶対の鉄則だ。
—
2. プロダクション品質のクレンジング・ロジック
今回作成するコードは、スライドの「更新日付（メタデータ）」または「特定のキーワード」を判定し、条件に合致した場合のみ安全に削除を行う汎用的な構成だ。
Option Explicit
”’
”’
Public Sub CleanSlidesByCondition()
Dim pptPres As Presentation
Dim i As Long
Dim targetSlide As Slide
Dim deleteFlag As Boolean
Set pptPres = ActivePresentation
‘ 重要：降順でループを回すことで、削除によるインデックス崩壊を防ぐ
For i = pptPres.Slides.Count To 1 Step -1
Set targetSlide = pptPres.Slides(i)
‘ 判定ロジックを分離することで保守性を確保
If ShouldDeleteSlide(targetSlide) Then
‘ 削除処理
targetSlide.Delete
End If
Next i
MsgBox “クレンジング完了：不要なスライドを排除しました。”, vbInformation
End Sub
”’
”’
Private Function ShouldDeleteSlide(sld As Slide) As Boolean
‘ 例：スライドのノートや図形内に特定の「凍結キーワード」が含まれていないかチェック
‘ または、カスタムドキュメントプロパティを用いた日付判定など
Dim shapeObj As Shape
Dim deleteKeyword As String
deleteKeyword = “[ARCHIVE]” ‘ このタグがあるスライドは削除対象
‘ 簡易ロジック：スライド内の全テキストを走査
For Each shapeObj In sld.Shapes
If shapeObj.HasTextFrame Then
If InStr(1, shapeObj.TextFrame.TextRange.Text, deleteKeyword, vbTextCompare) > 0 Then
ShouldDeleteSlide = True
Exit Function
End If
End If
Next shapeObj
ShouldDeleteSlide = False
End Function
—
3. 実務で生き残るための「3つの設計指針」
コードを動かすことと、実務で使い続けることは別次元の話だ。以下の設計思想を必ず守ってほしい。
① ロジックと削除処理の分離（疎結合化）
上記のコードでは、判定処理を `ShouldDeleteSlide` 関数として独立させている。将来的に「日付判定」や「特定の作成者による作成」など、条件が複雑化しても、メインの削除ループをいじる必要がない。これが「保守性の高いコード」の正体だ。
② Undo（取り消し）の意識
VBAによる削除は、通常 `Ctrl + Z`（元に戻す）が効かない場合が多い。大量削除を行う前には、必ず `ActivePresentation.SaveCopyAs` を実行し、バックアップを生成するルーチンを先頭に組み込むのがプロの流儀だ。
③ パフォーマンスの最適化
`Application.ScreenUpdating = False` を利用したくなるが、PowerPoint VBAではExcelほど劇的な効果は得られない。それよりも、`Shapes` へのアクセス回数を減らすことや、不要な `Select` / `Activate` メソッドを排除する方が、処理速度と安定性の向上に大きく寄与する。
—
最後に：自動化は「責任」である
自動化ツールは、往々にして「一瞬で全てを破壊する凶器」にもなり得る。
特にスライド削除のような破壊的処理を実装する場合、必ず「削除対象のログをイミディエイトウィンドウに出力する」や「削除前に確認ダイアログを挟む」といった、人間が介在できる余地を残すこと。
優れたエンジニアは、コードを書くこと以上に「失敗した時のリカバリ」を設計している。このコードをベースに、君たちの現場の業務フローに合わせて肉付けしてほしい。
健闘を祈る。
