こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステップを卒業し、いよいよ自分の手でコードを書き始めたあなたへ、今日はとても実用的で、かつプログラミングの「優しさ」が詰まったテクニックを授けましょう。
実務でPowerPointを自動化していると、処理の最後に「このファイル閉じて、おしまい！」とプログラムしたくなりますよね。でも、ちょっと待ってください。もし、ユーザーが別の仕事の大切なプレゼン資料を一緒に開いていたとしたらどうでしょう？
あなたのマクロが「よし、お仕事終わり！」とPowerPointごと強制終了させてしまったら……他の資料が保存される間もなく吹き飛んでしまい、ユーザーは大パニックです。
今回は、「自分が開いたファイルだけを閉じ、他にもう開いているファイルがなければ、PowerPointアプリ自体を綺麗に終了させる」という、実務で必須のスマートな終了処理コードを解説します。
ここをクリアすれば、PowerPoint VBAのオブジェクトモデルの基礎はバッチリですよ。一緒に見ていき階層構造をマスターしましょう！
—
1. PowerPointオブジェクトの「家族関係」を知ろう
まず、PowerPoint VBAの基本であり最も重要な地図を確認します。PowerPointの世界は、綺麗なお城の階層構造（オブジェクトモデル）になっています。
Application （PowerPointアプリそのもの）
┗ Presentations （開いているプレゼンテーションの「束」）
┣ Presentation (1) （今開いているファイルA）
┣ Presentation (2) （今開いているファイルB）
┗ Presentation (3) （今開いているファイルC）
- `Application`: PowerPointという巨大なアプリケーションそのものです。
- `Presentations`: 現在開かれているすべてのファイル（Presentation）のコレクション（束）です。
- `Presentation`: あなたが操作している個々のファイル（.pptxなど）です。
ここで注目してほしいのが、「Presentations.Count」というプロパティです。これは、「今、このアプリで何個のファイルが開かれているか？」を教えてくれる数字カウンターです。
—
2. 実装コード：スマートな終了処理の全貌
それでは、実際に開発現場でそのまま使えるコードをお見せします。標準モジュールに貼り付けて、挙動を確認してみてください。
Sub SmartClosePresentation()
Dim targetPres As Presentation
‘ 1. 「今、このコードを実行しているファイル」を特定して変数に代入する
Set targetPres = ActivePresentation
‘ 2. 【重要】ユーザーが行った変更を保存済み（または保存不要）として閉じる場合
‘ ※必要に応じて targetPres.Save などに変更してください
‘ 保存せずに閉じる場合は targetPres.Close のみでOKですが、
‘ 今回は安全のために変更を保存して閉じると仮定します
‘ targetPres.Save ‘ 必要なら保存
‘ 3. 他に開いているファイルが「何個あるか」を判定する
‘ Applications.Count ではなく、Presentations.Count である点に注意！
If Presentations.Count > 1 then
‘ — ケースA: まだ他のファイルが開いている場合 —
‘ 自分（targetPres）だけを閉じ、PowerPointアプリ自体は終了させない
targetPres.Close
MsgBox “指定されたプレゼンテーションを閉じました。” & vbCrLf & _
“他のファイルが開いているため、PowerPointは起動したままにします。”, vbInformation
Else
‘ — ケースB: 開いているファイルが自分しかない場合 —
‘ 自分を閉じると同時に、PowerPointアプリケーション（プロセス）を終了する
targetPres.Close
‘ アプリケーションを終了する
Application.Quit
End If
‘ 4. メモリの解放（プログラミングの美しい作法）
Set targetPres = Nothing
End Sub
—
3. コードのポイントを先輩目線で解説
初心者から一歩抜け出すために、このコードの「なぜ？」を3つに分解して解説します。
① なぜ `ActivePresentation` を使うのか？
コードを書いていると `Presentations(1)` と指定したくなりますが、これは非常に危険です。複数ファイルを同時に開いている場合、どのファイルが「1番目」になるかはユーザーの操作によって変わり、予測がつきません。
「今、まさにアクティブな（手前に表示されている）このファイルを閉じたい」ときは、必ず `ActivePresentation` を使いましょう。
② `Presentations.Count` のマジック
今回のコードの核心部分です。
今、PowerPointアプリで自分のファイルを含めて「2個」のファイルが開いていたとします。
`targetPres.Close` を実行した瞬間、ファイルの数は「1個」に減ります。しかし、この時点ではまだPowerPointのウィンドウは開いたまま（真っ黒な空の画面、あるいは最後のファイルが残る状態）です。
もしこれが「1個（自分だけ）」しか開いていない状態で `targetPres.Close` を呼ぶと、PowerPointそのものが終了しかけますが、環境によっては「ファイルをすべて閉じてもアプリだけが起動しっぱなしになる」という中途半端な状態（ゾンビプロセス気味）になることがあります。
そのため、「自分を含めて1つだけなら、アプリも一緒に落とす（`Application.Quit`）」という判断を明示的にコードで記述してあげるのが、最も安全で確実なのです。
③ `Set targetPres = Nothing` の美学
オブジェクト変数（`Set` で代入した変数）は、使い終わったら最後に `Nothing` を代入してメモリを解放してあげるのが、シニアエンジニアの嗜みです。小規模なマクロでは省略しても動きますが、こうした細部へのこだわりが、重い処理やエラーの起きにくい堅牢なマクロを育てます。
—
4. よくあるエラーと陥りがちな罠
罠：「あれ？ `Application.Quit` が効かずにPowerPointが残る？」
コードの最後に `Application.Quit` を書いたのに、なぜかPowerPointが終了しない、あるいはバックグラウンドでプロセスが残り続ける場合があります。
大抵の原因は、「ユーザーに保存確認のダイアログが出てしまい、プログラムがそこで一時停止している」ケースです。
未保存の変更がある状態で `targetPres.Close` を呼ぶと、PowerPointは親切心（あるいは安全装置）から「変更を保存しますか？」とダイアログを出します。マクロの実行中は、このダイアログが原因で予期せぬ挙動をすることがあります。
必要に応じて、閉じる前にあらかじめ保存処理を入れるか、以下のように保存せずに閉じる（破棄する）指定を入れておくとスムーズです。
‘ 変更を保存せずに強制的に閉じたい場合（注意して使ってください）
‘ targetPres.Saved = msoTrue ‘ 「変更はない」と偽って保存確認ダイアログをスキップする
‘ targetPres.Close
(※実務では、ユーザーのデータを吹き飛ばさないよう、保存の有無を十分に確認する設計にしてくださいね。)
—
まとめ
いかがでしたか？
今回は、単にファイルを閉じるだけでなく、「ユーザーの作業環境を脅かさない、思いやりのある終了処理」を通じて、PowerPoint VBAの基本オブジェクトである `Presentation` と `Application` の関係を学びました。
- 自分を特定する：`ActivePresentation`
- 全体を見渡す：`Presentations.Count`
- アプリを仕舞う：`Application.Quit`
この3つのパーツを自在に操れるようになったあなたなら、もう「初心者」のラベルは剥がして大丈夫です。ぜひ次の自動化案件にもこのスマートな終了処理を取り入れてみてください。
あなたのVBAライフが、より快適で知的でありますように。それではまた！
