PowerPoint VBAを掌握する：`Presentation.Saved`の欺瞞と、静寂なる自動化の美学
現場の諸君。日々の泥臭い自動化業務、ご苦労様だ。
PowerPoint VBAにおいて、「ユーザーに意識させず、いかにエレガントにタスクを完遂するか」は、我々アーキテクトが追求すべき至高の命題だ。特に、帳票出力や一時的な透かし（ウォーターマーク）付与など、「一瞬だけ加工して出力し、存在しなかったかのように消し去る」という要件は、システム連携の現場で頻繁に遭遇する。
今回は、初心者向けのリファレンスには決して載っていない、`Presentation.Saved`プロパティを「ハック」することで、ユーザーを煩わせるダイアログを封殺する技術を伝授する。
—
1. なぜ、標準的な「保存」ではいけないのか
愚直に `ActivePresentation.Save` を呼ぶのは素人の所業だ。
- ユーザーの心理を乱す: ユーザーが意図しないタイミングで上書き保存が走ることは、データの完全性を担保する上でリスクを伴う。
- Dirty Flag（Dirty状態）の概念: PowerPointはスライドに何らかの変更が加わると、内部的にDirty状態（未保存状態）へ遷移する。この状態で閉じる操作を行えば、当然OSから「変更を保存しますか？」と問いが投げられる。
この問いを回避する唯一にして最強の手法が、「OSを騙す」ことだ。
—
2. 禁断の「Saved = True」ハック
`Presentation.Saved` プロパティは、Boolean値を返すだけではない。代入可能なプロパティだ。これを `True` に設定することで、PowerPointの内部エンジンに対し、「現在の状態は既にディスクと同期済みである」という嘘を伝えることができる。
実装コード：一過性の透かし印刷エンジン
このコードは、一時的な「機密」スタンプを押し、PDF出力した直後に、ユーザーに何も聞かずに（ダイアログを出さずに）変更を破棄または隠蔽するロジックだ。
Sub ExportConfidentialPDF()
Dim ppt As Presentation
Dim sld As Slide
Dim shp As Shape
Set ppt = ActivePresentation
‘ 1. 変更を検知される前の状態を保持（必要であれば）
‘ 今回は後始末で綺麗に消すため、そのまま突き進む
‘ 2. 一時的なオブジェクトを追加（ここでは透かし）
Set shp = ppt.Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50)
shp.TextFrame.TextRange.Text = “【機密】”
‘ 3. 出力処理（PDFエクスポートを想定）
ppt.ExportAsFixedFormat “C:\Temp\Export.pdf”, ppFixedFormatTypePDF
‘ 4. 後始末（オブジェクトの完全破棄）
shp.Delete
Set shp = Nothing
‘ 5. 【極限の知見】SavedプロパティをTrueに偽装
‘ これにより、アプリを閉じる際や終了時に「保存しますか？」ダイアログは表示されない
ppt.Saved = True
‘ ※注意: メモリ上のオブジェクト参照を確実に切断する
Set ppt = Nothing
End Sub
—
3. シニアエンジニアが意識すべき「メモリと安定性」
上記のコードを「動く」レベルから「堅牢なシステム」レベルへ引き上げるには、以下の知見が不可欠だ。
A. オブジェクトの明示的解放
VBAのガベージコレクションを信用してはならない。特に `Shapes` コレクションのような重いオブジェクトを操作した後は、必ず `Nothing` を代入せよ。これを怠ると、長時間稼働するマクロでメモリリークを引き起こし、PowerPointの描画プロセスが不安定になる。
B. Windows APIによる「ダイアログ完全封殺」
もし、どうしても不可避な状況でダイアログが出る可能性がある場合、`FindWindow` APIを使用して、特定のキャプションを持つダイアログを裏で強制的に閉じるという「荒業」も存在する。だが、`Saved = True` が効く環境であれば、それを使うのが最も低コストだ。
C. 実行環境の保守性
この手法は、アドイン（.ppam）で配布する場合に特に有効だ。テンプレートファイルを操作させず、メモリ内だけで加工を完結させる。これにより、元のファイルは一切汚染されず、社内システムの信頼性は飛躍的に向上する。
—
結論：自動化とは「気配を消すこと」
諸君、優れた自動化システムとは、まるで最初からそこに組み込まれていたかのように自然に振る舞うものだ。ユーザーが「いつの間にPDFが生成されたのか？」と首を傾げるような、静寂なる裏方としての実装こそが、アーキテクトの矜持である。
`Saved = True` は単なるフラグではない。これは、「システムに意思を強制する」ための制御権なのだ。
この技術を武器に、今日も明日も、泥臭い手作業を駆逐してくれ。健闘を祈る。
