【実務中級】Presentation.SlideShowSettingsのStartingSlide/EndingSlideをハック：特定のセクションや範囲だけを切り出してスライドショーを動的実行する制御マクロ
エンタープライズの現場において、100枚を超える巨大なマスタープレゼンテーションを運用することは日常茶飯事だ。全社定例、部門別レビュー、新規顧客向けピッチ。相手の関心や持ち時間に応じて、その都度スライドを非表示に設定したり、別ファイルに切り出したりといった泥臭い作業にエンジニアが時間を奪われてはならない。
PowerPointのオブジェクトモデルには、スライドショーの挙動をプログラムから完全に制御するための `SlideShowSettings` という強力なインターフェースが用意されている。しかし、これを実務レベルの堅牢なシステムとして組み上げるには、単にプロパティを書き換えるだけでは不十分だ。
今回は、`StartingSlide` と `EndingSlide` を動的にハックし、さらにメモリ管理やエラーハンドリング、UIスレッドのブロック回避までを考慮した、実務特化型の動的スライドショー制御アーキテクトコードを提示する。
—
1. `SlideShowSettings` の本質とアーキテクチャの罠
多くのVBAプログラマーは、スライドショーを開始する際に単純に `ActivePresentation.SlideShowSettings.Run` を叩く。しかし、このオブジェクトのプロパティ（`StartingSlide` や `EndingSlide`）は、プレゼンテーションファイル本体のメタデータ状態を書き換える副作用を持つ。
マルチユーザー環境や、背後で別のマクロが走っているレガシーな環境において、この「状態の書き換え」は致命的な競合を引き起こす可能性がある。さらに、PowerPointのCOMオブジェクトはガベージコレクションのタイミングが曖昧であり、不適切な参照保持はメモリリークやPPTプロセスのハングアップ直結する。
シニアエンジニアに求められるのは、「実行時のコンテキストを汚さず、安全に範囲を切り出し、即座にクリーンアップする」というライフサイクル管理の徹底だ。
—
2. 実装コード：動的範囲スライドショー制御エンジン
以下のコードは、指定したスライド番号の範囲（例: スライド5から12まで）のみを安全に切り出し、外部ユーザーに意識させず瞬時にスライドショーを実行するプロシージャである。エラーハンドリングとオブジェクトの明示的解放（Null安全）を完備している。
Option Explicit
‘ ==============================================================================
‘ 模块名: ModSlideShowController
‘ 概要: 指定されたスライド範囲のみを動的に切り出してスライドショーを実行する
‘ 著者: チーフアーキテクト
‘ ==============================================================================
Public Sub RunCustomSlideRange(ByVal startSlideIndex As Long, ByVal endSlideIndex As Long)
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ ガード節：プレゼンテーションの有効性と範囲の妥当性検証
If targetPres Is Nothing Then
MsgBox “アクティブなプレゼンテーションが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If
Dim totalSlides As Long
totalSlides = targetPres.Slides.Count
‘ 範囲の境界値チェック（境界値分析に基づく堅牢性確保）
If startSlideIndex < 1 Or endSlideIndex > totalSlides Or startSlideIndex > endSlideIndex Then
MsgBox “指定されたスライド範囲が無効です。” & vbCrLf & _
“範囲: ” & startSlideIndex & ” 〜 ” & endSlideIndex & vbCrLf & _
“全体スライド数: ” & totalSlides, vbExclamation, “パラメータエラー”
Exit Sub
End If
Dim ssSettings As SlideShowSettings
Set ssSettings = targetPres.SlideShowSettings
‘ 退避：既存の設定を保持するためのバックアップ（レジリエンス確保）
Dim originalRangeType As Long
Dim originalStart As Long
Dim originalEnd As Long
On Error GoTo ErrorHandler
With ssSettings
originalRangeType = .RangeType
originalStart = .StartingSlide
originalEnd = .EndingSlide
‘ 核心ハック：カスタム範囲モードへ強制移行
.RangeType = ppShowRange
.StartingSlide = startSlideIndex
.EndingSlide = endSlideIndex
‘ スライドショーの実行
‘ 注意: .Runメソッドは実行コンテキストをブロックするため、
‘ ウィンドウオブジェクトが返却された後の制御フローに留意する
Dim ssWindow As SlideShowWindow
Set ssWindow = .Run
End With
‘ スライドショー終了までVBAの実行を同期させたい場合の処理（必要に応じてコメント解除）
‘ Do While Application.SlideShowWindows.Count > 0
‘ DoEvents
‘ Loop
CleanUp:
‘ 状態の復元（トランザクションのコミット/ロールバック概念）
If Not ssSettings Is Nothing Then
ssSettings.RangeType = originalRangeType
ssSettings.StartingSlide = originalStart
ssSettings.EndingSlide = originalEnd
End If
‘ 明示的なオブジェクト解放（メモリリーク防止の鉄則）
Set ssWindow = Nothing
Set ssSettings = Nothing
Set targetPres = Nothing
Exit Sub
ErrorHandler:
MsgBox “スライドショーの実行中に予期せぬエラーが発生しました。” & vbCrLf & _
“Error 0x賠償: ” & Err.Number & ” – ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ ラッパープロシージャ：UIやリボン、外部システムからのエントリポイント
‘ ==============================================================================
Public Sub LaunchDemoRange()
‘ 例として「スライド3からスライド7まで」を動的実行
Call RunCustomSlideRange(3, 7)
End Sub
—
3. コードの深層解説：なぜこの実装が必要なのか？
① トランザクション的な状態復元 (`CleanUp` ラベルの活用)
VBAにおいて、実行時エラーやユーザーによる強制終了が発生した際、プロパティが変更されたままファイルが残る現象はバグの温床となる。`On Error GoTo ErrorHandler` を経由して必ず `CleanUp` ブロックを通過させ、元の `RangeType` や `StartingSlide` を復元する設計（イディオム）は、エンタープライズ開発における必須要件である。
② COMオブジェクトの適切な破棄
`ActivePresentation` や `SlideShowSettings` は背後で重厚なCOMコンポーネントをラップしている。プロシージャのスコープを抜ける際に `Set xxx = Nothing` を明示的に記述することで、VBAランタイムの参照カウンタを確実にデクリメントし、PowerPointプロセス全体のメモリフットプリントを最適化する。
③ 拡張性とシステム間連携
このプロシージャを基盤としておけば、例えば外部のExcel管理台帳や、Outlookのメール件名、さらにはDatabase（SQL Server等）から渡されたパラメータに基づいて、「特定の顧客に必要なセクションだけを自動アセンブルしてプレゼンを開始する自動化ツール」へとシームレスに拡張できる。
—
総括
PowerPoint VBAは、単なる「お絵描きマクロの記録ツール」ではない。オブジェクトモデルの本質を理解し、メモリ管理と例外処理の作法を徹底すれば、企業のプレゼンテーション業務を根底から自動化する強固なミドルウェアへと昇華させることができる。
「動けばいい」というアマチュアのコードを捨て、極限まで洗練されたアーキテクチャで、真の自動化エンジニアリングを現場に実装せよ。
