こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して「動いた！」と感動した次は、「もっと自分の思い通りにスライドを動かしたい」「でも、うっかりファイルを壊してしまわないか怖い…」という壁にぶつかるころですね。
大丈夫、その不安はエンジニアとして至極まっとうな感覚です。
今回は、PowerPoint VBAのオブジェクトモデルの核心に触れながら、「ファイルを変形させて用事を済ませたら、何食わぬ顔で元通りにして閉じる」という、ちょっとスリリングで実用的なテクニックを授けましょう。
ここをクリアすれば、あなたも単なる「マクロの記録者」から、PowerPointを意のままに操る「自動化エンジニア」への第一歩を踏み出せますよ。さあ、一緒に扉を開けましょう！
—
1. なぜ「一時的な変更」が必要なのか？（現場のユースケース）
ビジネスの現場では、こんな無茶振りをされたことはありませんか？
> 「今あるこのスライド、全体のフォントサイズを少し小さくして、さらに『社外秘』っていう赤字スタンプを全ページに押したPDFを今すぐ作って。あ、でも元のファイルのデザインは絶対に変えないでよね！」
これを手作業でやるとしたらどうでしょう？
1. ファイルを開く
2. コピーをとる（または別名で保存する）
3. 修正する
4. PDFでエクスポートする
5. 修正用ファイルをゴミ箱に捨てる…
めんどくさいですよね。しかも、うっかり「上書き保存」でもしてしまったら冷や汗ものです。
これをVBAのメモリ上でスマートに完結させ、ユーザーには一切の変更を意識させずに処理するのが、今回のテーマ「仮編集とロールバック」です。
—
2. PowerPoint VBAの裏側：`Presentation.Saved` の正体
まず、PowerPointのオブジェクトモデルにおける基本を押さえましょう。
私たちが普段触っているPowerPointのウィンドウは、VBAの世界では `Application`（アプリ全体） > `Presentation`（開いているファイル） > `Slide`（個々のスライド） という階層構造（親子関係）で管理されています。
ここで重要になるのが、`Presentation.Saved` プロパティです。
`Saved` プロパティとは？
- `True` のとき：「このファイルは、最後に保存されてから変更されていませんよ」という意味。
- `False` のとき：「おいおい、最後に保存してからの変更がまだ保存されていませんぜ」という状態。
PowerPointを閉じるとき（あるいはマクロで `Presentation.Close` を呼ぶとき）、もしこの `Saved` が `False` だと、PowerPointは親切心（あるいは余計なお世話）から、あの有名なダイアログを出してきます。
> 「変更内容を保存しますか？」 [ 保存 ] [ 保存しない ] [ キャンセル ]
悪用（？）のロジック：嘘をつく勇気
お気づきでしょうか？
マクロでスライドの文字を書き換えたり図形を追加したりすると、PowerPointは自動的に `Presentation.Saved = False` に書き換えます。
ならば……人間が勝手に `Presentation.Saved = True` に書き換えてしまえばいいのです。
「いやいや、変更したのに `True` にしたら嘘になるじゃん！」その通り。大嘘です。
しかし、PowerPointはこの嘘を素直に信じ込みます。「おっ、最後に保存してから何も変わってないんだな」と思い込み、ファイルを閉じるときにあの保存確認ダイアログを出さずに、問答無用でスラスラと終了するのです。
そして、変更を破棄して（保存せずに）ファイルを閉じれば、元のファイルは1ミリも汚れていない……という寸法です。これが「仮編集とロールバック」のカラクリです。
—
3. 実践！「仮編集 ＆ PDFエクスポート」コード
それでは、実際に動くコードを見てみましょう。
今回は、「1ページ目のタイトルを一時的に『【社外秘】』に変えてPDF出力し、何もなかったかのようにファイルを閉じる」というマクロを書きます。
Sub TemporaryExportPDF()
Dim targetPres As Presentation
Dim targetPath As String
Dim pdfPath As String
‘ 1. 現在アクティブなプレゼンテーションを対象にする
Set targetPres = ActivePresentation
‘ 保存先のパスを設定（デスクトップを指定）
pdfPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\Secret_Report.pdf”
‘ 【重要】元のファイルがすでに未保存状態だったら処理を中断（安全装置）
If Not targetPres.Saved Then
MsgBox “未保存の変更があります。一度手動で保存してから実行してください。”, vbCritical
Exit Sub
End If
On Error GoTo ErrorHandler
‘ ==========================================
‘ 2. 【仮編集フェーズ】スライドを書き換える
‘ ==========================================
‘ 例として、1枚目のスライドのタイトル（仮に図形1とする）の文字を書き換える
targetPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = “【社外秘】機密ドキュメント”
‘ ==========================================
‘ 3. 【エクスポートフェーズ】PDFとして出力
‘ ==========================================
targetPres.ExportAsFixedFormat _
Path:=pdfPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint
MsgBox “PDFのエクスポートが完了しました！”, vbInformation
‘ ==========================================
‘ 4. 【ロールバックフェーズ】嘘をついて閉じる
‘ ==========================================
‘ 「変更は保存された（Saved = True）」とPowerPointに思い込ませる
targetPres.Saved = True
‘ 保存確認ダイアログを出さずに、このウィンドウを強制終了（閉じる）
targetPres.Close
Exit Sub
ErrorHandler:
‘ エラーが発生した場合も、最悪の事態を防ぐためにSavedを戻すか、エラーを通知
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
targetPres.Saved = True ‘ 必要に応じて調整
End Sub
—
4. コードの解説とエンジニアの心得
このコードのポイントを、少し深掘りして解説します。
① 安全装置（`If Not targetPres.Saved Then`）を必ず入れる
これがプロの仕事です。もしユーザーがすでに何時間も作業していて、未保存の変更があったとします。その状態でこのマクロを走らせてしまうと、後続の処理で `Saved = True` に偽装されてしまい、ユーザーの尊い作業成果が闇に葬られる（保存されずに消える）という大惨事になります。
処理の冒頭で「現在、未保存の変更がないか？」をチェックすることは絶対の鉄則です。
② `ExportAsFixedFormat` メソッド
PowerPoint 2007以降であれば、標準で綺麗なPDFを出力できます。わざわざ印刷ダイアログを叩くよりも圧倒的に高速で安定します。
③ `targetPres.Saved = True` と `Close` のコンボ
これが今回の魔法の呪文です。
書き換えを行った後に `Saved = True` を代入することで、内部フラグを強制的にクリアします。その直後に `Close` を呼ぶことで、ユーザーに「保存しますか？」と聞く隙を与えずにファイルを閉じることができます。
結果として、元ファイルは一切変更されていない状態（ロールバック完了）を保つことができます。
—
5. 陥りやすい罠と注意点
このテクニックは非常に強力ですが、扱いを間違えると痛い目を見ます。以下の点に注意してください。
- 元ファイルが上書き保存されていない状態では使わない
先ほども触れましたが、ディスク上に存在するファイルの状態と、メモリ上の状態が乖離していると、予期せぬデータの損失を招きます。必ず「一度保存したファイル」に対して実行させましょう。
- デバッグ中に強制終了してファイルが消える恐怖
VBAのコードを書いていて、`Saved = True` を入れた状態でコードが途中でバグって止まったとします。そのあと手動でファイルを閉じようとすると、「保存しますか？」と聞かれます。ここでうっかり「保存する」を押してしまうと、社外秘スタンプが押された状態のまま上書き保存されてしまいます。
テスト中は、必ず「元のファイルのバックアップ」をとってからデバッグを行うようにしてください。これ、エンジニアとの約束です。
—
まとめ
いかがでしたか？
今回は、`Presentation.Saved` プロパティを逆手に取った「仮編集とロールバック」という、ちょっと裏技的なテクニックをご紹介しました。
- PowerPoint VBAのオブジェクトの階層構造を理解する
- `Saved` プロパティの本質（変更フラグ）を知る
- 変更を破棄してスマートにプロセスを閉じる
ここをクリアできれば、あなたも立派なPowerPoint自動化エンジニアの仲間入りです。日常の面倒な作業をコードの力で華麗にハックしていきましょう。
それでは、次のレッスンでお会いしましょう。バッチリ使いこなしてくださいね！
