PowerPoint VBAを掌握する：`Presentation.Close`の完全制御と「サイレント終了」の極意
業務自動化の現場において、最も排除すべきは「ユーザーの作業を中断させるダイアログ」です。
バックグラウンドで大量のPPTファイルを処理し、最後に閉じる際、不意に現れる「保存しますか？」の問いかけ。これほど自動化エンジニアのプライドを傷つけるものはありません。
今回は、PowerPoint VBAにおける『Presentation.Closeの完全制御』について、オブジェクトモデルの深層に触れながら解説します。
—
1. なぜ「そのまま閉じる」ではいけないのか
VBAで単純に `Presentation.Close` を呼ぶと、ファイルが未保存状態であればPowerPointは律儀に警告ダイアログを表示します。これを回避するために多くの初学者が陥る罠が、`Application.DisplayAlerts = ppAlertsNone` の多用です。
しかし、これは「諸刃の剣」です。`DisplayAlerts`をオフにしたままエラーでマクロが終了すると、その後の作業で重要な警告まで無視されるリスクを孕みます。
プロフェッショナルな解は、「保存状態（Savedプロパティ）を意図的に偽装し、システムに『既に保存済みである』と誤認させる」アプローチです。
—
2. 実装：Presentation.Close 完全制御関数
この関数は、`Saved`プロパティを操作することで、ダイアログを一切出さずに「破棄」か「保存」かを決定します。
‘ @brief 指定したプレゼンテーションを警告なしで終了する
‘ @param targetPres 対象のPresentationオブジェクト
‘ @param saveMode True:上書き保存して閉じる / False:変更を破棄して閉じる
Public Sub SilentClose(ByRef targetPres As Presentation, ByVal saveMode As Boolean)
If targetPres Is Nothing Then Exit Sub
On Error Resume Next ‘ 予期せぬオブジェクト消失への保険
‘ saveModeがFalseなら、SavedプロパティをTrueに偽装して「変更なし」と誤認させる
If Not saveMode Then
targetPres.Saved = msoTrue
Else
‘ 保存する場合は、明示的に保存を実行してから閉じる
targetPres.Save
End If
‘ 閉じる
targetPres.Close
On Error GoTo 0
End Sub
このコードの設計思想
- `Saved = msoTrue` の魔術: `Saved`は読み書き可能なプロパティです。これを強制的に`True`にすることで、PowerPoint内部の「ダーティフラグ」をクリアします。ユーザーの意図を汲み取り、不要なIO処理をスキップする最高速の終了手段です。
- 例外処理の最小化: `On Error Resume Next` は多用厳禁ですが、オブジェクトのクローズという最終段階においては、プロセスがゾンビ化するのを防ぐための最小限の防壁として機能させます。
—
3. 実務で遭遇する「落とし穴」と対策
① 読み取り専用ファイルへの配慮
`targetPres.Save` を実行する際、ファイルが読み取り専用属性だったり、ネットワークドライブの切断により書き込み権限がない場合、エラーが発生します。
‘ 保存前にReadOnly属性をチェックする堅牢な実装
If saveMode Then
If Not targetPres.ReadOnly Then
targetPres.Save
Else
Debug.Print “警告: 読み取り専用ファイルのため保存スキップ”
End If
End If
② データベース連携時の注意
もしあなたのツールが「PPTからデータを抽出してDBへ送る」処理を行っている場合、処理の順序は厳守してください。
1. データ抽出（Read）
2. DBへの書き込み（Transaction）
3. `SilentClose(pres, False)` で終了
DBへの書き込みが失敗した際に、誤ってファイルを上書き保存（`saveMode = True`）してしまわないよう、必ずエラーハンドリングと連携させてください。
—
4. チーフアーキテクトからの提言
自動化ツールの価値は、「どれだけ速く動くか」ではなく「どれだけユーザーに存在を感じさせないか」にあります。
- ダイアログは敗北の象徴: ユーザーに「保存しますか？」と聞くツールは、設計段階で負けています。
- オブジェクトのライフサイクルを管理せよ: `Presentation` オブジェクトをループで開閉する場合、必ず `Set targetPres = Nothing` でメモリ解放を明示的に行い、PowerPointのプロセス肥大化を防いでください。
今回提示した `SilentClose` 関数をあなたのライブラリに組み込めば、UIのストレスはゼロになります。コードは極限までシンプルに、しかし背後にあるロジックは深く。それが真の自動化エンジニアの在り方です。
さあ、あなたのコードから「余計なダイアログ」を葬り去ってください。
