PowerPoint VBAを掌握する極限の知見：キオスク端末向け自動ループ再生の完全制御と `.ppsx` 堅牢デプロイ
展示会、無人受付、あるいは常設のデジタルサイネージ。Windows端末を「キオスク端末」として運用する際、最も排除すべきは「人間の操作への依存」と「予期せぬデスクトップ画面の露出」である。
一般的なPowerPointのGUI操作による設定では、設定漏れや、利用者が誤ってESCキーを押した際の脱獄（ブレイクアウト）を防ぎきれない。
われわれシニアエンジニアが求めるのは、コードによる完全な状態の固定化、メモリリークの根絶、そしてシステム連携を前提としたアトミックなファイル生成だ。今回は、`SlideShowSettings` オブジェクトの深部をハックし、完全無人稼働する `.ppsx`（PowerPointスライドショー形式）を生成・保存するプロフェッショナル向けコードと、その裏にあるアーキテクチャを解説する。
—
1. アーキテクチャの核心：なぜ `.ppsx` か、なぜVBAで制御するのか
GUIで「スライドショーの設定」を開き、「ウインドウ表示（キオスク）」にチェックを入れる作業は、属人性を生むバグの温床だ。これをコードで強制することで、環境差異によるヒューマンエラーを排除する。
さらに、保存形式として `.pptx`（プレゼンテーション）ではなく `.ppsx`（スライドショー）を選択することに本質がある。
- `.ppsx` の特性: エクスプローラー等からダブルクリックされた際、編集モード（編集画面）ではなく、即座にフルスクリーンのスライドショーとしてプロセスが起動する。
- 運用上のメリット: 現地スタッフが誤ってファイルを上書き保存したり、アニメーションのタイミングを破壊するリスクを物理的に遮断できる。
—
2. 実装コード：キオスク最適化・自動ループ再生ジェネレータ
以下のVBAコードは、現在アクティブなプレゼンテーションに対し、キオスク端末に必要なすべてのスライドショー設定をプログラム的に強制適用し、専用の `.ppsx` として安全に書き出すものである。
オブジェクトのライフサイクル管理、および COMコンポーネント特有のメモリ解放の作法を徹底している点に注目してほしい。
Option Explicit
‘ =================================================================================
‘ módulo: ModKioskBuilder
‘ 概要: アクティブなプレゼンテーションをキオスク端末向けに最適化し、
‘ 自動ループ再生の設定を施した上で、.ppsx形式でアトミックに保存する。
‘ =================================================================================
Public Sub BuildKioskPresentation()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ 1. 実行ガード: 未保存の新規プレゼンテーションの場合はパス解決できないため弾く
If targetPres.Path = “” Then
MsgBox “一度ファイルを保存してから実行してください。”, vbCritical, “Kiosk Builder Error”
Exit Sub
End If
Dim originalPath As String
Dim savePath As String
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
originalPath = targetPres.FullName
‘ 保存先のパスを生成（同階層に “.ppsx” として出力）
savePath = fso.BuildPath(targetPres.Path, fso.GetBaseName(targetPres.Name) & “_Kiosk.ppsx”)
On Error GoTo ErrorHandler
‘ 2. スライドショー設定（SlideShowSettings）の極限チューニング
With targetPres.SlideShowSettings
‘ 画面全体での実行（キオスクの基本）
.ShowType = ppShowTypeKiosk
‘ ループ再生の有効化（ESCが押されるまで無限ループ）
.LoopUntilStopped = True
‘ ナレーションの不使用（環境依存の音声トラブルを防止）
.AdvanceWithNarrations = False
‘ 画面切り替えのタイミングを「自動」に強制（各スライドの持続時間に依存）
.AdvanceWithTimings = True
‘ 範囲指定：全スライドを対象
.RangeType = ppShowAll
‘ プレゼンタービューの無効化（単一モニタ/キオスク端末での誤動作防止）
.ShowPresenterView = False
‘ ペンやレーザーポインタの無効化（タッチパネル誤操作対策として必要に応じ調整）
‘ .PointerColor.RGB = RGB(255, 0, 0)
End With
‘ 3. アトミックな保存処理 (ppSaveDefault または ppSaveAsShow形式を指定)
‘ 既存ファイルがある場合は強制上書きするため、事前にFSOで削除を担保
If fso.FileExists(savePath) Then
fso.DeleteFile savePath, True
End If
‘ .ppsx (ppSaveAsShow) として保存
targetPres.SaveAs FileName:=savePath, FileFormat:=ppSaveAsShow
MsgBox “キオスク用スライドショーの生成に成功しました。” & vbCrLf & _
“出力先: ” & savePath, vbInformation, “Kiosk Deployment Complete”
CleanUp:
‘ 4. オブジェクトの明示的解放（VBAメモリ管理の鉄則）
Set fso = Nothing
Set targetPres = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error Number: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “Critical Error”
Resume CleanUp
End Sub
—
3. チーフアーキテクトが解説するコードの急所
A. `ppShowTypeKiosk` と `ppShowTypeWindow` の挙動差分
単なる「フルスクリーン再生（`ppShowTypeFullScreen`）」を選択した場合、ユーザーが `Alt + Tab` や `Windowsキー` を押した際にデスクトップへ脱出できる余地が残る。
一方、`ppShowTypeKiosk`（全画面表示での閲覧・キオスクモード）は、ポップアップメニューの抑制やウィンドウ操作の制限が内包されるため、受付端末などの無人環境において必須の定数となる。
B. COMオブジェクトのライフサイクルとガベージコレクション
VBAの裏では、OfficeのC++製COMオブジェクトが稼働している。`Set fso = Nothing` や `Set targetPres = Nothing` を省略すると、VBAの実行が終了するまで参照カウントが残り続け、特に自動化バッチからPowerPointを連続起動するようなシステム連携において、メモリリークやバックグラウンドプロセスのゾンビ化を引き起こす。
「使った参照は速やかに明示的に破棄する」。これはレガシー環境であっても妥협してはならないエンジニアリングの基本姿勢である。
—
4. 発展：Windows API連携による「完全なキオスク化」の極意
VBAだけでPowerPoint側の制御は完了するが、真に堅牢なキオスク端末を構築するには、Windows OS側のエッジケース（タスクマネージャーの起動、通知ポップアップ、Windows Updateの強制再起動など）をねじ伏せる必要がある。
実運用においては、上記VBAで生成した `.ppsx` を、Windowsの「タスクスケジューラ」または「シェルリプレース（タスクバーの排除）」と組み合わせる。
さらに高度な制御を行う場合、VBAから直接 `User32.dll` の APIを叩き、PowerPoint起動と同時にタスクバーを隠蔽するコードを前段にフックすることも検討に値する。
‘ （参考）タスクバーを一時的に非表示にするAPI宣言のサンプル
If VBA7 Then
Private Declare PtrSafe Function ShowWindow Lib “user32” (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Else
‘ 32bit環境へのフォールバック（レガシー保守用）
Private Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
End If
Const SW_HIDE As Long = 0
Const SW_SHOW As Long = 5
Private Sub ToggleTaskBar(ByVal Hide As Boolean)
Dim lngHwnd As LongPtr
lngHwnd = FindWindow(“Shell_TrayWnd”, vbNullString)
If lngHwnd <> 0 Then
If Hide Then
Call ShowWindow(lngHwnd, SW_HIDE)
Else
Call ShowWindow(lngHwnd, SW_SHOW)
End If
End If
End Sub
(※注意: タスクバーを消去・制御する場合は、異常終了時にタスクバーが戻らなくなるリスクを考慮し、必ずクリーンアップ時やエラーハンドラー内で `SW_SHOW` を呼ぶシークエンスを担保すること。)
—
5. 結言
PowerPoint VBAは、単なる「お絵描きソフトのマクロ言語」ではない。適切なAPIの選択、オブジェクトモデルの深い理解、そしてOSレベルのライフサイクルを意識することで、エンタープライズレベルのサイネージ制御基盤へと昇華させることができる。
展示会や受付端末という「絶対に止めてはならない、人の目が届かない場所」でこそ、このコードベースが持つ堅牢性が最大の価値を発揮するだろう。技術の細部に宿る妥協なき設計を、あなたのシステムにも実装してほしい。
