こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押してスライドの色を変えるだけの自動化に満足していませんか？――おめでとうございます。今日、あなたは真の「プロフェッショナル・エンジニア」への扉を開きます。
今回は、PowerPoint VBAのオブジェクトモデルにおける最高峰の制御技術の一つ、`Application.SlideShowNextSlide` イベントの高度なフックを解説します。
「スライドショー実行中に、発表者の操作や特定の条件に応じて、次に表示するスライドを動的に書き換える」
そんな、まるでゲームの分岐シナリオのようなインタラクティブなプレゼンテーション制御システムを一緒に作ってみましょう。
ここをクリアすれば、PowerPoint VBAの本質はバッチリです。優しく、そして深く、その極意を伝授します。
—
1. なぜ「スライドショーの動的制御」が難しいのか？
通常のPowerPointは、あらかじめ決められた順番（1枚目 → 2枚目 → 3枚目…）でスライドが進行します。もし条件分岐をさせたい場合、ハイパーリンクや「動作設定」を使うのが一般的ですが、これでは「外部データの状態」や「複雑な時間経過・キー入力」にリアルタイムに対応できません。
ここで登場するのが、`WithEvents` を使ったイベント監視です。
PowerPointの裏側で常に「今、何枚目のスライドにいるか」「次にどこへ行こうとしているか」を監視し、イベントが発生した瞬間にVBA側で割込み（フック）、次に表示するスライドのインデックスをプログラムから書き換えてしまうという、アクロバティックかつ堅牢なアプローチを取ります。
—
2. 全体像：実装するシステムのアークテクチャ
今回のシステムでは、以下の2つのコンポーネントを連携させます。
1. クラスモジュール (`EventClass`): `Application` オブジェクトのイベントを捕らえる専用のモジュール。
2. 標準モジュール (`MainModule`): クラスのインスタンスを生成し、イベント監視をスタートさせるトリガー。
図解するとこのような関係性です。
[PowerPoint アプリケーション]
↓ (スライドが進む瞬間)
[EventClass (WithEvents)] ←── イベントをインターセプト！
↓ (条件判定：外部データや時間など)
[スライドインデックスの動的書き換え] ➔ 次に見せるスライドを自由に変更
—
3. 実践！コード実装と詳細な解説
それでは、実際に手を動かしてコードを書いていきましょう。開発タブからVBAエディタ（`Alt + F11`）を開いてください。
ステップ1：イベントを受け取るクラスモジュールの作成
まずは、アプリケーションレベルのイベントをフックするためのクラスを作ります。
1. VBAエディタのメニューから [挿入] ➔ [クラス モジュール] を選択します。
2. プロパティウィンドウで、このクラスの `Name` を `EventClass` に変更します。
3. 以下のコードを貼り付けてください。
‘ =================================ライセンス・注意=================================’
‘ クラスモジュール名: EventClass
‘ 役割: PowerPointのアプリケーションイベントを監視し、スライド遷移を制御する
‘ ===================================================================================’
Option Explicit
‘ WithEventsキーワードを使い、Applicationオブジェクトのイベントを捕捉できるようにする
Public WithEvents AppEvents As PowerPoint.Application
‘ スライドショーが次のスライドへ進む瞬間に発生するイベント
Private Sub AppEvents_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Dim currentSlideIndex As Long
Dim targetSlideIndex As Long
‘ 現在表示されているスライドの番号を取得
currentSlideIndex = Wn.View.CurrentShowPosition
‘ — 【ここがプロの制御ロジック】 —
‘ 例として、「現在2枚目のスライドにいて、特定の条件を満たしている場合」に
‘ 強制的に5枚目のスライドへジャンプさせる分岐を作ります。
‘ ※実務では、ここに外部テキストファイルの読み込みや、セル値の判定などを組み込みます。
If currentSlideIndex = 2 Then
‘ ユーザーに分岐を確認（実際のシステムでは自動判定に置き換えます）
If MsgBox(“【動的制御】5枚目の詳細スライドへワープしますか？”, vbYesNo + vbQuestion, “シナリオ分岐システム”) = vbYes Then
targetSlideIndex = 5
Else
targetSlideIndex = 3 ‘ 通常は次の3枚目へ
End If
‘ 注目！ここで次に表示するスライドを動的に書き換えます
‘ Wn.View.GotoSlide [スライド番号] を使うことで、遷移先をプログラム制御できます
Wn.View.GotoSlide targetSlideIndex
End If
‘ デバッグ用：イミディエイトウィンドウに軌跡を出力
Debug.Print “Transition: From Slide ” & currentSlideIndex & ” -> Target processed.”
End Sub
コードの急所解説
- `Public WithEvents AppEvents As PowerPoint.Application`:
通常の変数宣言と異なり、`WithEvents` をつけることで「イベントの発生を待ち受けるリスナー」になります。これが今回の魔法の核心です。
- `Wn.View.GotoSlide targetSlideIndex`:
スライドショーのビューオブジェクトが持つこのメソッドにより、PowerPointのデフォルトの進行順序を完全に無視して、任意のスライドへ瞬間移動させることが可能です。
—
ステップ2：イベント監視を起動する標準モジュールの作成
クラスを作っただけでは、VBAは「どのアプリケーションを監視すればいいのか」分かりません。グローバル変数を使って、クラスのインスタンスを保持し続ける必要があります。
1. メニューから [挿入] ➔ [標準モジュール] を選択します。
2. 以下のコードを貼り付けてください。
‘ ===================================================================================’
‘ 標準モジュール名: MainModule
‘ 役割: イベント監視クラスのライフサイクルを管理する
‘ ===================================================================================’
Option Explicit
‘ イベントを受け取るクラスのインスタンスを保持するグローバル変数
‘ ※手続き型プロシージャ内で宣言すると、マクロ終了時に破棄されてしまうため必ずここに書きます
Public PPTListener As EventClass
‘ スライドショーの監視を開始するプロシージャ
Sub StartPresentationWatcher()
‘ すでにインスタンスが存在する場合は二重起動を防ぐために破棄
If Not PPTListener Is Nothing Then
Set PPTListener = Nothing
End If
‘ 新しいインスタンスを生成
Set PPTListener = New EventClass
‘ Applicationオブジェクトを紐付ける（これで監視がスタートする）
Set PPTListener.AppEvents = Application
MsgBox “スライドショーの動的制御システムが有効化されました。” & vbCrLf & _
“プレゼンテーションを開始してください。”, vbInformation, “システム起動”
End Sub
‘ 監視を停止するプロシージャ（メモリ解放用）
Sub StopPresentationWatcher()
Set PPTListener = Nothing
MsgBox “監視システムを停止しました。”, vbInformation, “システム停止”
End Sub
コードの急所解説
- インスタンスの生存期間（ライフサイクル）の管理:
VBA初学者が最もやりがちなミスが、標準モジュールの通常のSubプロシージャ内でクラスをNewしてしまい、プロシージャが終了した瞬間にイベントが動かなくなるという現象です。グローバル変数（`Public PPTListener`）として保持し続けることで、PowerPointを閉じるか明示的に破棄するまでイベントを監視し続けることができます。
—
4. 実際に動かしてみよう！
1. 適当なプレゼンテーションファイルを新規作成し、スライドを5枚以上用意してください。
2. VBAエディタで `StartPresentationWatcher` プロシージャの中にカーソルを置き、`F5` キーを押して実行します（または上の「実行」ボタンを押す）。
3. メッセージボックスが表示されたら、通常通りスライドショーを開始します（`F5`キーなど）。
4. 2枚目のスライドを表示した状態で次へ進もうとすると……先ほど書いたコードが割り込み、メッセージボックスとともに5枚目のスライドへワープします！
—
財布の紐を締め忘れたようなバグや、メモリリークを起こすコードとは今日でお別れです。オブジェクトのライフサイクルを意識し、`WithEvents` を使いこなせるようになったあなたは、もはや単なるマクロの利用者ではなく、高度なプレゼンテーション・アーキテクトです。
現場でこの技術を応用すれば、外部のデータベースやExcelの集計結果と連動して動的に変化する、最高にスマートなプレゼンシステムが構築できます。ぜひ、あなたの業務や提案に役立ててください。
それでは、次回の極限知見でお会いしましょう。Happy Coding!
