こんにちは！PowerPointの自動化やテンプレート整理に日々奮闘している皆さん、お疲れ様です。先輩エンジニアの私です。
マクロの記録ボタンを押すだけの自動化から一歩進み、自身の意図通りにPowerPointを自在に操りたいと思ったとき、多くの人が直面するのが「オブジェクトモデルの迷宮」です。
今回は、実務の現場でテンプレートの軽量化やクレンジングを行う際によくある悲劇――「どのスライドがどのカスタムレイアウトを使っているか分からないから、怖くて削除できない！」という課題を華麗に解決する、「カスタムレイアウト依存関係チェッカー」の作り方を解説します。
ここをしっかりとクリアすれば、PowerPoint VBAの階層構造の本質が手に取るようにわかるようになりますよ。さあ、一緒にプロの扉を開きましょう！
—
1. なぜ「カスタムレイアウトの削除」は事故るのか？
PowerPointのプレゼンテーションは、表面的には「スライドが並んでいるだけの紙芝居」に見えますが、内部構造は非常に緻密な階層ツリーになっています。
[Application] (PowerPoint本体)
┗ [Presentations] (プレゼンテーション集)
┗ [Presentation] (アクティブなファイル)
┣ [Slides] (実スライドのコレクション)
┗ [SlideMaster] (マスター階層)
┗ [CustomLayouts] (カスタムレイアウトのコレクション)
テンプレートの整理中によくやりがちなのが、`CustomLayout.Delete` メソッドを安易に実行してしまうこと。もし、そのレイアウトをこっそり参照しているスライドが1枚でもあった場合、PowerPointはエラーを吐くか、最悪の場合、残されたスライドのレイアウトが崩壊してしまいます。
これを防ぐためには、「全スライドを巡回し、どのレイアウトが使われているかを逆引き（マッピング）して、使用されていないものだけを安全に消す」というロジックが必要になります。
—
2. 攻略の鍵：`CustomLayout` と `Slide.CustomLayout` の関係
依存関係を逆引きするためのアルゴリズムは非常にシンプルです。
1. プレゼンテーション内にあるすべての「カスタムレイアウト」のリストを用意する。
2. プレゼンテーション内にあるすべての「スライド」を上から順に見ていく。
3. 各スライドが「どのカスタムレイアウトを使っているか（`Slide.CustomLayout`）」を調べ、使われているレイアウトに「使用中フラグ」を立てる。
4. 全スライドのチェックが終わった後、フラグが立っていない（＝一度も使われていない）レイアウトだけを抽出し、削除する。
これをVBAのコードに翻訳していきましょう。
—
3. 実装コード：安全なレイアウト・クレンジングツール
以下のコードを、VBAエディタ（Alt + F11）の標準モジュールに貼り付けてください。実務でそのまま使えるよう、安全装置（エラーハンドリング）と、実行結果をイミディエイトウィンドウに分かりやすく出力する機能を備えています。
Option Explicit
Public Sub RemoveUnusedCustomLayouts()
‘ =====================================================================
‘ 処理概要: 未使用のカスタムレイアウトを安全に一括削除するクレンジングツール
‘ 著作者: シニアPowerPoint VBAアーキテクト
‘ =====================================================================
Dim targetPres As Presentation
Set targetPres = ActivePresentation ‘ 現在アクティブなプレゼンテーションを対象にする
Dim slideMasterObj As Master
Set slideMasterObj = targetPres.SlideMaster
Dim totalLayouts As Long
totalLayouts = slideMasterObj.CustomLayouts.Count
‘ レイアウトが存在しない場合は処理を終了
If totalLayouts = 0 Then
MsgBox “カスタムレイアウトは存在しません。”, vbInformation, “完了”
Exit Sub
End If
‘ 1. 使用状況を記録するための「フラグ配列（Dictionaryの代用としても可）」を作成
‘ インデックスと対応させるため、配列のサイズをレイアウト数に合わせる
Dim isUsed() As Boolean
ReDim isUsed(1 To totalLayouts)
Dim i As Long
For i = 1 To totalLayouts
isUsed(i) = False ‘ 初期値は「未使用」
0 Next i
‘ 2. 全スライドを巡回し、使用されているカスタムレイアウトを特定（逆引き解析）
Dim sld As Slide
Dim layoutIndex As Long
Dim matched As Boolean
For Each sld In targetPres.Slides
‘ 各スライドが依存しているCustomLayoutが、スライドマスターの何番目にあるか探す
matched = False
For i = 1 To totalLayouts
If sld.CustomLayout.Name = slideMasterObj.CustomLayouts(i).Name Then
isUsed(i) = True ‘ 使用中フラグをON
Exit For
End If
Next i
Next sld
‘ 3. 後ろのインデックスから安全に削除を実行
‘ ※注意：コレクションを前から削除していくと、インデックスがズレてバグの温床になります。
‘ そのため、必ず「後ろから前へ（Countから1へ）」ループを回すのがプロの鉄則です！
Dim deletedCount As Long
deletedCount = 0
‘ 画面描画を停止してパフォーマンスを爆発的に向上させる
With Application
.ScreenUpdating = False
.ShowVisualState = msoFalse
End With
On Error GoTo ErrorHandler ‘ 万が一のエラーに備える
For i = totalLayouts To 1 Step -1
If isUsed(i) = False Then
‘ デバッグ用に削除するレイアウト名を出力
Debug.Log “削除対象: ” & slideMasterObj.CustomLayouts(i).Name
‘ 実際の削除処理
slideMasterObj.CustomLayouts(i).Delete
deletedCount = deletedCount + 1
End If
Next i
‘ 画面描画の復元
With Application
.ScreenUpdating = True
.ShowVisualState = msoTrue
End With
‘ 完了メッセージ
MsgBox “クレンジングが完了しました！” & vbCrLf & _
“削除された未使用レイアウト数: ” & deletedCount & ” 個”, vbInformation, “実行結果”
Exit Sub
ErrorHandler:
‘ エラー時の復元処理
Application.ScreenUpdating = True
Application.ShowVisualState = msoTrue
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
—
4. プロのエンジニアが仕込んだ「3つのこだわりポイント」
上記のコードには、単に動くだけではなく、実務の現場を知るエンジニアならではのこだわりが詰まっています。ここを理解しておくと、他のVBAコードを書くときにも必ず役立ちます。
① コレクション削除は「後ろから前へ（逆順ループ）」が鉄則
初心者ループでやりがちなのが、`For i = 1 To Count` として上から順に削除していく方法です。これをやると、1番目を消した瞬間に元の2番目が1番目に繰り上がり、インデックスのズレ（あるいは要素消失エラー）を引き起こします。
要素を削除するコレクション操作は、必ず `For i = Count To 1 Step -1`（後ろから前へ）で行う。これはVBAにおける普遍的なデザインパターンです。
② `ScreenUpdating` による爆速化
スライドやマスターの操作をVBAで行うと、画面がチラつき、処理速度が極端に落ちます。`Application.ScreenUpdating = False` と `Application.ShowVisualState = msoFalse` を挟むことで、PowerPointの描画エンジンをバイパスし、メモリ上で一気に処理を完結させることができます。大容量ファイルでは数倍〜数十倍の速度差が出ます。
③ 堅牢なエラーハンドリング
もし何らかの理由でレイアウトが保護されていたり、特殊なアドインが干渉していた場合でも、`On Error GoTo` を設定しておくことで、途中で画面が真っ白なままフリーズするのを防ぎ、確実に描画状態を復元させることができます。
—
まとめ
今回は、PowerPoint VBAのオブジェクトモデルの階層（マスターとスライドの関係）を紐解きながら、安全にカスタムレイアウトをクレンジングする依存関係チェッカーを解説しました。
「どのオブジェクトがどこにつながっているか」を意識できるようになると、PowerPoint VBAはもはや「面倒な作業ツール」ではなく、あなたの手足となって働く「最強の相棒」へと変わります。
ここをクリアすれば、PowerPoint VBAの基本はバッチリです！ぜひ、日々の業務効率化に役立ててくださいね。それでは、また次のテクニカルセッションでお会いしましょう！
