こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから抜け出し、「自分の手で自由自在にプレゼンテーションを自動制御したい！」そう思えるようになったあなたは、もう立派なエンジニアの卵です。
今回は、実務の現場で100人が1度は通る「未保存ファイルにおけるパス取得エラーの罠」について、徹底的に解説していきます。
ここをクリアすれば、PowerPointのオブジェクトモデルの「機嫌の取り方」が手に取るようにわかるようになりますよ。さあ、一緒に本質をマスターしていきましょう！
—
1. `Name` と `FullName` の決定的な違い
PowerPoint VBAでプレゼンテーションを操作するとき、現在開いているファイルの「名前」や「場所」を知りたくなりますよね。ここで登場するのが、以下の2つのプロパティです。
- `Presentation.Name` ： ファイルの「名前」だけを返す（例: `sample.pptx`）
- `Presentation.FullName` ： ドライブ名やフォルダパスを含んだ「フルパス」を返す（例: `C:\Work\sample.pptx`）
「なーんだ、ファイル名だけ欲しいときは `Name`、フルパスが欲しいときは `FullName` を使えばいいのね」
……そう思ったあなた、惜しい！ 実はここに、PowerPoint VBAが牙をむく「未保存の罠」が隠されています。
📊 図解：未保存ファイルの状態
【すでに保存されているファイル】
ActivePresentation.Name → “eigyo_资料.pptx”
ActivePresentation.FullName → “C:\Users\Name\Desktop\eigyo_资料.pptx” (パスがある！)
【まだ一度も保存されていない新規ファイル (例: プレゼンテーション1)】
ActivePresentation.Name → “プレゼンテーション1” (名前はある！)
ActivePresentation.FullName → “” (空っぽ！エラーの温床！) (パスがない！)
そう、「まだ一度も保存されていないファイル」には、OS上の保存場所（Path）が存在しません。
この状態で `FullName` や、隠れた `Path` プロパティを安易に呼び出すと、VBAは「えっ、どこを探せばいいの？」とパニックを起こし、無情な実行時エラーを吐き出して止まってしまうのです。
—
2. なぜこのエラーで現場のエンジニアは頭を抱えるのか？
実務で自動化マクロを作るとき、私たちはついつい次のようなコードを書きがちです。
Sub BadExample()
Dim targetPath As String
‘ アクティブなファイルの保存場所＋ファイル名を取得しようとする
targetPath = ActivePresentation.Path & “\” & ActivePresentation.Name
MsgBox targetPath
End Sub
このコード、元からPCに保存されているファイルであれば何の問題もなく動きます。
しかし、ユーザーがPowerPointを起動して「新規スライド」を作った直後（つまり未保存の状態）にこのマクロを実行するとどうなるでしょう？
`ActivePresentation.Path` は完全な長さ0の空文字 (`””`)を返します。
その結果、結合された文字列は `”\プレゼンテーション1″` となり、ファイル保存やファイル操作（FileSystemObjectなど）に渡した瞬間、「パスが見つかりません」という致命的なエラーを引き起こします。
自動化ツールを作った本人であれば「あ、保存し忘れたな」と気づけますが、現場の一般社員がこのエラー画面に出くわしたら……「このマクロ、壊れてます！」とあなたのもとにクレームが飛んでくることになりかねません。
—
3. 【回避策】未保存ファイルをスマートに検知・処理するプロの技
では、このエラーを未然に防ぐにはどうすればよいのでしょうか？
答えは簡単です。「処理を行う前に、そのファイルが保存されているかどうかを判定（ガード）する」これだけです。
PowerPoint VBAでは、`Path` プロパティが空文字 (`””`) かどうかをチェックすることで、未保存ファイルを一発で見抜くことができます。
以下に、現場でそのまま使える「安全設計」のテンプレートコードを用意しました。開発の現場でぜひコピペして活用してください。
🛠️ 実用コード例：安全なファイル情報取得マクロ
Sub CheckPresentationStatus()
Dim prs As Presentation
Set prs = ActivePresentation
‘ 【重要】Pathプロパティが空かどうかで「未保存」を判定する
If prs.Path = “” Then
‘ — 未保存の場合の処理 —
MsgBox “このプレゼンテーションはまだ保存されていません！” & vbCrLf & _
“一度ファイルを保存してから、再度マクロを実行してください。”, _
vbExclamation, “未保存ファイル検知”
‘ 必要であれば、ここで強制的に名前を付けて保存ダイアログを出すことも可能
‘ prs.Save
Exit Sub ‘ 処理をここで安全に中断
End If
‘ — 保存されている場合の処理（ここから先は安全にパスを使える） —
Dim fileFullPath As String
fileFullPath = prs.FullName
MsgBox “ファイルのパスはこちらです：” & vbCrLf & fileFullPath, _
vbInformation, “処理完了”
‘ ここに本来行いたい自動化処理を記述していく
‘ 例: ActivePresentation.Export 等々…
End Sub
💡 コードのポイント
1. `Set prs = ActivePresentation`
オブジェクトを変数に格納することで、コードの可読性を上げ、予期せぬアクティブウィンドウの切り替わりバグを防いでいます（プロの基本作法です）。
2. `If prs.Path = “” Then`
これが今回の最大のキモです。パスが空（＝未保存）であれば、処理を `Exit Sub` で優しく安全に打ち切ります。
3. ユーザーフレンドリーなメッセージ
「エラーで強制終了」させるのではなく、「保存してくださいね」とダイアログで誘導することで、ツール自体の品質が劇的に向上します。
—
まとめ：ここをクリアすれば、あなたはもう初心者卒業！
今回は、`Presentation.Name` と `Presentation.FullName` の違いと、未保存ファイルによるパス取得エラーの回避策について解説しました。
- `Name` は名前だけ（未保存でも取れる）。
- `FullName` はパスを含む（未保存だと空文字になり、トラブルの元）。
- 処理の冒頭で `If prs.Path = “” Then` でガードする。
たったこれだけの知識ですが、これを意識してコードを書けるかどうかで、あなたが作るVBAツールの「頑健性（ロバストネス）」はまったく違ったものになります。
現場で「動かない！」と慌てる前に、常に「このファイル、本当に保存されてる？」と疑うエンジニア視点を持つこと。ここをクリアしたあなたは、もう立派なPowerPoint VBA使いです。
日々の自動化ライフを、もっとスマートに、もっと快適に楽しんでいきましょう！
