【PowerPoint VBA極限の知見】`Name`と`FullName`の決定的違い：未保存ファイルで足元をすくわれないための堅牢なパス判定設計
開発現場でよくある光景だ。
「現在開いているプレゼンテーションを自動処理し、同じフォルダ内にPDFや別名ファイルとして保存するツール」を作ったとする。
テスト時は完璧に動作した。しかし、現場のユーザーが「新規作成してまだ保存していない状態」でそのマクロを実行した瞬間、冷酷なエラーダイアログが画面を切り裂く。
> 実行時エラー ‘-2147188160 (80048240)’:
> Presentation.Path: パスが見つかりません。
初心者がここでやりがちなのは、エラーハンドラー（`On Error Resume Next`）で力技でねじ伏せるという、悪手中の悪手だ。
エラーを握りつぶす設計は、やがて予期せぬサイレントバグ（意図しないディレクトリへのファイル上書きなど）を引き起こす。
今回は、PowerPoint VBAのオブジェクトモデルにおける`Name`と`FullName`、そして`Path`の生態系を徹底的に解剖し、「未保存ファイル」という地雷をスマートかつ絶対に踏まない堅牢なプログラミング手法を授けよう。
—
1. プロパティの生態系：`Name`・`Path`・`FullName`の正体
まずは、オブジェクトモデルの基本定義を正確に把握する。ここを曖昧にしているからバグを生む。
- `Presentation.Name`
- 拡張子を含んだファイル名のみを返す（例: `Proposal.pptx`）。
- 未保存の新規ファイルであっても、PowerPointが自動割り当てした仮称（例: `プレゼンテーション1`）を返す。
- `Presentation.Path`
- ファイルが保存されているフォルダのパスを返す（末尾のバックスラッシュ `\` は含まれない）。
- 【超重要】未保存のファイルの場合、このプロパティは「長さ0の文字列（””）」を返す。
- `Presentation.FullName`
- 「Path + `\` + Name」の完全パスを返す。
- 未保存のファイルの場合、Pathが空のため、単なるファイル名（Nameと同等）しか返さない。
何が危険なのか？
「`Path`プロパティを評価せずに、いきなり文字列結合してファイルを保存しようとする」ことこそが、実務におけるバグの温床だ。
‘ 【アンチパターン】絶対にやってはいけないコード
Dim savePath As String
‘ 未保存ファイルの場合、ActivePresentation.Path は “” になるため、
‘ カレントディレクトリ（意図しない場所）にファイルが生成されるか、エラーになる
savePath = ActivePresentation.Path & “\output.pdf”
ActivePresentation.SaveAs savePath, ppSaveAsPDF
プロのエンジニアであれば、コードを書く前に「このファイルはディスク上に実在しているか？」を疑うことから始める。
—
2. 堅牢な設計：未保存ファイルをどうハンドリングすべきか？
業務自動化ツールにおいて、未保存のファイルが渡された場合の挙動は、あらかじめ仕様として定義しておかなければならない。
1. 処理を中断し、ユーザーに優しく警告する（最も安全）
2. 自動的に名前を付けて保存ダイアログを強制し、パスを確定させてから処理を続行する
今回は、実務の現場で最も求められる「未保存の場合は処理を安全にスキップ（または保存を促す）し、ツール全体のクラッシュを防ぐ」スマートな判定ロジックを実装しよう。
—
3. 【コピペOK】プロダクションコード例
以下のコードは、実務の現場でそのまま組み込める堅牢性を持たせたプロシージャだ。単なる「動くコード」ではなく、オブジェクトの状態を厳密にチェックするプロフェッショナルな実装となっている。
Sub ProcessActivePresentationSafely()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ 1. ウィンドウが開かれているかどうかの基本防衛
If Documents.Count = 0 Then
MsgBox “処理対象のプレゼンテーションが開かれていません。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ 2. 【核心】Pathプロパティの長さをチェックし、未保存ファイルを検知する
If targetPres.Path = “” Then
Dim userChoice As VbMsgBoxResult
userChoice = MsgBox(“このプレゼンテーションはまだ保存されていません。” & vbCrLf & _
“処理を続行するには、事前にファイルを保存する必要があります。” & vbCrLf & _
“今すぐ保存しますか？”, vbYesNo + vbExclamation, “未保存ファイルの検知”)
If userChoice = vbYes Then
‘ ユーザーに保存ダイアログを表示する
On Error GoTo SaveCancelled
targetPres.Save
On Error GoTo 0
Else
MsgBox “ユーザーの操作により処理をキャンセルしました。”, vbInformation, “終了”
Exit Sub
End If
End If
‘ 3. パスが確実に担保された状態での安全な処理
Call ExecuteMainLogic(targetPres)
Exit Sub
SaveCancelled:
‘ ユーザーが「名前を付けて保存」ダイアログでキャンセルを押した場合のエラーハンドリング
MsgBox “ファイルの保存がキャンセルされたため、処理を中断します。”, vbCritical, “中断”
End Sub
Private Sub ExecuteMainLogic(pres As Presentation)
‘ ここに実際の業務ロジックを記述する
‘ すでに targetPres.Path は確実に存在することが保証されている
Dim exportPath As String
‘ 例：同じフォルダ内に「Processed_」を付与して別名保存する
exportPath = pres.Path & “\Processed_” & pres.Name
‘ サンプルとしてメッセージを表示（実際はExportやSaveAsに置き換える）
MsgBox “以下のパスで安全に処理を実行します:” & vbCrLf & exportPath, vbInformation, “実行成功”
End Sub
—
4. チーフアーキテクトからの実践的なアドバイス
データベース連携やファイル出力時の注意点
PowerPointをハブとして、ExcelやAccess、あるいは外部のクラウドストレージ（SharePoint / OneDrive）と連携させるツールを構築する場合、`Path`の扱いはさらにシビアになる。
- 同期ズレの罠: OneDrive等で同期中のファイルは、ローカルパスとURLパスが混在する場合がある。`Presentation.Path`が `https://` で始まるWebパスを返すことがあるため、そのままVBAの `FileSystemObject (FSO)` に放り込むとパス解決エラーを起こす。
- 対策: ネットワークパスやクラウド上のファイルを扱う場合は、事前に `InStr(targetPres.Path, “http”) > 0` などの条件分岐を挟み、ローカルのテンポラリに一度落とし込む設計にするのが、大規模開発における定石だ。
まとめ
たかが `Path`、されど `Path`。
未保存ファイルを考慮しないコードは、いわば「シートベルトをせずに高速道路を走るようなもの」である。
- 未保存のファイルの `Path` は空文字 (`””`) になる。
- エラーを `On Error` で隠蔽するな、条件分岐で「予測」しコントロールしろ。
- 実務ツールでは、ユーザーへの誘導（保存を促す）までを設計に組み込め。
この原則を頭に叩き込んでおけば、あなたの書くPowerPoint VBAは、現場で絶対に音を上げない「極限の堅牢性」を手に入れる。
