こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して、スライドを操作するコードを覗いてみたものの、「なんだか難しそうだな…」「動かしたり動かさなかったりするな…」と感じていませんか？
大丈夫です。ここをクリアすれば、あなたも立派なPowerPoint VBAのエンジニアへの第一歩を踏み出せますよ。今日は、多くの初心者が最初に直面する「突然マクロがクラッシュする呪い」を綺麗に解きほぐす、とっておきの知見を授けましょう。
—
1. なぜ、あなたのマクロは突然止まるのか？
PowerPoint VBAを書いていると、次のようなコードによく出会いますよね。
‘ 現在選択しているものを取得するコード（危険な香り…）
Dim currentSlide As Slide
Set currentSlide = ActiveWindow.Selection.SlideRange(1)
一見、何の問題もないように見えます。しかし、このコードを実行したとき、ユーザーがスライド上の「テキストボックス」や「図形」を何も選択していなかったり、「スライド一覧表示（スライド ソート）」の画面にいたりすると……
> 実行時エラー ‘-2147188160 (80048240)’:
> 指定されたコレクションの項目が存在しません。
はい、無慈悲なエラーでマクロが強制終了しました。これが、初心者を絶望のどん底に突き落とす「選択状態（Selection）の罠」です。
選択状態（Selection）は「気まぐれ」である
Excel VBAであれば、`ActiveCell` や `ActiveSheet` は大抵何かしらを指し示してくれます。しかし、PowerPointの `Selection` はユーザーの操作（何を選んでいるか、どの表示モードにいるか）によって刻一刻と変化します。
- 図形を選んでいるとき $\rightarrow$ 選択中の図形が取れる
- スライドを選んでいるとき $\rightarrow$ スライドが取れる
- 何も選んでいないとき $\rightarrow$ エレガントに爆発する
実務で使うツールを作るなら、ユーザーがどんな変な操作をしてもビクともしない「要塞のような堅牢性（ロバストネス）」が必要です。
—
2. 解決の鍵：アプリケーションの「目線」を正しく知る
PowerPointのオブジェクトモデルの頂点には `Application` がいます。そして、私たちが今見ている画面は `Application.ActiveWindow` です。
安全に現在のスライドを取得するためには、「今、本当にウィンドウが開いているか？」、そして 「どこにフォーカスがあるか？」 を順番に確認する「ガード句（Guard Clause）」というテクニックを使います。
ガード句とは？
「条件を満たしていない場合は、処理を即座に安全に中断する（または別の安全なルートを通る）」という、プログラミングの防衛術です。変な状態のときは、処理の入口で門前払いしてしまいましょう。
—
3. 実装：これが「絶対に落ちない」現在スライド取得コードだ
それでは、実際の現場でそのままコピペして使える、極限まで安全性を高めたファンクション（関数）をプレゼントします。
” —————————————————————–
” どんな状況でも安全に「現在のスライド」を取得するプロフェッショナル関数
” —————————————————————–
Sub SafeGetActiveSlideExample()
Dim targetSlide As Slide
‘ 安全な関数を呼び出してスライドを取得する
Set targetSlide = GetCurrentSlideRobust()
‘ ガード句で弾かれた場合は処理を終了
If targetSlide Is Nothing Then
MsgBox “現在、スライドを安全に取得できる状態ではありません。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ — ここから下に実際のメイン処理を書く —
MsgBox “現在地は「スライド ” & targetSlide.SlideIndex & “」です！”, vbInformation, “成功”
End Sub
” —————————————————————–
” 【核心】エラーを完全にハントするスライド取得ロジック
” —————————————————————–
Function GetCurrentSlideRobust() As Slide
On Error GoTo ErrorHandler ‘ 万が一のエラーに備えるセーフティネット
Set GetCurrentSlideRobust = Nothing
‘ 1. PowerPointが起動しており、ウィンドウが開いているか？
If Application.Windows.Count = 0 Then Exit Function
‘ 2. アクティブなウィンドウから、現在表示中のビューを取得
Dim currentView As View
Set currentView = ActiveWindow.View
‘ 3. ビューの種類に応じた安全な分岐
‘ （スライドショー実行中、標準表示、スライド一覧など、どこにいても対応）
Select Case currentView.Type
Case ppViewSlide ‘ 通常のスライド編集画面
Set GetCurrentSlideRobust = ActiveWindow.View.Slide
Case ppViewSlideShow ‘ スライドショー実行中
Set GetCurrentSlideRobust = ActiveWindow.View.Slide
Case ppViewNormal, ppViewOutline ‘ 標準・アウトライン表示など
‘ 選択範囲に依存せず、確実にフォーカスされているスライドを狙う
If ActiveWindow.Selection.Type = ppSelectionSlides Then
Set GetCurrentSlideRobust = ActiveWindow.Selection.SlideRange(1)
Else
‘ 何もスライド単位で選択されていない場合は、アクティブペインから推測
Set GetCurrentSlideRobust = ActiveWindow.View.Slide
End If
Case Else
‘ その他の特殊なビュー（スライドマスター等）
‘ 必要に応じて処理を分けるが、今回は安全のためスライドオブジェクトが取れるか試す
On Error Resume Next
Set GetCurrentSlideRobust = ActiveWindow.View.Slide
On Error GoTo 0
End Select
Exit Function
ErrorHandler:
‘ 予期せぬエラーが発生した場合は Nothing を返す
Set GetCurrentSlideRobust = Nothing
End Function
—
4. このコードの「スマートなポイント」を解説
このコードには、シニアエンジニアのこだわりが詰まっています。
1. `Application.Windows.Count = 0` のチェック
PowerPointがバックグラウンドで起動しているだけで、編集ウィンドウが1つも開いていないレアケース（アドインの処理時など）でのクラッシュを防ぎます。
2. `currentView.Type` によるビューの判別
今ユーザーが「普通にスライドを作っているのか」「スライドショーを見ているのか」「スライド一覧を見ているのか」を `Select Case` で綺麗に交通整理しています。
3. `On Error GoTo` による二重の盾
ガード句でどれだけ弾いても、Office製品の気まぐれなCOM例外は時に牙をむきます。最後の砦としてエラーハンドラを置き、最悪でも「無言で落ちる」のではなく「`Nothing` を返して優しく終了する」設計にしています。
—
まとめ：ここをクリアすれば、PowerPoint VBAは怖くない！
いかがでしたか？
「なんとなく動くコード」から、「どんな状況でも破綻しない堅牢なコード」へステップアップするためのエッセンスを感じていただけたでしょうか。
- 選択状態（Selection）を過信しないこと
- ウィンドウやビューの状態を先に確認すること（ガード句）
- エラーが起きる前提で、安全な戻り値（`Nothing`など）を設計すること
この3つを意識するだけで、あなたが書くマクロの品質は劇的に向上します。ぜひ、日々の業務自動化にこの知見を取り入れてみてください。
それでは、快適なPowerPoint自動化ライフを！次回の記事もお楽しみに。
