PowerPoint VBAの「スライド全削除」という死の淵をどう渡るか
PowerPointのオブジェクトモデルを使いこなす上で、多くの者が最初に躓く「不可視の制約」がある。それは、「Presentationには必ず1枚以上のSlideが存在しなければならない」という仕様だ。
プレゼンテーションを初期化しようとして、安易に `For Each sld In ActivePresentation.Slides: sld.Delete: Next` などと記述した瞬間、VBAは無慈悲な実行時エラーを吐き出し、プロセスは停止する。なぜなら、最後の一枚を削除しようとした瞬間にPowerPointのレンダリングエンジンが整合性を失い、例外を投げるからだ。
本稿では、この「最低1枚」の壁を、アーキテクトの視点から極めて安全かつ効率的に突破する解法を提示する。
—
1. 破壊的クレンジングのロジック：逆順走査の原則
まず大前提として、コレクションの削除においては「逆順走査（Backward Iteration）」が鉄則だ。前方向から削除すると、インデックスがずれて削除漏れやインデックス範囲外エラーが発生する。
しかし、全削除には「1枚残して削除」→「最後に残った1枚を削除」という二段構えが必要だ。ここで、「ダミースライドを生成し、旧スライドを全削除し、最後にダミーを消す」という手法をとる。
実装コード：CleanPresentation
‘ @description プレゼンテーション内の全スライドを極めて安全に削除する
‘ @author Chief Architect
Public Sub CleanPresentation(ByRef targetPres As Presentation)
Dim i As Long
‘ 1. 保護ビューや読み取り専用のチェック（実戦での必須要件）
If targetPres.ReadOnly Then Exit Sub
‘ 2. ダミースライドを末尾に追加
‘ これにより、削除対象が0枚になる事態を物理的に防ぐ
targetPres.Slides.AddSlide targetPres.Slides.Count + 1, _
targetPres.SlideMaster.CustomLayouts(1)
‘ 3. 逆順でスライドを削除（ダミー以外を全滅させる）
‘ Application.ScreenUpdatingをOFFにすることで、描画負荷を抑制する
Application.ScreenUpdating = False
For i = targetPres.Slides.Count – 1 To 1 Step -1
targetPres.Slides(i).Delete
Next i
‘ 4. 最後に残ったダミースライドを削除
targetPres.Slides(1).Delete
Application.ScreenUpdating = True
‘ 5. メモリ解放の明示的呼び出し
‘ VBAは参照カウンタ方式だが、大規模な自動生成後には明示的なNothing代入が吉
DoEvents
End Sub
—
2. アーキテクトの深掘り：なぜこの設計なのか
オブジェクトのライフサイクルとパフォーマンス
PowerPoint VBAの削除操作は、COMインターフェースを介した重い処理だ。`Delete` メソッドが呼ばれるたびに、PowerPointのUndoスタックが更新される。もしスライドが数百枚ある場合、`Application.UndoClear` を適宜呼び出すことで、メモリリークの温床となるUndoログを強制破棄することが重要だ。
Windows APIによる「隠蔽」の極致
もし、この削除処理中にユーザーに画面を見せたくない、あるいは処理の整合性を完璧に保ちたいのであれば、`User32.dll` の `LockWindowUpdate` を併用する手もある。これにより、OSレベルでウィンドウの再描画をロックし、処理速度を限界まで高められる。
‘ API宣言
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hWndLock As LongPtr) As Long
‘ 処理の冒頭で
LockWindowUpdate Application.HWND
‘ …削除処理…
‘ 処理の終了で
LockWindowUpdate 0
—
3. レガシー環境と現代の橋渡し
この手法は、古いPowerPoint 2010から最新のMicrosoft 365環境まで、普遍的に動作する。なぜなら、これは特定のAPIに依存するものではなく、PowerPointが内部的に持っているスライド管理構造（Slide Collection Manager）の「最低1枚」ルールを逆手に取ったロジックだからだ。
現場への提言
システム連携において、外部からのデータ流し込みを行う際、`ActivePresentation` を直接操作するのは悪手である。必ず `Presentation` オブジェクトを明示的に引数で受け取り、スコープを限定すること。
また、大規模なクレンジングを行う際は、`DoEvents` を挟むことを推奨する。VBAはシングルスレッドで動作するため、重いループ処理中にプロセスの応答が停止したと判断されれば、OSから「応答なし」のフラグを立てられるリスクがある。
結びに
「最低1枚必要」という制約は、一見すると開発者の足を引っ張る足枷だ。しかし、この制約を理解し、ダミーという「安全装置」を置くことで、私たちのコードは堅牢なものとなる。
エンジニアリングとは、仕様を嫌うことではなく、仕様の急所を突くことである。本ロジックが、貴殿の自動化システムの安定性に寄与することを願う。
