諸君、PowerPointの「保存ダイアログ」という名の亡霊を葬り去る時が来た
VBAで自動化を組む際、最も不毛なのは「処理が終わった後、なぜかユーザーの入力を待つダイアログに止められる」という状況だ。特にサーバーサイドでのバッチ処理や、バックグラウンドでの自動生成タスクにおいて、この挙動はシステム全体を停止させる致命的なボトルネックとなる。
今回は、`Presentation.Saved`プロパティをハックし、PowerPointの意志を強制的に書き換えることで、貴君のコードに「完全なる自律性」を与える手法を伝授する。
—
1. 偽りの「Saved」ステータスを突きつける
PowerPointのオブジェクトモデルにおいて、`Presentation.Saved`プロパティは単なる状態フラグではない。Officeアプリケーションが終了時に「変更を保存するか？」というダイアログを出すべきかを判定する、いわば「免罪符」である。
これを`msoTrue`に書き換えるだけで、アプリケーションは「このプレゼンテーションには変更がない」と誤認し、一切の警告を発することなくプロセスを終了させる。
実装コード：静寂なる強制終了
‘ ———————————————————————-
‘ 処理終了後、保存ダイアログを抑制して閉じるプロシージャ
‘ ———————————————————————-
Sub ForceClosePresentation(ByVal targetPres As Presentation)
‘ 1. 保存済みフラグを強制的にTrueへ書き換える
‘ これによりPowerPointは「変更なし」と判定し、終了時に確認を出さない
targetPres.Saved = msoTrue
‘ 2. オブジェクトを解放する前に閉じる
targetPres.Close
‘ 3. メモリ解放の儀式
‘ Set targetPres = Nothing は関数スコープ終了時で十分だが、
‘ ループ処理内であれば明示的に行うのがアーキテクトの矜持
Set targetPres = Nothing
End Sub
—
2. なぜ「Saved = msoTrue」だけでは不十分な場合があるのか
上記の手法はエレガントだが、PowerPointが重い処理を行っている最中や、アドインが割り込んでいる環境では、メモリの同期ズレが発生することがある。
真に安定した運用を目指すなら、「保存のキャンセル」ではなく「強制保存（SaveAs）」との合わせ技を推奨する。特に、自動生成したレポートを別名で保存させ、元のファイルを閉じるというプロセスを組む際、以下の設計が鉄則となる。
極限の制御：SaveAs と Saved の併用
Sub AtomicSaveAndClose(ByVal targetPres As Presentation, ByVal filePath As String)
‘ 保存先のパスを検証し、存在すれば削除（I/O例外の事前回避）
If Dir(filePath) <> “” Then Kill filePath
‘ 名前を付けて保存（バックグラウンド処理時の安定性を考慮）
targetPres.SaveAs FileName:=filePath, FileFormat:=ppSaveAsOpenXMLPresentation
‘ 強制的にSavedフラグを立ててから終了
targetPres.Saved = msoTrue
targetPres.Close
End Sub
—
3. シニアエンジニアが知るべき「プロセスの後始末」
自動化の現場で最も恐ろしいのは、VBAが終了してもタスクマネージャー上で`POWERPNT.EXE`がゾンビとして残り続けることだ。これはオブジェクトの解放漏れが主原因である。
特に`Application.Quit`を多用すると、アプリケーションのインスタンスがメモリ上で不整合を起こす。私は以下の「強制排除パターン」を推奨している。
ゾンビプロセスを許さない終了ロジック
Sub SafeApplicationExit(ByRef app As PowerPoint.Application)
‘ 提示されたすべてのプレゼンテーションを閉じる
Dim p As Presentation
For Each p In app.Presentations
p.Saved = msoTrue ‘ 救いようのない変更もすべて破棄
p.Close
Next p
‘ アプリケーション終了
app.Quit
‘ 参照の完全破棄
Set app = Nothing
End Sub
—
4. チーフアーキテクトからの忠告
この手法は、UIを持たない「無人運用」においては最強の武器となる。しかし、「ユーザーが意図的に変更した内容まで強制的に破棄される」という両刃の剣であることを忘れてはならない。
システム化する際は、必ず以下のフローを組み込むこと。
1. 処理開始時のバックアップ: オリジナルのファイルを別名でコピーしてから作業を開始する。
2. 例外処理（Error Handling）の厳格化: `On Error GoTo`で、エラー発生時にも`Saved = msoTrue`を通るパスを必ず用意する。
自動化とは「機械に任せる」ことではない。「機械に何が起こっても問題ない状態を設計する」ことだ。
貴君のシステムに、この静寂が訪れることを願っている。次回の講義では、UI Automationを駆使した「モーダルダイアログの影を踏む手法」について語ろう。あれは、また別の領域の芸術だ。
