【PowerPoint VBA極限解説】Presentation.NameとFullNameの深層：未保存ファイルが引き起こすクラッシュを完全制圧する
シニアエンジニアや社内システムのアーキテクチャ設計において、Officeアプリケーションの自動化は常に「メモリ管理」と「例外処理」の境界線上にある。特にPowerPoint VBAにおけるオブジェクトモデルの挙動は、ExcelやWordとは異なる独特の癖を抱えている。
今回は、日々の業務自動化やインシデント対応で最も見落がちでありながら、システム停止に直結する「未保存のプレゼンテーション（Untitled State）」におけるファイルパスの取得問題にメスを入れる。
`Name` と `FullName` の本質的な違いを解剖し、Windows APIやメモリ最適化の観点から、実務で絶対に破綻しない堅牢なコードの書き方を提示する。
—
1. オブジェクトモデルの深層：Name と FullName の決定的な違い
PowerPointのオブジェクトモデルにおいて、`Presentation` オブジェクトが持つファイル名・パス関連のプロパティには、以下の3つが存在する。
1. `Name`：拡張子を含むファイル名（例: `report.pptx`）
2. `Path`：ストレージ上のディレクトリパス（例: `C:\Data` ※末尾のバックスラッシュは含まれない）
3. `FullName`：パスとファイル名を結合した完全修飾パス（例: `C:\Data\report.pptx`）
一見すると、`FullName` は `Path & “\” & Name` のシンタックスシュガーに過ぎないように思えるかもしれない。しかし、ここに大きな罠がある。
未保存ファイル（Untitled）のメモリ上での振る舞い
ユーザーがPowerPointを起動し、新規プレゼンテーションを作成した直後の状態を考えてほしい。この時、ファイルはまだ物理ディスク上に存在せず、メモリ（RAM）上だけにインスタンスが展開されている。
この瞬間、プロパティの評価結果は以下のようになる。
- `Name`：`”プレゼンテーション1″` （※アプリケーションの言語設定やデフォルト名に依存）
- `Path`：`””` （長さゼロの空文字列）
- `FullName`：`””` （長さゼロの空文字列）
ここでシニアエンジニアが最も警戒すべきなのは、「未保存の状態で `FullName` や `Path & “\” & Name` をそのままファイルシステム操作（FileSystemObject等）に渡した瞬間、実行時エラー、あるいは意図しないカレントディレクトリへのファイル生成を引き起こす」という事実である。
—
2. なぜエラーが起きるのか？（実務での致命傷）
よくあるバグの温床となるコードを見てみよう。
‘ 【アンチパターン】未保存ファイルを考慮していない危険なコード
Sub Dangerous_ProcessActivePresentation()
Dim targetPath As String
‘ 未保存の場合、ここで Path が空になり、targetPath には “\” + Name が代入される
targetPath = ActivePresentation.Path & “\” & ActivePresentation.Name
‘ 存在しないパス（例: “\プレゼンテーション1″）に対して処理を実行し、実行時エラー 76 または 52 が発生
MsgBox “処理対象: ” & targetPath
End Sub
このコードは、ファイルが一度でも保存されていれば正常に動作するため、開発環境（ローカルテスト）では見過ごされやすい。しかし、ユーザーが「新規作成してすぐマクロを実行した」という極めて一般的なユースケースにおいて、本番環境で突然クラッシュする。
—
3. 【極限解法】未保存ファイルを検知し、安全にフォールバックする設計
この問題を完全に回避するためには、「`Path` プロパティの評価による未保存判定」をロジックの最上流に組み込む必要がある。
さらに、プロフェッショナルなコードであれば、未保存のファイルに対しては自動的に「一時保存（Temp保存）」を促すか、あるいはメモリ上で安全に処理を分岐させる設計が求められる。
以下に、実務の現場で即座に採用できる堅牢な実装パターンを提示する。
Option Explicit
‘ ==============================================================================
‘ 堅牢性重視型プレゼンテーション情報取得プロシージャ
‘ ==============================================================================
Sub ExecuteSafePresentationProcess()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ 1. プレゼンテーションが有効かチェック
If targetPres Is Nothing Then
MsgBox “処理対象のプレゼンテーションが存在しません。”, vbCritical, “システムエラー”
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 SaveError
targetPres.Save
On Error GoTo 0
Else
MsgBox “処理を中止しました。”, vbInformation, “キャンセル”
GoTo Cleanup
End If
End If
‘ 3. 安全性が担保された状態での処理
Call ProcessFile(targetPres.FullName)
Cleanup:
‘ 4. オブジェクトの明示的解放（メモリ最適化）
Set targetPres = Nothing
Exit Sub
SaveError:
MsgBox “ファイルの保存に失敗しました。エラー番号: ” & Err.Number & vbCrLf & Err.Description, vbCritical
Resume Cleanup
End Sub
Private Sub ProcessFile(ByVal filePath As String)
‘ 実処理の記述
MsgBox “安全にファイルパスを取得しました: ” & filePath, vbInformation, “処理成功”
End Sub
—
4. シニアエンジニアのための高度な知見：メモリ最適化とAPI連携
大規模なプレゼンテーション自動化や、他のシステム（C#製アドインや外部プロセス）との連携においては、単なるVBAの条件分岐にとどまらない配慮が必要になる。
オブジェクトのライフサイクル管理
PowerPoint VBAでは、`ActivePresentation` や `Presentations(1)` などの暗黙的な参照を多用すると、COMコンポーネントの参照カウンタが適切に解放されず、PowerPointプロセス（`POWERPNT.EXE`）がバックグラウンドに残り続ける「ゾンビプロセス問題」を引き起こす。
- 原則1：操作するオブジェクトは必ず変数（`Presentation`型）に明示的に代入する。
- 原則2：プロシージャの抜け際（Exit前）には、必ず `Set obj = Nothing` を実行し、COM参照を即座に解放する。
Windows APIを活用した一時ファイルパスの動的生成
どうしても「未保存のまま、ディスクを汚さずに（あるいは一時的にディスクへ書き出して）外部APIや別プロセスへデータを渡したい」という要件がある場合、Windows APIの `GetTempPath` や `GetTempFileName` を用いて安全なサンドイッチ領域を確保するアプローチが有効だ。
‘ Windows API宣言（32bit/64bit両対応）
If VBA7 Then
Declare PtrSafe Function GetTempPath Lib “kernel32” Alias “GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Declare PtrSafe Function GetTempFileName Lib “kernel32” Alias “GetTempFileNameA” (ByVal lpszPathName As String, ByVal lpPrefixString As String, ByVal uUnique As Long, ByVal lpTempFileName As String) As Long
Else
Declare Function GetTempPath Lib “kernel32” Alias “GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Declare Function GetTempFileName Lib “kernel32” Alias “GetTempFileNameA” (ByVal lpszPathName As String, ByVal lpPrefixString As String, ByVal uUnique As Long, ByVal lpTempFileName As String) As Long
End If
‘ 未保存データを一時ファイルとして強制保存して処理する高度なアプローチ
Public Function GetSafeFilepathForAPI(ByVal pres As Presentation) As String
If pres.Path <> “” Then
‘ 保存済みならそのまま返す
GetSafeFilepathForAPI = pres.FullName
Exit Function
End If
‘ 未保存の場合、一時ディレクトリに強制保存してパスを生成
Dim tempPath As String, tempFile As String
tempPath = String(260, 0)
GetTempPath 260, tempPath
tempPath = Left(tempPath, InStr(tempPath, Chr(0)) – 1)
tempFile = tempPath & “PPT_Auto_” & Format(Now, “yyyymmddhhnnss”) & “.pptx”
‘ コピーを保存（元の未保存ステータスは維持したまま別名保存する）
pres.SaveCopyAs tempFile
GetSafeFilepathForAPI = tempFile
End Function
この手法を用いれば、ユーザーが未保存のまま作業しているプレゼンテーションであっても、システム連携基盤（メール送信API、文書管理システムへのアップロード等）へ安全にデータを引き渡すことが可能となる。
—
総括
PowerPoint VBAにおける `Presentation.Name` と `Presentation.FullName` の挙動の差異は、単なる仕様の確認にとどまらない。それは、「クライアントサイドの不確実な状態（未保存）を、いかにシステム側で予測し、制御下に置くか」というアーキテクチャの基本思想そのものである。
安易なプロパティの直叩きを排除し、厳格な状態検証とメモリ管理を徹底すること。それこそが、現場の信頼を勝ち得続ける唯一無二のエンジニアリングである。
