【プロフェッショナル】Application.SlideShowNextSlideイベントの高度なフック：スライドショー実行中に動的シナリオ分岐を制す
開発プロジェクトの現場で、こんな要望を受けたことはないだろうか。
「スライドショーの最中に、聴衆の反応や外部データの入力状態に応じて、次に表示するスライドを動的に切り替えたい」
「静的なハイパーリンクやカスタムショーの事前設定では限界がある。リアルタイムにシナリオを分岐させるインタラクティブなプレゼンシステムを作ってほしい」
PowerPoint標準の機能だけでは、複雑な条件分岐を伴うリアルタイム制御は到底太刀打ちできない。ここでVBAの出番となる。特に`WithEvents`を用いたイベントフックを完全に掌握していれば、PowerPointは単なる「紙芝居ビュアー」から「高度なインタラクティブ・アプリケーション」へと劇的に生まれ変わる。
今回は、実務の現場で即座に通用する、極限まで堅牢で最適化されたスライドショー制御アーキテクチャを伝授する。
—
1. なぜ「通常のVBAマクロ」ではリアルタイム制御に失敗するのか？
多くの初学者や、場当たり的なコードを書くプログラマーは、スライド上のシェイプにマクロを登録し、クリック時にスライドジャンプを行うコードを書く。
‘ 【アンチパターン】場当たり的なスライドジャンプ
ActivePresentation.SlideShowWindow.View.GotoSlide(5)
このアプローチは、小規模なプレゼンであれば動く。しかし、実務の現場――数千人規模のカンファレンスや、外部データベースと連携するキオスク端末のようなシステムでは、以下の致命的な問題を引き起こす。
1. 状態管理の破綻（Statefulの欠如）: どの条件でどこにジャンプしたかの履歴が残らず、プレゼンのロジックがブラックボックス化する。
2. イベントの競合とメモリリーク: スライドショー実行中の非同期なユーザー操作に対し、同期処理が割り込むことで PowerPoint 自体がフリーズする。
3. 保守性の全滅: スライドの追加・削除を行うたびにハードコーディングされたジャンプ先番号がズレ、デバッグ地獄に陥る。
我々プロフェッショナルが目指すべきは、「イベント駆動型のセントラルコントロール（中央集権制御）」である。それを実現するのが、`Application.SlideShowNextSlide` イベントだ。
—
2. アーキテクチャ設計：WithEventsによるイベントフックの要諦
PowerPoint VBAでイベントを捉えるには、クラスモジュール（Class Module）を使用し、`Application` オブジェクトを `WithEvents` で宣言する必要がある。
ここで最も重要な知見を共有しよう。「クラスのインスタンスをどこで保持し、いつ解放するか」というライフサイクルの管理こそが、VBA開発の成否を分ける。標準モジュールでグローバル変数として保持し続けると、予期せぬタイミングで参照が切れ、イベントが発火しなくなる（いわゆる「イベントが突然効かなくなる現象」の正体だ）。
これを防ぐため、プレゼンテーションのオープン時にクラスを初期化し、確実にメモリ上に常駐させる堅牢な設計を構築する。
—
3. プロダクションコード：動的シナリオ分岐システムの構築
それでは、実務でそのまま使えるプロダクションコードを公開しよう。
以下の2つのコンポーネント（クラスモジュール 1つ、標準モジュール 1つ）をVBE（Visual Basic Editor）に配置する。
① クラスモジュール: `C_SlideController`
このクラスが、スライドショーの動きを監視し、条件に応じて次に表示すべきスライドを動的に書き換える。
Option Explicit
‘ ApplicationオブジェクトをWithEventsで宣言し、スライドショーのイベントを捕捉する
Public WithEvents PPTApp As Application
‘ スライドショーが次のスライドへ移行する瞬間に発火するイベント
Private Sub PPTApp_SlideShowNextSlide(ByVal Wn As SlideShowWindow, ByVal SsSlide As Slide)
On Error GoTo ErrorHandler
Dim targetSlideIndex As Long
Dim currentSlideIndex As Long
currentSlideIndex = SsSlide.SlideIndex
‘ =================================================================
‘ 【ビジネスロジック】ここで動的なシナリオ分岐を制御する
‘ 例: スライド3番に到達した時、特定のフラグや外部ファイルの状態に応じて分岐先を変える
‘ =================================================================
If currentSlideIndex = 3 Then
‘ 外部テキストファイルの状態をチェックする関数（模擬）を呼び出し
If CheckExternalFlag() = “EXPERT” –>
‘ エキスパート向けのスライド（例: スライド10）へ動的ジャンプ
targetSlideIndex = 10
Else
‘ 通常ルート（例: スライド4）へ進む
targetSlideIndex = 4
End If
‘ 次に表示するスライドを強制的に上書き
‘ ※注意: SlideShowNextSlide内でView.GotoSlideを呼ぶ際の無限ループに注意
If Wn.View.CurrentShowPosition <> targetSlideIndex Then
Wn.View.GotoSlide targetSlideIndex
End If
End If
Exit Sub
ErrorHandler:
MsgBox “スライド制御エラー: ” & Err.Description, vbCritical, “System Error”
End Sub
‘ 外部データ（CSVやテキスト、DB等）の状態を安全に読み取るヘルパー関数
Private Function CheckExternalFlag() As String
On Error Resume Next
Dim fso As Object
Dim ts As Object
Dim filePath As String
‘ プレゼン資料と同じフォルダにある “control.txt” を読みに行く
filePath = ActivePresentation.Path & “\control.txt”
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(filePath) Then
Set ts = fso.OpenTextFile(filePath, 1) ‘ ForReading
CheckExternalFlag = Trim(ts.ReadAll)
ts.Close
Else
CheckExternalFlag = “NORMAL”
End If
Set ts = Nothing
Set fso = Nothing
End Function
② 標準モジュール: `M_Initializer`
イベント監視クラスのインスタンスを生成し、ライフサイクルを安全に管理するエントリーポイント。
Option Explicit
‘ イベントをフックするクラスのインスタンスを保持するグローバル変数
Public EventListener As C_SlideController
‘ プレゼンテーション開始時（Auto_Open またはリボン/ボタンから実行）にコールする
Public Sub InitializePresentationSystem()
On Error GoTo ErrorHandler
‘ すでにインスタンスが存在する場合は一度破棄
If Not EventListener Is Nothing Then
Set EventListener = Nothing
End If
‘ 新しいインスタンスを生成し、現在のApplicationをバインド
Set EventListener = New C_SlideController
Set EventListener.PPTApp = Application
MsgBox “インタラクティブ・シナリオ制御システムが正常に起動しました。”, vbInformation, “System Ready”
Exit Sub
ErrorHandler:
MsgBox “システムの初期化に失敗しました: ” & Err.Description, vbCritical
End Sub
‘ システムを安全に停止・リセットするプロシージャ
Public Sub TerminatePresentationSystem()
Set EventListener = Nothing
MsgBox “システムを停止しました。”, vbInformation
End Sub
—
4. プロフェッショナルの実装における重要注意点（ハマりどころの回避）
このコードを実務導入するにあたり、現場のエンジニアが必ず直面する「罠」と、その回避策を共有しておく。
A. 無限イベントループの回避
`SlideShowNextSlide` イベント内で `Wn.View.GotoSlide` を実行すると、ジャンプした先で再度イベントが誘発され、スタックオーバーフローや予期せぬ無限ループを引き起こす危険性がある。
- 対策: 現在の表示位置（`Wn.View.CurrentShowPosition`）が意図するターゲットと一致しているかを必ず比較し、無駄なジャンプ命令を発行しないガード節（Guard Clause）を設けること。
B. セキュリティ設定とファイルパスの絶対パス化
外部ファイル（`control.txt` など）を読みに行く際、相対パス（`”control.txt”`）で記述すると、PowerPointの起動カレントディレクトリに依存してしまい、別環境でファイルが見つからずにエラーとなる。
- 対策: 必ず `ActivePresentation.Path & “\control.txt”` のように、プレゼンテーションファイルが存在するディレクトリの絶対パスを基準に構築すること。
C. 信頼できる場所（Trusted Locations）の確保
マクロを含むプレゼンテーション（`.pptm`）を実行する際、ExcelやWord同様、PowerPointでもセキュリティーツールやマクロの無効化が壁になる。実運用では、必ず配布先のPCで当該フォルダを「信頼できる場所」に登録する運用手順、あるいはデジタル署名を付与した運用をセットで設計に組み込むべきだ。
—
5. おわりに
今回紹介した `Application.SlideShowNextSlide` を軸にした動的シナリオ分岐制御は、プレゼンテーションの表現力を無限大に広げる強力な武器となる。
「言われた通りに動くマクロ」を作るフェーズはもう卒業しよう。
オブジェクトのライフサイクルを理解し、堅牢で拡張性の高いアーキテクチャを設計すること――それこそが、プロフェッショナルな業務自動化エンジニアの仕事である。
あなたの手元にあるPowerPointを、単なるスライドショーから「生きたシステム」へと進化させてほしい。
