こんにちは！パワポ職人として日々の大量スライド作成や運用に追われていませんか？
「何度も資料を使い回していたら、中身は数枚なのにファイルサイズが50MBもある……」
「メールで送れないから、圧縮サイトを毎回経由している……」
そんな悩みを抱えたことはありませんか？その原因、実はスライドの裏側にこびりついた「使われていないスライドマスター」や「ゴミレイアウト」の蓄積にあるんです。
今回は、PowerPoint VBAの底力を使い、プレゼンテーション内の不要なゴミを綺麗さっぱりパージ（削除）して、ファイルサイズを極限までスリム化する自動メンテナンスマクロを伝授します。
ここをクリアすれば、PowerPoint VBAの基本構造や、オブジェクトのライフサイクル管理の基本はバッチリですよ。温かく導くので、一緒にプロの領域へ踏み出しましょう！
—
なぜPowerPointは太るのか？（肥大化の正体）
PowerPointファイル（`.pptx`）の正体は、実はただの「ZIP圧縮ファイル」です。中身を解凍すると、画像やXMLファイルがゴロゴロと入っています。
資料のコピペや、他部署からの流用を繰り返すと何が起きるか？
元のファイルが持っていた「独自のスライドマスター」や「レイアウト」が、そのまま新しいファイルに持ち込まれてしまうのです。たとえそのレイアウトを一枚も使っていなくても、ファイル内部のデータベースには残り続けます。
これを手動で掃除しようとすると大変です。「スライドマスター表示」を開き、一つずつ「削除」ボタンを押して……いやいや、使われているかどうかなんて目視で確認できませんよね。
だからこそ、VBA（Visual Basic for Applications）の自動化の出番です。
—
発想の転換：PowerPoint VBAの基本構造
Excel VBAと違い、PowerPoint VBAには「アクティブな選択範囲」という概念があまり得意ではありません。PowerPointを自動化する極意は、「コレクション（入れ物）の構造を正しく把握し、上から順に、あるいは下から順に舐めていくこと」です。
今回アプローチする階層構造はこうなっています。
1. Presentation（プレゼンテーション全体）
- ↳ SlideMaster（スライドマスターの集まり）
- ↳ CustomLayout（各マスターに属するレイアウトの集まり）
ここで一つ、プログラミング初心者が必ずと言っていいほど陥る「最大の罠」があります。
🚨 陥りやすいエラー：コレクションの「前方からの削除」
スライドやレイアウトをループで回しながら削除するとき、次のようなコードを書きたくなります。
‘ 【やってはいけないアンチパターン】
Dim i As Long
For i = 1 to ActivePresentation.SlideMasters.Count
‘ 条件に合致したら削除
ActivePresentation.SlideMasters(i).Delete
Next i
これ、絶対にエラー（または意図しないスキップ）が起きます。
なぜなら、マスターを1番目から消していくと、2番目にいたやつが1番目に繰り上がりますよね？結果としてループのインデックスが狂い、メモリ例外やオブジェクトが見つからないエラー（Run-time error ‘-2147188160’ など）の餌食になります。
【解決策】：コレクションを削除するときは、必ず「後ろから前へ（逆順ループ）」回す！
これが、PowerPoint VBAを極めるための第一歩です。
—
実装！ファイルサイズを劇的に削るスリム化マクロ
それでは、実務でそのままコピペして使える完全版のコードをプレゼントします。
このマクロは、以下のロジックで安全に不要なレイアウトをパージします。
1. 各スライドが「どのレイアウトを使用しているか」をチェックし、フラグを立てる。
2. 使用されていないカスタムレイアウトを検出して削除する。
3. 最後に、どのスライドからも使われなくなった親マスターを削除する。
4. 処理の前後でファイルサイズの変化をイミディエイトウィンドウにお知らせし、上書き保存する。
メンテナンス用VBAコード
Sub PurgeUnusedMastersAndLayouts()
Dim prs As Presentation
Set prs = ActivePresentation
Dim originalSize As Long
Dim currentSize As Long
‘ 簡易的にファイルサイズを取得するため、一度保存を推奨（未保存の場合はエラー防止に注意）
On Error Resume Next
originalSize = FileLen(prs.FullName)
On Error GoTo 0
Dim smIndex As Long
Dim layIndex As Long
Dim sldIndex As Long
Dim layoutIsUsed As Boolean
Dim targetLayout As CustomLayout
Dim targetMaster Master
MsgBox “不要なマスターとレイアウトの掃除を開始します。”, vbInformation, “スリム化ツール”
‘ 画面描画を停止して爆速化
Application.ScreenUpdating = False
‘ ==========================================
‘ ステップ1: 未使用のカスタムレイアウトを削除
‘ ==========================================
‘ スライドマスターは複数存在し得るため、後ろからループ
For smIndex = prs.SlideMasters.Count To 1 Step -1
Set targetMaster = prs.SlideMasters(smIndex)
‘ マスター内のレイアウトを後ろからループ
For layIndex = targetMaster.CustomLayouts.Count To 1 Step -1
Set targetLayout = targetMaster.CustomLayouts(layIndex)
layoutIsUsed = False
‘ プレゼンテーション内の全スライドをチェックし、このレイアウトが使われているか？
For sldIndex = 1 To prs.Slides.Count
If prs.Slides(sldIndex).CustomLayout.Name = targetLayout.Name Then
‘ ※厳密にはNameだけでなくオブジェクト参照で比較すべきですが、簡易的に名前で判定
layoutIsUsed = True
Exit For
End If
Next sldIndex
‘ 使われていない、かつ、デフォルトの主要レイアウトでなければ削除
‘ （※PowerPoint標準の重要なレイアウトを誤削除しないためのガード条件）
If layoutIsUsed = False Then
On Error Resume Next
targetLayout.Delete
On Error GoTo 0
End If
Next layIndex
Next smIndex
‘ ==========================================
‘ ステップ2: 子レイアウトが1枚もなくなった親マスターを削除
‘ ==========================================
For smIndex = prs.SlideMasters.Count To 1 Step -1
‘ 既定のマスター（一番最初のマスター）は、例え空っぽでも削除するとパワポが壊れるので保護する
If smIndex > 1 Then
Set targetMaster = prs.SlideMasters(smIndex)
‘ カスタムレイアウトが全て消え去っている場合、マスター自体を削除
If targetMaster.CustomLayouts.Count = 0 Then
On Error Resume Next
targetMaster.Delete
On Error GoTo 0
End If
End If
Next smIndex
‘ 画面描画を再開
Application.ScreenUpdating = True
‘ 変更を保存
prs.Save
‘ 結果発表
On Error Resume Next
currentSize = FileLen(prs.FullName)
On Error GoTo 0
If originalSize > 0 And currentSize > 0 Then
Dim savedKB As Long
savedKB = (originalSize – currentSize) \ 1024
MsgBox “お掃除が完了しました！” & vbCrLf & _
“削減された容量目安: 約 ” & savedKB & ” KB”, vbInformation, “スリム化完了”
Else
MsgBox “お掃除が完了し、上書き保存されました。”, vbInformation, “スリム化完了”
End If
End Sub
—
コードのここがポイント！エンジニアの知見
このコードには、現場で安心して動かすための「プロの配慮」が散りばめられています。
1. `Application.ScreenUpdating = False` による爆速化
レイアウトやマスターをプログラムから削除する際、PowerPointは画面の再描画を裏で行おうとします。これを一度ストップさせることで、処理速度が何倍にも跳ね上がります。
2. デフォルトマスターの保護 (`If smIndex > 1 Then`)
PowerPointの仕様上、一番最初のスライドマスター（インデックス1）をプログラムから強制削除すると、アプリケーション自体が強制終了したりファイルが破損したりします。「2番目以降の増殖したマスター」をターゲットに絞るのが安全な設計です。
3. エラーのいなし方 (`On Error Resume Next`)
PowerPointのビルトインレイアウト（「タイトルスライド」や「白紙」など）は、VBAから削除命令を出してもセキュリティや仕様で弾かれることがあります。その際にマクロが止まってしまわないよう、あえてエラーを華麗にスルーさせる「守りのコード」を入れています。
—
まとめ：自動化でスマートな資料運用を
今回は、プレゼンテーション内の不要なスライドマスターや未使用レイアウトを自動検出し、ファイルサイズをスリム化するマクロをご紹介しました。
「マクロの記録」から一歩進み、オブジェクトの階層構造と「逆順ループの原則」を理解できたあなたなら、もうPowerPoint VBAの基礎は完全にマスターしています。
重いプレゼン資料にイライラする時間は今日でおしまいです。このスクリプトをあなたの「マクロ有効プレゼンテーション（`.pptm`）」やアドインに組み込んで、スマートで快適な自動化ライフを満喫してくださいね！
