こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録から一歩踏み出し、「自分で動かすコードを書きたい！」というワクワク感を持っている頃ではないでしょうか。
今回は、PowerPoint VBAの現場で意外と多くの人がハマる「スライドが1枚もない状態（Slides.Count = 0）」という特殊な地雷を、美しく、そして確実に回避する「ガードロジック」について解説します。
ここをクリアすれば、あなたの書くマクロの信頼性はプロのエンジニア水準にグッと近づきますよ。さあ、一緒に本質をマスターしていきましょう！
—
1. なぜ「スライドが1枚もない状態」でエラーが起きるのか？
PowerPointを起動して「新しいプレゼンテーション」を開いた瞬間、またはコードでうっかり全スライドを削除してしまった直後、そのファイルには「スライドが1枚も存在しない」という状態が生まれます。
このとき、VBAの裏側では何が起きているでしょうか？
例えば、次のようなコードを書いて実行したとします。
Sub DangerousMacro()
‘ 1番目のスライドの背景色を変えようとする
ActivePresentation.Slides(1).Background.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub
このコードを実行すると、コンパイルエラーではなく、実行時エラー（「指定されたコレクションのメンバーはありません」や「オブジェクトが見つかりません」）が発生してマクロが強制終了してしまいます。
オブジェクトモデルの罠
PowerPoint VBAの頂点には `Application` があり、その下に `Presentation` が、さらにその下に `Slides` コレクションが存在します。
- `ActivePresentation.Slides` は、「スライドの集合体（箱）」です。
- 箱の中にスライドが1枚も入っていない（`Count = 0`）状態のときに `.Slides(1)` と指定すると、VBAは「えっ、1番目なんてないよ！」とパニックを起こしてエラーを吐くのです。
—
2. エラーを防ぐ「ガード句」という考え方
プログラミングの世界では、メインの処理に入る前に「条件を満たしているか？」をチェックし、ダメなら即座に処理を中断する手法を「ガード句（Guard Clause）」または「門番のロジック」と呼びます。
スライドが存在するかどうかを事前にチェックすれば、無駄なエラーを防ぎ、ユーザーに優しいマクロを作ることができます。
基本のチェックロジック
スライドの枚数を数えるには、`Slides.Count` プロパティを使います。これさえ知っていれば怖くありません。
Sub SafeMacro()
‘ 【ガード句】スライドが1枚もなければ、ここで優しく処理をストップする
If ActivePresentation.Slides.Count = 0 Then
MsgBox “スライドが1枚も存在しません！” & vbCrLf & _
“まずはスライドを追加してください。”, vbExclamation, “処理中断”
Exit Sub
End Sub
‘ — ここから下が安全地帯（メイン処理） —
MsgBox “スライドが存在します。処理を続行します！”, vbInformation
‘ 例：1番目のスライドになにかする安全なコード
‘ ActivePresentation.Slides(1).NotesPage… など
End Sub
このコードのポイントは、「異常な状態を先に検知して `Exit Sub` で逃げる」という点です。正常系の処理を深い `If` の中に閉じ込めないことで、コードが圧倒的に読みやすくなります。
—
3. 【実践】現場でそのまま使える「完全版テンプレート」
実務でマクロを書くときは、対象のプレゼンテーションが開かれているかどうかも含めて、堅牢（ロバスト）なチェックを入れるのがプロの作法です。
以下のコードをコピーして、ご自身のVBAエディタ（VBE）に貼り付けて試してみてください。
Sub ProfessionalTemplate()
‘ 1. そもそもプレゼンテーションが開かれているかチェック
If Application.Presentations.Count = 0 Then
MsgBox “開いているプレゼンテーションがありません。”, vbCritical
Exit Sub
End If
‘ 2. 【今回のテーマ】スライドが1枚も存在しないかチェック
Dim targetPres As Presentation
Set targetPres = ActivePresentation
If targetPres.Slides.Count = 0 Then
MsgBox “プレゼンテーションにスライドがありません。” & vbCrLf & _
“処理を安全に終了します。”, vbExclamation, “ガードロジック発動”
Exit Sub
End If
‘ ==========================================
‘ 3. 安全地帯（ここに本来の処理を書く）
‘ ==========================================
Dim currentSlideCount As Long
currentSlideCount = targetPres.Slides.Count
MsgBox “現在のスライド数は ” & currentSlideCount & ” 枚です。” & vbCrLf & _
“正常に処理を完了しました！”, vbInformation, “成功”
End Sub
このコードの優れたポイント
1. 変数のスコープ化 (`Set targetPres = ActivePresentation`):
何度も `Active` を参照すると動作が重くなり、思わぬバグの温床になります。最初に変数に格納して安全に扱います。
2. 明確なメッセージ:
単にエラーで止まるのではなく、「何が原因で、どうすればいいのか」をユーザーに伝える親切設計になっています。
—
4. まとめ：ここをクリアすれば基本はバッチリ！
今回は、PowerPoint VBAにおける「スライド未存在エラー」を回避するガードロジックについて解説しました。
- `Slides.Count` でスライドの枚数を常に意識する
- スライドが `0` 枚の可能性があるなら、メイン処理の前にガード句（`If … Then Exit Sub`）を置く
- エラーで止まるプログラムではなく、優しく語りかけるプログラムを目指す
この基本を抑えておくだけで、あなたの書くマクロは見違えるほど安定したものになります。「マクロの記録」の先にある、美しく堅牢なVBAの世界へ、自信を持って一歩を踏み出してくださいね。
ここをクリアしたあなたなら、もうPowerPoint VBAの基礎はバッチリです！次のステップも一緒に楽しんでいきましょう。
