PowerPointの「見えないフラグ」を制する：Presentation.Savedの挙動ハックとステートの完全制御
業務自動化の現場において、PowerPoint VBAはしばしば「不安定なツール」と揶揄される。だが、その実態は、Windows OSのメッセージループとOfficeのオブジェクトモデルが織りなす「暗黙の仕様」を我々エンジニアが理解しきれていないだけのことだ。
特に、ドキュメントの「読み取り」を行うだけのツールが、なぜユーザーに対して「保存しますか？」という無用なダイアログを突きつけるのか。今日は、`Presentation.Saved` という、一見単純だが深淵なプロパティの挙動をハックし、クリーンなステート管理を実現する極意を伝授する。
—
1. なぜ「閲覧」だけで Saved = False になるのか
PowerPointのオブジェクトモデルにおいて、`Shape`や`Slide`を巡回する際、内部的には「選択（Selection）」や「表示の更新」が断続的に発生している。特に、`Slide.Shapes`内のオブジェクトにアクセスする際、微細なUIの再描画や、Undoスタックへの予期せぬエントリが発生し、PowerPointは「ドキュメントの内容が変更された」と誤認する。
これは、PowerPointが「ドキュメントの整合性」を保つために、メモリ上の状態と保存状態を常に同期させようとするレガシーなアーキテクチャに起因する。我々が必要なのは、「読み取り操作を開始する前のSaved状態を保存し、完了後に強制的に書き戻す」というステート復元戦略である。
—
2. 禁断のステート管理：Savedプロパティの強制復元
単に `Saved = True` を代入すれば良いと考えているなら、それは甘い。OSレベルでのイベントや、他のアドインが割り込んでくる可能性があるため、プロパティの変更を「真の最終処理」として確定させる必要がある。
以下のコードは、高負荷な巡回処理においても「保存フラグ」を汚染しないためのテンプレートだ。
‘ @description: 読み取り操作による保存フラグ汚染を防止するステート管理
Public Sub SafePresentationAnalysis()
Dim pptPres As Presentation
Dim originalSavedState As Boolean
Set pptPres = ActivePresentation
‘ 1. 現在の保存状態をメモリに保持（これが真実のステート）
originalSavedState = pptPres.Saved
On Error GoTo Cleanup
‘ — ここからデータ読み取り等の巡回処理を開始 —
‘ 内部的に Shapes をループさせても問題ない
Call AnalyzeSlides(pptPres)
‘ ——————————————-
Cleanup:
‘ 2. 処理終了後に、保存フラグを強制的に復元する
‘ ユーザーが意図しない保存要求を抑制するための決定的な一手
If pptPres.Saved <> originalSavedState Then
pptPres.Saved = originalSavedState
End If
‘ 3. オブジェクトの明示的解放（VBAのメモリリーク対策）
Set pptPres = Nothing
End Sub
—
3. シニアエンジニアのための最適化：パフォーマンスの極致
オブジェクトの巡回時、`ActiveWindow.View` を弄るようなコードは即座に停止すべきだ。UIの描画はOSのメッセージキューを消費し、`Saved` フラグを揺さぶる最大の原因となる。
極限の知見：バックグラウンド処理への転換
- `DoEvents`の排除: ループ内で `DoEvents` を多用すると、PowerPointの描画エンジンが頻繁に介入し、`Saved` フラグの誤検知を誘発する。可能であれば排他的に処理を完結させよ。
- オブジェクト参照のキャッシュ: `Slide.Shapes` をループのたびに呼び出すのではなく、変数にキャッシュすることで、COM呼び出しのオーバーヘッドと、オブジェクト生成に伴う内部フラグの更新を最小化する。
‘ 修正前: ループ毎にShapesを呼ぶ（フラグ更新リスク大）
‘ For i = 1 To pptPres.Slides(1).Shapes.Count …
‘ 修正後: コレクションを静的参照へキャッシュ
Dim shps As Shapes
Set shps = pptPres.Slides(1).Shapes
Dim i As Long
For i = 1 To shps.Count
‘ 必要なプロパティアクセスのみを行う
Debug.Print shps(i).Name
Next i
—
4. 結論：ツールは「透明」でなければならない
エンジニアが作成した自動化ツールが、ユーザーの作業の邪魔をしてはならない。`Presentation.Saved` の挙動を制御することは、単なるバグ回避ではない。それは、システムがユーザーのワークフローに対して「透明（Transparent）」に振る舞うための、プロフェッショナルの矜持である。
最後に一つ、警告しておく。Windows API を使用して `WM_SETTEXT` 等で無理やりウィンドウタイトルから「（保存済み）」を消すようなハックは、Officeの将来的なバージョンアップでクラッシュを誘発する危険性が高い。本記事で示した「オブジェクトモデルの正攻法による復元」こそが、最も保守性が高く、かつ堅牢なソリューションであることを理解してほしい。
真の自動化エンジニアは、コードを書くことではなく、コードが「存在しなかったかのように」振る舞わせることに命をかけるものだ。幸運を祈る。
