こんにちは。PowerPointの自動化の世界へようこそ。
マクロの記録ボタンを押して「生成されたコードを眺めるだけ」の段階は卒業です。今日は、プロフェッショナルが現場でこっそり使っている、「プレゼンテーションの『状態』をハックする」という極めて実用的なテクニックを伝授します。
皆さんも、こんな経験はありませんか？
「印刷用に一時的に日付や透かしを入れたいけれど、ユーザーが閉じるたびに『変更を保存しますか？』と聞かれるのが煩わしい……」
この課題をスマートに解決するのが、`Presentation.Saved` プロパティを操る「仮編集」のテクニックです。さあ、一緒に深掘りしていきましょう。
—
1. なぜ「Saved = True」でダイアログを消せるのか？
PowerPointは非常に律儀なアプリケーションです。スライドに何か一つでも変更を加えると、内部のフラグが「未保存（Dirty）」状態に切り替わります。ファイルを閉じようとするとき、PowerPointはこのフラグを見て「保存しなくていいの？」と尋ねてくるわけです。
ここで、我々エンジニアが介入します。
プログラムで「変更したよ」と伝えた直後に、「いいえ、今はもう保存済み（Saved = True）ですよ」と嘘（偽装）をつくのです。これだけで、PowerPointは「お、変更はないんだな」と判断し、何も聞かずに閉じてくれます。
—
2. 実践：一時的な「印刷用スタンプ」を打つコード
まずは、特定のテキストボックスを動的に生成し、印刷した後に「なかったこと」にするコードを見てみましょう。
Sub PrintWithWatermark()
Dim pptPres As Presentation
Dim pptSlide As Slide
Dim shpWatermark As Shape
Set pptPres = ActivePresentation
‘ 1. 一時的な透かし（テキストボックス）を追加
Set pptSlide = pptPres.Slides(1)
Set shpWatermark = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50)
With shpWatermark
.TextFrame.TextRange.Text = “【社外秘：印刷用一時スタンプ】”
.TextFrame.TextRange.Font.Color.RGB = RGB(200, 200, 200)
End With
‘ 2. ここで印刷処理を実行（例としてPDF出力や印刷コマンドをここに置く）
‘ pptPres.PrintOut
MsgBox “印刷が完了しました。この後、スタンプは消去されます。”
‘ 3. 一時的な図形を削除（元の状態に戻す）
shpWatermark.Delete
‘ 4. 【重要】PowerPointを「保存済み」だと騙す
‘ これを実行することで、「変更を保存しますか？」のダイアログを回避します
pptPres.Saved = True
MsgBox “クリーンアップ完了。ファイルを閉じてもダイアログは表示されません。”
End Sub
—
3. なぜこのテクニックが「プロの嗜み」なのか
このコードの肝は、単にプロパティを書き換えることではありません。「プログラムの終了状態を、ユーザーが操作を始める前のクリーンな状態に同期させる」という設計思想にあります。
注意すべきポイントとエラー回避
1. エラーハンドリングの重要性：
もし途中で印刷が失敗した際、`shpWatermark.Delete` に到達せずに終了すると、その図形が残ったままになります。実務では必ず `On Error GoTo Cleanup` のような例外処理を組み込み、「どんな状況でもクリーンアップしてSavedをTrueにする」という構造にしてください。
2. 「Saved = True」は最後の切り札：
これを乱用してはいけません。本当にユーザーが編集した内容まで破棄させてしまう可能性があるからです。あくまで「自動化した処理の直後」にだけピンポイントで使うのが、自動化エンジニアの倫理です。
—
4. ステップアップ：次のステージへ
このテクニックを習得すると、以下のような自動化が容易になります。
- 配布資料の自動生成：日付や部署名を自動挿入して印刷し、ファイルは一切汚さない。
- 一括PDFエクスポート：全スライドにページ番号を一時的に付与してPDF化し、元に戻す。
「PowerPointをいじる」のではなく、「PowerPointの状態を制御する」。この視点を持つだけで、あなたのマクロは劇的に安定し、洗練されたものに変わります。
ここをクリアできれば、あなたはもう初心者ではありません。自信を持って、次の複雑な自動化領域へ踏み出してください。応援していますよ！
