【プロジェクター接続エラー回避】PowerPoint VBA：ディスプレイ不整合を完全制御する極限のフォールバック実装
シニアエンジニアおよびエンタープライズ領域のシステム管理者各位。
会議室の壇上で、重役たちが固唾を飲んで見守る中、メインプレゼンテーションの「スライドショー実行（`Run`メソッド）」の瞬間に走る冷や汗の正体を知っているか。
「実行時エラー ‘-2147467259 (80004005)’: スライドショーを開始できませんでした」
原因は単純だ。前夜の机上テストではマルチモニターの拡張デスクトップ環境（あるいは4K解像度）であったものが、当日のプロジェクター接続ではミラーリング、あるいは解像度の急激なダウンコンバート、果てはEDID（Extended Display Identification Data）のハンドシェイク失敗によるディスプレイロストを引き起こしている。
素人が書いたコードは、この瞬間にお亡くなりになる。
我々プロフェッショナルな業務自動化エンジニアは、環境の不整合を言い訳にしない。APIの深淵を覗き、OSのディスプレイ構成を事前に検知し、如何なる悪条件であっても安全にウィンドウモードへフォールバックする「落ちないプレゼン基盤」を構築しなければならないのだ。
今回は、PowerPoint VBAのオブジェクトモデルの限界を超え、Windows APIと連携してディスプレイの整合性を担保する極限の知見をここに開示する。
—
1. なぜ `SlideShowSettings.Run` は容赦なくクラッシュするのか
PowerPointのオブジェクトモデルにおいて、`Presentation.SlideShowSettings` はスライドショーの挙動を定義する重要なファサードである。しかし、`Run` メソッドを呼び出した瞬間、PowerPointの内部レンダリングエンジンは以下の処理を強制する。
1. ディスプレイデバイスコンテキスト（DC）の再構築
2. DirectX / Direct3D によるフルスクリーンサーフェイスの専有
3. 指定されたモニターインデックス（`ShowType` や `DisplayIndex`）の物理存在確認
ここで、VBAコード側が認識しているモニターIDと、Windows OSがプラグ＆プレイ（PnP）で直前に再認識した物理モニターIDに乖離がある場合、容赦なく致命的なCOM例外（HRESULT）が投げる。厄介なことに、VBAの標準エラーハンドリング（`On Error Resume Next`）だけでは、PowerPointのプロセス自体がフリーズするか、強制終了（ハングアップ）するケースが後を絶たない。
真の堅牢性を得るためには、「実行前のディスプレイ数・解像度の検証」 と 「安全なフォールバック（ウィンドウモード `ppShowTypeWindow` への強制降格）」 をワンストップで実装する必要がある。
—
2. アーキテクチャ設計：APIによるモニター監視とフォールバック
今回の実装方針は以下の通りである。
1. Windows API (`EnumDisplayMonitors`, `GetMonitorInfo`) の活用：
現在有効な物理ディスプレイの数と座標を正確に取得し、PowerPointが要求するモニターが存在するかを判定する。
2. 安全なプロパティの退避と動的変更：
`SlideShowSettings` の設定（全画面表示）を、一時的にウィンドウ内表示（`ppShowTypeWindow`）に書き換えて安全に起動する。
3. 完全なメモリ管理（オブジェクトの明示的解放）：
COMオブジェクトの参照カウントを意識し、メモリリークを根絶する。
—
3. 実装コード：極限の堅牢性を持つスライドショー起動モジュール
以下のコードを標準モジュールに配置せよ。エラーハンドリングとAPIの型定義を極限まで最適化したプロダクションコードである。
Option Explicit
‘ ==============================================================================
‘ モジュール名: Mdl_SafeSlideShowRunner
‘ 概要 : ディスプレイ環境の整合性を検証し、安全にスライドショーを起動する
‘ アーキテクト: シニア業務自動化エンジニア
‘ ==============================================================================
‘ Windows API Declarations for Multi-Monitor Enumeration
If VBA7 Then
Private Declare PtrSafe Function EnumDisplayMonitors Lib “user32” ( _
ByVal hdc As LongPtr, _
ByVal lprcClip As LongPtr, _
ByVal lpfnEnum As LongPtr, _
ByVal dwData As LongPtr) As Long
Private Declare PtrSafe Function GetMonitorInfo Lib “user32” Alias “GetMonitorInfoA” ( _
ByVal hMonitor As LongPtr, _
ByRef lpmi As MONITORINFO) As Long
Else
Private Declare Function EnumDisplayMonitors Lib “user32” ( _
ByVal hdc As Long, _
ByVal lprcClip As Long, _
ByVal lpfnEnum As Long, _
ByVal dwData As Long) As Long
Private Declare Function GetMonitorInfo Lib “user32” Alias “GetMonitorInfoA” ( _
ByVal hMonitor As Long, _
ByRef lpmi As MONITORINFO) As Long
End If
‘ API Structures
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type MONITORINFO
cbSize As Long
rcMonitor As RECT
rcWork As RECT
dwFlags As Long
End Type
‘ モニター数を格納するグローバルスコープのカウンター（コールバック用）
Private g_MonitorCount As Long
”’
”’
Private Function MonitorEnumProc(ByVal hMonitor As LongPtr, ByVal hdcMonitor As LongPtr, ByRef lprcMonitor As RECT, ByVal dwData As LongPtr) As Long
g_MonitorCount = g_MonitorCount + 1
MonitorEnumProc = 1 ‘ 継続
End Function
”’
”’
Private Function GetActiveMonitorCount() As Long
g_MonitorCount = 0
‘ コールバックポインタの取得（AddressOfは標準モジュール必須）
EnumDisplayMonitors 0, 0, AddressOf MonitorEnumProc, 0
GetActiveMonitorCount = g_MonitorCount
End Function
”’
”’
Public Sub ExecuteBulletproofSlideShow(ByVal targetPresentation As Presentation)
‘ オブジェクト変数の宣言
Dim ssSettings As SlideShowSettings
Dim originalShowType As Long
Dim originalAdvanceMode As Long
Dim activeMonitors As Long
Dim isFallbackTriggered As Boolean
‘ エラーハンドラーの有効化
On Error GoTo ErrorHandler
If targetPresentation Is Nothing Then
MsgBox “対象のプレゼンテーションオブジェクトが無効です。”, vbCritical, “致命的エラー”
Exit Sub
End If
Set ssSettings = targetPresentation.SlideShowSettings
‘ 1. 現在のディスプレイ構成をAPIで直接取得（PowerPointの内部状態に依存しない）
activeMonitors = GetActiveMonitorCount()
‘ 2. 設定の退避
originalShowType = ssSettings.ShowType
originalAdvanceMode = ssSettings.AdvanceMode
isFallbackTriggered = False
‘ 3. 整合性チェック (例: マルチモニター前提の設定だが、実際はシングル/0台の場合など)
‘ ※ ここでは「指定モニターが存在しない環境リスク」を安全サイドに倒す
If activeMonitors <= 1 And ssSettings.RangeType = ppShowAll Then
' 安全装置発動：マルチディスプレイ依存のフルスクリーン設定をウィンドウモードへ強制降格
ssSettings.ShowType = ppShowTypeWindow
isFallbackTriggered = True
Debug.Print "[WARN] ディスプレイ構成の不整合を検知。ウィンドウモードへフォールバックします。"
End If
' 4. スライドショーの実行
' ここで例外が発生した場合、エラーハンドラーへジャンプ
Dim ssWindow As SlideShowWindow
Set ssWindow = ssSettings.Run()
' 正常終了時のログ（必要に応じて）
If isFallbackTriggered Then
MsgBox "プロジェクター環境の不整合を検知したため、" & vbCrLf & _
"安全のためにウィンドウモードで起動しました。", vbExclamation, "セーフティ起動"
End If
CleanUp:
' 5. オブジェクトの明示的解放（メモリ最適化の極意）
Set ssWindow = Nothing
Set ssSettings = Nothing
Exit Sub
ErrorHandler:
' 6. 予期せぬクラッシュを防ぐ最後の砦
MsgBox "スライドショーの起動中に回復不可能なエラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"説明: " & Err.Description, vbCritical, "セーフティフォールバック発動"
' 異常終了時も設定の復元を試みる（極限のクリーンアップ）
On Error Resume Next
If Not ssSettings Is Nothing Then
ssSettings.ShowType = originalShowType
ssSettings.AdvanceMode = originalAdvanceMode
End If
On Error GoTo 0
Resume CleanUp
End Sub
---
4. チーフアーキテクトが解説するコードの急所と技術的ポイント
このコードが他の凡庸なスクリプトと一線を画す理由は以下の3点にある。
A. PowerPointの内部キャッシュを信用せず、OS API (`EnumDisplayMonitors`) を直撃する
PowerPointの `SlideShowSettings.DisplayIndex` プロパティは、OS側のディスプレイ構成が変更された直後、キャッシュ汚染を起こしている場合がある。OSのAPIを直接叩いて「現在物理的にいくつのモニターが生存しているか」を泥臭く正確に把握することで、存在しないモニターインデックスを指定してのクラッシュを未然に防いでいる。
B. ステート（状態）の確実な退避と復元
フォールバック処理を行う際、元の設定（`originalShowType` 等）を揮発させずにローカル変数へ退避させている。万が一エラーが発生してルーチンを抜ける場合でも、`ErrorHandler` 内で確実に元のステートへ復元を試みる設計思想（RAII的アプローチ）をVBAの制限下で極限まで再現している。
C. COMオブジェクトの参照カウントの厳密な管理
`SlideShowWindow` や `SlideShowSettings` といったCOMオブジェクトは、VBAのガベージコレクションに完全に依存していると、参照が残り続け、PowerPointプロセスがメモリ上にゾンビとして居座る原因になる。`Set xxx = Nothing` を必ず実行パスの終端（CleanUpラベル）に記述し、CLR/COM境界のメモリリークを断ち切っている。
—
5. 現場への導入と運用管理者の心得
このモジュールを組み込んだツールを社内展開する際、システム管理者は以下の運用統制を敷くべきである。
- マクロのセキュリティポリシー：
信頼できる場所（Trusted Locations）にドキュメントを配置し、API呼び出し（`PtrSafe` 宣言）が64bit版Office環境で確実に動作することを検証すること。
- プレゼンターへのUX配慮：
フォールバックが発動した際、いきなり画面が小さくなってもパニックにならないよう、メッセージボックスで「ウィンドウモードで安全に起動しました」と优雅（エレガント）に通知する設計にしている。現場の人間は技術的背景など理解していない。「何故か動いた、流石だ」と言わせるシステムこそが、最高峰の自動化エンジニアの成果物である。
妥協のないコードだけが、修羅場のプレゼンを救う。
明日からの開発現場で、この知見を最大限に活用してほしい。
