【スライドショー制御】SlideShowWindowオブジェクトをハック：実行中のスライドショー強制終了と特定スライドへの動的ジャンプ
業務自動化エンジニアの皆さん、こんにちは。
PowerPoint VBAといえば、せいぜい「定型スライドを一括生成するマクロ」や「図形の整列」程度で思考停止していないだろうか？
本稿で扱うのは、その次元を遥かに超越した領域――「実行中のスライドショーへのリアルタイム介入と動的制御」だ。
プレゼンテーションの最中、ユーザーの入力や外部システム（データベースやIoTセンサーなど）からのシグナルに応じて、スライドショーの進行を完全にジャックし、任意のスライドへ瞬時にワープさせる、あるいは強制終了させる。この神業のような制御を実現するのが、`SlideShowWindow`オブジェクトである。
今回は、アマチュア開発者が陥る「スライドショー実行中のハングアップ」や「オブジェクト参照エラー」を完全に排除し、現場のプロダクション環境で耐えうる堅牢なコードベースを直伝しよう。
—
1. なぜ通常のVBAコードではスライドショーを制御できないのか？
多くの開発者が最初に直面する絶望。それは、「スライドショーが実行されると、VBAの標準的なコードの実行がブロックされる（またはコンテキストが切り替わる）」というPowerPointのアーキテクチャ上の仕様だ。
プレゼンターがF5キーを押してスライドショーが始まった瞬間、`Application`オブジェクトの挙動は静的な編集モードから動的な上映モードへとシフトする。この時、アクティブなウィンドウは `ActiveWindow` ではなく、`SlideShowWindows(1)` という独立したスレッド・オブジェクトとしてメモリ上にロードされる。
初心者がやりがちなアンチパターン
‘ 【悪夢の例】これではスライドショー実行中に外部から制御できない
Sub BadExample()
ActivePresentation.SlideShowSettings.Run
‘ スライドショーが走ると、ここでコードが完全にストップする！
‘ 外部からの条件分岐やジャンプの命令が届かない。
MsgBox “ここには到達しない”
End Sub
実行中のショーをコントロールするには、「非同期イベント（クラスモジュール）」または「別プロセス・別トリガーからのアプローチ」を理解し、`SlideShowWindow` のライフサイクルを完全に掌握しなければならない。
—
2. 堅牢な制御の要：`SlideShowWindow` と `View` オブジェクトの構造
`SlideShowWindow` をハックするためのオブジェクトモデルの階層を正確に押さえておこう。
- `Application.SlideShowWindows` （コレクション）
- `SlideShowWindow` （単体の実行ウィンドウ）
- `.View` ⇒ `SlideShowView`オブジェクト（ここが最重要。ジャンプや終了のメソッドを持つ）
- `.Presentation` ⇒ 実行中のプレゼンテーション実体
特定のスライドへ動的にジャンプするためには、`SlideShowWindow.View.GotoSlide()` メソッドを使用する。しかし、ただメソッドを叩くだけでは、マルチモニター環境や、そもそもスライドショーが起動していない状態でのエラー（Runtime Error）を防げない。
プロダクションコードには、「防衛的プログラミング（Defensive Programming）」の哲学を組み込む必要がある。
—
3. 【実践】実行中のショーを動的ジャンプ＆強制終了するプロダクションコード
以下のコードは、現在実行中のスライドショーが存在するかを安全に判定し、状態に応じたジャンプや強制終了を行うプロ仕様のプロシージャだ。
標準モジュールに配置し、リボンのマクロや外部トリガーから呼び出して使用してほしい。
Option Explicit
‘ ==============================================================================
‘ モジュール名: mSlideShowController
‘ 概要 : 実行中のスライドショーを監視・制御し、動的ジャンプおよび強制終了を行う
‘ ==============================================================================
Public Sub ControlActiveSlideShow(ByVal targetAction As String, Optional ByVal targetSlideIndex As Long = 1)
Dim targetSSW As SlideShowWindow
‘ 1. スライドショーが実行中かどうかの厳密なチェック
If Not IsSlideShowRunning(targetSSW) Then
MsgBox “現在実行中のスライドショーが存在しません。”, vbExclamation, “制御エラー”
Exit Sub
End If
‘ 2. アクションに応じた分岐処理
On Error GoTo ErrorHandler
Select Case UCase(Trim(targetAction))
Case “TERMINATE”
‘ — 強制終了 —
targetSSW.View.Exit
MsgBox “スライドショーを強制終了しました。”, vbInformation, “システム通知”
Case “JUMP”
‘ — 特定スライドへの動的ジャンプ —
‘ プレゼンテーションの総スライド数を超えていないかバリデーション
If targetSlideIndex < 1 Or targetSlideIndex > targetSSW.Presentation.Slides.Count Then
MsgBox “指定されたスライド番号 (” & targetSlideIndex & “) は範囲外です。”, vbCritical, “ジャンプ失敗”
Exit Sub
End If
‘ View.GotoSlide メソッドでアニメーション状態を保持したままジャンプ
targetSSW.View.GotoSlide Index:=targetSlideIndex, ResetSlide:=msoTrue
Case Else
MsgBox “未知の制御コマンドが指定されました: ” & targetAction, vbCritical, “パラメーターエラー”
End Select
Exit Sub
ErrorHandler:
‘ 予期せぬランタイムエラーのキャッチ
MsgBox “スライドショーの制御中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ——————————————————————————
‘ ヘルパー関数: スライドショーの実行状態を安全に取得し、参照を返す
‘ ——————————————————————————
Private Function IsSlideShowRunning(ByRef oSSW As SlideShowWindow) As Boolean
On Error Resume Next
If Application.SlideShowWindows.Count > 0 Then
Set oSSW = Application.SlideShowWindows(1)
IsSlideShowRunning = True
Else
Set oSSW = Nothing
IsSlideShowRunning = False
End If
On Error GoTo 0
End Function
—
4. 外部システム・データベース連携における設計の注意点
現場の業務自動化において、このスライドショー制御が真価を発揮するのは、「外部からのイベント駆動型」で動くときだ。例えば、以下のようなシステム連携を想定してほしい。
1. バーコードリーダーやRFIDの読み取り：現場の作業員が特定の部材をスキャンすると、VBAがそれを検知し、該当部材のマニュアルスライドへ瞬間的にジャンプする。
2. データベース（SQL Server / Access等）のステータス監視：バックグラウンドでDBをポーリングし、異常ステータス（エラーフラグ）が立った瞬間にスライドショーを強制終了させ、警告画面へ切り替える。
🚨 アーキテクチャ上のクリティカルな注意点
先述した通り、PowerPointのメインスレッドで無限ループ（DBのポーリングなど）を回すと、スライドショーの描画やアニメーションが完全にフリーズする。
これを防ぐための極意：
- ポーリング処理を避ける：VBA単体でタイマー処理を回すのはパフォーマンスの観点から推奨しない。どうしても行う場合は `Application.OnTime` を用いるが、スライドショー中の挙動は不安定になりやすい。
- 実務的なアプローチ：PowerPointマクロを主軸にするのではなく、Excel VBA（あるいはVB.NET等の外部常駐アプリケーション）から、COMオートメーション経由でPowerPointの `SlideShowWindow` を外側からコントロールするアーキテクチャ（IPC:プロセス間通信）を採用するのが、エンタープライズ環境では最も堅牢である。
—
5. チーフアーキテクトからの提言
PowerPoint VBAは、「お絵描きツールのおまけ」ではない。適切にオブジェクトモデルを理解し、メモリとプロセスのライフサイクルを制御下に入れれば、現場のオペレーションを革命的に効率化する強力なプレゼンテーション・エンジンに化ける。
今回紹介した `SlideShowWindow` と `SlideShowView` のハック手法は、その氷山の一角に過ぎない。エラーハンドリングを怠らず、予期せぬ状態変化（ユーザーによる手動終了など）にも耐えうる堅牢なコードを書き上げることで、あなたの開発するツールは「おもちゃ」から「プロフェッショナル・プロダクト」へと昇華する。
現場の自動化の限界を突破するのは、いつだって妥協のないコード設計だ。健闘を祈る。
