こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、「自分でプログラムを書いてファイルを自在に操りたい」と思ったそこのあなた。素晴らしい着眼点です。
業務を自動化するツールを作るとき、私たちはつい「ファイルは常に保存されているもの」という前提でコードを書きがちです。しかし、実務の現場では「ユーザーが新規作成したものの、まだ一度も名前を付けて保存していない状態のプレゼンテーション」でマクロが実行されることがよくあります。
このとき、準備なしにファイルパスを操作しようとすると、容赦なく「実行時エラー」が発生し、プログラムは強制終了してしまいます。
今回は、PowerPoint VBAの心臓部であるオブジェクトモデルの基本を押さえつつ、未保存ファイルを華麗に検知して安全にハンドリングする『ファイルパス解析』の極意を伝授します。ここをクリアすれば、あなたの書くマクロの信頼性はプロのレベルへと一気に跳ね上がりますよ。
—
1. PowerPointオブジェクトモデルの「現在地」を知る
PowerPoint VBAを書く上で、まず頭に叩き込んでおかなければならない最上位の構造があります。それが Application ＞ Presentation ＞ Slide という階層構造です。
- `Application`: PowerPointアプリそのもの。
- `Presentation`: 開かれている個々のファイル（プレゼンテーション）。
- `Slide`: プレゼンテーションの中にある個別のスライド。
私たちが「今操作しているファイル」を指定したいときによく使うのが、`ActivePresentation` というオブジェクトです。この `Presentation` オブジェクトが持つ「住所（パス）」を調べるプロパティが、今回主役となる `Path` と `FullName` です。
Path と FullName の決定的な違い
- `Presentation.Path`
- ファイルが保存されているフォルダのパスを返します（例: `C:\Users\Yamada\Documents`）。
- 重要: ファイルが一度も保存されていない（新規作成のままの）場合、この値は完全に空（長さ0の文字列 `””`）になります。
- `Presentation.FullName`
- フォルダのパスにファイル名と拡張子を加えた完全なパスを返します（例: `C:\Users\Yamada\Documents\proposal.pptx`）。
- ファイルが未保存の場合、ここには「ファイル名のみ（例: `プレゼンテーション1`）」が返されますが、フォルダの場所は含まれません。
この「未保存のときは `Path` が空になる」という性質こそが、エラーを防ぐための最大の羅針盤となります。
—
2. 陥りやすい罠：未保存ファイルでエラーが起きる瞬間
例えば、次のようなコードを書いたとします。
Sub BadExample()
Dim targetPath As String
‘ 保存先のフォルダに何か処理をしようとする
targetPath = ActivePresentation.Path & “\output\”
MsgBox targetPath
End Sub
もし、このファイルを一度も保存していなかったらどうなるでしょうか？
`ActivePresentation.Path` は空 (`””`) なので、`targetPath` は `”\output\”` になってしまいます。これを使ってファイルの保存や読み込みを行おうものなら、「パスが見つかりません」というお馴染みの実行時エラーでマクロがクラッシュします。
実務でユーザーが使うツールを想定するなら、「保存されているファイルか？」を事前にチェックするガード節（Guard Clause）が絶対に不可欠です。
—
3. 実践！未保存ファイルを安全にハンドリングするコード
それでは、`Path` プロパティの空判定を利用して、未保存の新規プレゼンテーションであればユーザーに保存を促し、保存済みであれば処理を続行するスマートなコードを書いてみましょう。
以下のコードを、VBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してみてください。
Sub SafeFileProcessing()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ 1. プレゼンテーションが一度も保存されているかチェック
If targetPres.Path = “” Then
‘ 【未保存の場合の処理】
Dim userChoice As VbMsgBoxResult
userChoice = MsgBox(“このプレゼンテーションはまだ保存されていません。” & vbCrLf & _
“処理を続行するには、先にファイルを保存してください。” & vbCrLf & _
“今すぐ「名前を付けて保存」ダイアログを表示しますか？”, _
vbYesNo + vbExclamation, “未保存ファイルの検出”)
If userChoice = vbYes Then
‘ 名前を付けて保存ダイアログを表示（ユーザーに保存させる）
‘ ※キャンセルされた場合などのエラー対策として On Error を挟むのがプロの技
On Error GoTo SaveCancelled
targetPres.Save
On Error GoTo 0 ‘ エラー監視を解除
Else
MsgBox “処理を中止しました。”, vbInformation
Exit Sub
End If
End If
‘ 2. 保存済み（あるいは今保存された）状態でのメイン処理
MsgBox “安全なパスを確認しました！” & vbCrLf & _
“保存場所: ” & targetPres.Path & vbCrLf & _
“ファイル名: ” & targetPres.Name, vbInformation, “処理成功”
‘ ここに本来行いたい自動化処理を記述していく
‘ 例: ActivePresentation.SaveCopyAs targetPres.Path & “\backup.pptx”
Exit Sub
SaveCancelled:
MsgBox “保存がキャンセルされたため、処理を中断します。”, vbCritical
End Sub
コードの解説とエンジニアのこだわりポイント
1. `If targetPres.Path = “” Then` による厳格な判定
ここでファイルの生死（保存されているか否か）を完璧に嗅ぎ分けます。空文字であれば未保存と即座に断定できます。
2. `targetPres.Save` の呼び出し
PowerPoint VBAでは、一度も保存されていないプレゼンテーションに対して `.Save` メソッドを呼び出すと、自動的にExcelやWordと同様の「名前を付けて保存」ダイアログが立ち上がります。非常に直感的ですね。
3. `On Error GoTo SaveCancelled` による安全ネット
ダイアログが開いた際、ユーザーが「キャンセル」ボタンを押すとVBA側でエラー（実行時エラー 1004など）が発生します。これをキャッチして優しく処理を抜けるためのトラップを仕掛けておくことで、予期せぬエラー画面のポップアップを防ぎます。
—
まとめ：ここをクリアすれば、PowerPoint VBAは怖くない！
今回は、`Presentation.Path` と `Presentation.FullName` の違いを軸に、未保存ファイルによるエラーを未然に防ぐ堅牢なコードの書き方を解説しました。
- 保存されているか不安なときは `Path` が空 (`””`) かどうかをまず疑う。
- 未保存なら、いきなりパスを操作せず、`.Save` で保存を促すか処理を安全に中断する。
この基本原則を身につけておくだけで、あなたが作るマクロツールは「エラーを出さない、ユーザーに優しい実用ツール」へと生まれ変わります。
ここをクリアできれば、PowerPoint VBAのオブジェクトモデルを扱う基礎体力はもうバッチリです。自信を持って、次の自動化のステップへ進んでくださいね！
