PowerPoint VBAを掌握する極限の知見：`Saved = True` の悪用による「ノープロンプト・ロールバック」の極意
こんにちは。開発プロジェクトの現場において、数々の理不尽な要件と戦い続けてきたチーフアーキテクトの私だ。
PowerPointの自動化において、最も開発者を悩ませる悪霊のひとりが 「ファイルを閉じようとした瞬間に現れる、あの余計なお世話の保存確認ダイアログ」 である。
マクロ内で一時的にスライドを改変し、PDF出力や印刷、あるいは特定のデータバインドを行ってそのまま閉じたいとする。その際、ユーザーが「保存する・しない」の判断を迫られるUIは、完全にバグであり、UX（ユーザーエクスペリエンス）の観点から見ても許されない。
今回は、PowerPointのオブジェクトモデルが持つ「ダーティフラグ（変更フラグ）」の仕様を逆手に取り、一切の警告を出さずに変更を無かったことにする（ロールバックする） ための、極めて実用的かつアグレッシブなテクニックを伝授しよう。
—
1. なぜ「普通のやり方」では破綻するのか？
多くの初学者、あるいは場当たり的なコードを書くプログラマは、一時的な変更を加えた後にこう書く。
‘ 【アンチパターン】絶対にやってはいけない実装
ActivePresentation.Save
あるいは、変更を破棄しようとしてこう書く。
‘ 【アンチパターン】ファイルを強制的に閉じようとする愚行
ActivePresentation.Close
後者の場合、ファイルに変更（Dirty）が加わっていれば、容赦なくあの鬱陶しいダイアログがポップアップする。それを回避するために `DisplayAlerts = False` を仕込む者もいるが、PowerPointのアプリケーションスコープにおいて、このプロパティはファイルクローズ時の保存プロンプトに対して常に期待通りに機能するとは限らない。不安定な環境依存のバグを生む温床だ。
ここで私たちが理解すべきは、PowerPointがどのように「変更されたこと」を認識しているかというオブジェクトのライフサイクルである。
—
2. 核心：`Presentation.Saved` プロパティの正体
PowerPointの `Presentation` オブジェクトには、`Saved` というブール値のプロパティが存在する。
- `ActivePresentation.Saved = True`
- `ActivePresentation.Saved = False`
公式ドキュメントには「ファイルが最後に保存されてから変更されていない場合はTrueを返します」と書いてある。しかし、プロパティは「取得」だけではない。「設定」もできるのだ。
ここに極限の知見がある。
> `Saved = True` とは、PowerPointに対し「今、この瞬間にファイルは完全に保存された（変更はない）」と嘘の申告（フラグの偽装）を行うコマンドである。
このフラグを書き換えた後、もしユーザーやマクロがファイルを閉じようとしたとき、PowerPointは「おっ、直近で保存されているな。じゃあ保存確認は不要だな」と判断し、ダイアログを一切出さずにファイルを閉じることができる。
これを利用すれば、「マクロ内でスライドをぐちゃぐちゃに加工してPDF化し、その後に何食わぬ顔で変更を破棄して閉じる」 という高度なロールバックが完結する。
—
3. 【プロダクションコード】安全かつ強靭な「仮編集・即時ロールバック」実装
実務の現場でそのまま使える、堅牢性を極めたコードを提示しよう。
このコードは、一時的に表紙のタイトルを書き換えてPDFに出力し、ファイル自体は一切汚さずに元の状態を維持して終了するテンプレートだ。エラーハンドリング（トランザクション管理）も完備している。
Option Explicit
Public Sub ExportPdfWithTemporaryModification()
Dim targetPres As Presentation
Dim originalSavedState As Boolean
Dim pdfPath As String
‘ 対象は現在アクティブなプレゼンテーション
Set targetPres = ActivePresentation
‘ 1. 現在の「保存済みフラグの状態」を必ず退避する（これ極意なり）
originalSavedState = targetPres.Saved
‘ 2. エラー時のフェイルセーフ（トランザクションの開始）
On Error GoTo ErrorHandler
‘ — 【ここから一時的な改変フェーズ】 —
‘ 例：表紙スライド（1枚目）のタイトルを動的に書き換える
Dim shp As Shape
For Each shp cm In targetPres.Slides(1).Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
‘ 仮の文字列に置換
shp.TextFrame.TextRange.Text = “【自動生成版】 ” & Format(Now, “YYYY-MM-DD HH:NN”)
Exit For
End If
End If
Next shp
‘ PDF出力パスの指定（デスクトップ等）
pdfPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\TemporaryReport.pdf”
‘ PDFとして出力
targetPres.ExportAsFixedFormat _
Path:=pdfPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint
MsgBox “PDFの出力が完了しました。”, vbInformation, “自動化プロセス”
‘ — 【ここまで改変フェーズ】 —
‘ 3. 【最重要テクニック】
‘ 変更を加えた状態のまま、Savedプロパティを強制的に「True（保存済み）」に書き換える。
‘ これにより、PowerPointは「保存の必要なし」と誤認する。
targetPres.Saved = True
‘ 4. プロンプトを出さずにファイルを閉じる（変更はメモリ上で破棄される）
‘ ※今回は開いたままにするなら Close は不要だが、閉じる場合は以下のようにする
‘ targetPres.Close
Exit Sub
ErrorHandler:
‘ 異常終了時：万が一エラーが起きた場合でも、フラグを元の状態に戻して整合性を保つ
targetPres.Saved = originalSavedState
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “異常終了”
End Sub
チーフアーキテクトからのコード解説
1. 状態の退避（`originalSavedState`）:
もしマクロ実行前にユーザーが手動でファイルに何らかの変更を加えており、その状態（Saved = False）だった場合、処理の最後に強制 `True` にしてしまうと、ユーザーの本来の未保存変更まで吹き飛ばしてしまう。これを防ぐため、最初に状態を退避させ、異常時には確実に復元するフェイルセーフ構造にしている。
2. メモリ上のロールバック:
`targetPres.Saved = True` を実行した直後のファイル実体（ディスク上）は、「最後に手動保存された古い状態」 のままである。メモリ上ではスライドが書き換わっているが、ファイル側は更新されていない。そのため、この状態でファイルを閉じる（あるいはそのまま維持する）ことで、意図しないファイル破損やダーティデータの永続化を完全に防ぐことができる。
—
4. データベース連携・ファイルシステム設計における注意点
この「仮編集・ロールバック技法」は非常に強力だが、実務で他のシステム（データベースや共有サーバー）と連携させる際には、以下の設計原則を遵守しなければならない。
- 排他制御（ファイルロック）の考慮:
PDF出力や一時改変を行う際、別プロセス（外部のRPAツールや別ユーザー）が同時にそのPowerPointファイルを触っていないか確認すること。共有フォルダ上のファイルを直接操作する場合、Networkの遅延によって `Saved = True` の反映タイミングがズレるリスクがあるため、基本的にはローカルドライブ（例: `Environ(“TEMP”)`）にファイルを一時コピーしてから処理を行うのが、プロフェッショナルなアーキテクチャである。
- アプリケーションの不可視化（Headless実行）:
もしユーザーに画面のチラつきを見せたくない場合は、あらかじめ `Application.Visible = msoFalse` にしてバックグラウンドでこの一連の処理を完結させると、さらに洗練されたシステム構築が可能になる。ただし、エラー時に不可視のまま固まるリスクがあるため、必ず `On Error` で可視状態に戻すリカバリコードをセットで実装すること。
—
総括
プログラミングにおける「ハック（裏ワザ）」とは、対象の仕様を骨の髄まで理解した者が放つ、最もエレガントな処方箋のことだ。
今回紹介した `Presentation.Saved = True` の応用は、単なる小手先のテクニックにとどまらず、「ユーザーのストレスをゼロにするための堅牢なセッション管理」 そのものである。無駄なダイアログにユーザーを迷わせない、プロフェッショナルなツール開発をあなたの現場でも実装してほしい。
