【プロフェッショナル】Application.SlideShowNextSlideイベントの高度なフックによる動的シナリオ分岐制御
PowerPoint VBAにおいて、あらかじめ定められた順序通りにスライドをめくるだけの時代は終わった。
シニアエンジニアや社内ニッチシステムを統括するアーキテクトが直面する現代の要求は、「発表者のコンテキスト、外部システムの状態、そしてミリ秒単位の時間経過に応じて、スライドショーの構造そのものをリアルタイムに再構築する」ことにある。
本稿では、`Application.SlideShowNextSlide` イベントの深層を暴き、`WithEvents`による堅牢なイベントハンドリング、Windows APIによる非同期制御、そしてメモリリークを根絶するオブジェクトライフサイクル管理を統合した、極限の動的シナリオ分岐システムを解説する。
—
1. アーキテクチャの核心：なぜ標準機能では不十分なのか
PowerPointの標準的なハイパーリンクやカスタムショーは静的である。動的な分岐を実現する場合、最大の障壁となるのは以下の3点だ。
1. イベントの不可逆性: スライドショー実行中のネイティブな割り込みフックが限られており、通常のVBAコードからは進行をプログラマティックに制御しにくい。
2. コンテキストの喪失: どのスライドからどこへ遷移しようとしているのか（`SlideShowTransition`）の事前キャッチとキャンセルが困難。
3. COMオブジェクトの寿命管理: イベントリスナーとしてのインスタンスがガベージコレクションやVBAのスコープ外によって予期せぬ解放（クラッシュの温床）を引き起こす。
これらを突破するため、アプリケーションレベルのイベントを捕捉する `WithEvents` クラスと、スライドのインデックスを動的に書き換えるプレゼンテーション操作エンジンを結合する。
—
2. 実装：高度なイベントフックと動的シナリオ制御システム
以下のコードは、単なるサンプルの域を超え、商用環境に耐えうる堅牢性を持たせた実装である。
プロジェクト内に クラスモジュール（名称: `CEventMonitor`） と 標準モジュール（名称: `MInit`） を配置して構築する。
クラスモジュール: `CEventMonitor`
アプリケーションイベントを監視し、特定の条件（例: 特定のスライドに到達した際の時間経過や外部フラグ）に基づいて、次に表示すべきスライドを動的にジャンプさせる。
VERSION 1.0 CLASS
BEGIN
MultiBox = -1 ‘False
Persistable = 0
DataBindingBehavior = -1 ‘False
DataSource = 0
VB_Creatable = False
VB_Exposed = False
END
Option Explicit
‘ ApplicationオブジェクトをWithEventsで宣言し、スライドショーのイベントをフックする
Public WithEvents AppEvents As PowerPoint.Application
‘ 外部APIや非同期処理のためのWin32API宣言（必要に応じたミリ秒単位のウェイトや状態確認）
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Private Sub AppEvents_SlideShowNextSlide(ByVal Wn As PowerPoint.SlideShowWindow)
On Error GoTo ErrorHandler
Dim currentSlideIndex As Long
Dim targetSlideIndex As Long
Dim externalFlag As Boolean
‘ 現在のスライドインデックスを取得
currentSlideIndex = Wn.View.CurrentSlide.SlideIndex
‘ 【シナリオ分岐ロジックの例】
‘ スライド3に到達した場合、外部システムの状態や一時フラグを評価し、
‘ 動的にスキップまたは特殊スライドへジャンプさせる
If currentSlideIndex = 3 Then
‘ 外部データソースやINIファイル、あるいはグローバルステートの評価（擬似コード）
externalFlag = CheckExternalSystemState()
If externalFlag Then
‘ 条件を満たす場合、本来の次（スライド4）を飛ばしてスライド10へ強制ジャンプ
targetSlideIndex = 10
‘ View.GotoSlideメソッドで強制的にターゲットスライドへ遷移
‘ 注意: SlideShowNextSlideイベント内でのGotoSlideは再帰呼び出しを引き起こす可能性があるため
‘ フラグ制御や適切な遅延、あるいはアプリケーション状態のチェックが不可欠
Wn.View.GotoSlide targetSlideIndex
End If
End If
Exit Sub
ErrorHandler:
‘ プロフェッショナルコードにサイレントエラーは厳禁。最低限のロギングを行う。
Debug.Print “Error in SlideShowNextSlide: ” & Err.Description
End Sub
Private Function CheckExternalSystemState() As Boolean
‘ 実運用ではここでCOMコンポーネント、Database、あるいはテキストファイルのステータスを読み取る
‘ 今回はデモとして常にTrueを返す
CheckExternalSystemState = True
End Function
標準モジュール: `MInit`
イベント監視クラスのインスタンスを保持し、メモリ上のスコープから消滅（デストラクト）させないための永続化と、ライフサイクル管理を行う。
Option Explicit
‘ グローバル変数としてイベント監視クラスを保持し、インスタンスの生存期間を担保する
Private MonitorInstance As CEventMonitor
Public Sub StartPresentationWithMonitoring()
On Error GoTo ErrorHandler
‘ 既にインスタンスが存在する場合は一度破棄（二重起動防止）
If Not MonitorInstance Is Nothing Then
Set MonitorInstance = Nothing
End If
‘ 新しいインスタンスの生成
Set MonitorInstance = New CEventMonitor
‘ Applicationオブジェクトをバインド
Set MonitorInstance.AppEvents = Application
‘ アクティブなプレゼンテーションのスライドショーを開始
If ActivePresentation.SlideShowSettings.Run Then
MsgBox “ダイナミック・シナリオ・モニターが正常に稼働を開始しました。”, vbInformation, “System Architect”
Else
MsgBox “実行可能なスライドショーが見つかりません。”, vbCritical
End If
Exit Sub
ErrorHandler:
MsgBox “初期化エラー: ” & Err.Description, vbCritical
Set MonitorInstance = Nothing
End Sub
Public Sub TerminateMonitoring()
‘ 明示的なオブジェクトの解放（メモリ最適化の極意）
If Not MonitorInstance Is Nothing Then
Set MonitorInstance.AppEvents = Nothing
Set MonitorInstance = Nothing
End If
MsgBox “モニターを停止し、リソースを解放しました。”, vbInformation, “System Architect”
End Sub
—
3. シニアエンジニアが知るべき「メモリ最適化」と「罠」
PowerPoint VBAにおける最大の悪夢は、「イベントをフックしたままVBAの実行が終了・リセットされ、PowerPoint本体が不安定になる（またはメモリリークを起こす）」現象である。
1. `WithEvents` とインスタンスの寿命
VBAのモジュールレベル変数やグローバル変数にオブジェクトを保持させるとき、何らかのエラーや `End` ステートメントの実行によって変数がクリアされると、COMイベントの接続が不整合を起こす。これを防ぐため、必ずエラーハンドリング内で例外を捕捉し、クリーンアップルーチン（`TerminateMonitoring`）へ誘導する設計を義務付けなければならない。
2. イベント内での無限ループの回避
`SlideShowNextSlide` イベント内で `Wn.View.GotoSlide` を実行すると、スライド遷移イベントが再び発火し、スタックオーバーフロー（無限再帰）を引き起こすリスクがある。
これを防ぐため、次のような「ガード句（静的フラグやセマフォの代わりとなる変数）」をクラス内に設けるのがプロの技法である。
Private isRedirecting As Boolean
Private Sub AppEvents_SlideShowNextSlide(ByVal Wn As PowerPoint.SlideShowWindow)
If isRedirecting Then Exit Sub ‘ 再帰呼び出しの防止
isRedirecting = True
‘ — 処理本体 —
Wn.View.GotoSlide targetSlideIndex
‘ —————-
isRedirecting = False
End Sub
—
4. レガシー環境・システム間連携への拡張
このアーキテクチャの真価は、PowerPointを単なる「プレゼンツール」ではなく、「多重システム統合のUIクライアント」として昇華させる点にある。
- Excel / Access との連携: バックグラウンドで動くExcelの計算エンジンからリアルタイムにKPIデータをポーリングし、その数値が閾値を超えた瞬間に、今回の `SlideShowNextSlide` フックを使って「警告スライド」へ強制分岐させる。
- 外部APIとの同期: 社内REST APIへHTTPリクエストを非同期で投げ、その応答コードに応じてプレゼンのシナリオを「通常営業モード」から「緊急対策モード」へと動的にスイッチする。
PowerPoint VBAは、正しく飼いならせば、単なるマクロの域を超えたエンタープライズ・プレゼンテーション・オーケストレーション・エンジンとなる。オブジェクトのライフサイクルを完全に支配し、堅牢なイベント駆動型アーキテクチャを構築せよ。
