【テクニカル・上級編】【ファイルパス解析】”Presentation.Path”と”Presentation.FullName”を使い分け、未保存の新規プレゼンテーション（Pathが空）での実行時エラーを防止するパス判定処理 – PowerPoint VBA解析バイブル

【PowerPoint VBA】無秩序なエラーを根絶せよ：`Presentation.Path` と `FullName` の極限判定アーキテクチャ

VBAによるOffice自動化において、プログラマの技量が最も露呈するのは「正常系のコード」の美しさではない。「異常系」、特にファイルが未保存の状態（Dirty State）におけるハンドリングの厳密さである。

WordやExcelであれば、新規作成されたドキュメントの `Path` プロパティを参照しても、通常はカレントディレクトリや空文字列を返す。しかし、PowerPointのオブジェクトモデルは、この挙動において特異な振る舞いを見せる。

未保存のプレゼンテーションに対して安易に `Path` や `FullName` を叩き、文字列結合やファイルI/Oを執行した瞬間、VBAランタイムは情け容赦なく 実行時エラー（Run-time error） を吐き捨てる。本稿では、PowerPoint VBAにおけるパス解析の真髄と、未保存ドキュメントを安全に検知・誘導する堅牢なアーキテクチャを解剖する。

—

1. オブジェクトモデルの深層：`Path` と `FullName` の生死境界

PowerPointの `Presentation` オブジェクトにおいて、ファイルパスに関連するプロパティは主に以下の2つが存在する。

• `Presentation.Path`: ドキュメントが保存されているフォルダのパス（末尾のバックスラッシュ `\` は含まれない）。
• `Presentation.FullName`: ドキュメントの親フォルダパス、ファイル名、拡張子を結合した完全修復パス。

未保存時（Untitled）における致命的な挙動

ユーザーがPowerPointを起動し、そのまま「新規プレゼンテーション」を作成した直後の状態を想定する。この段階で、プレゼンテーションはメモリ上にのみ存在し、ファイルシステム上には実体がない。

この状態で以下のコードを実行してみるがいい。

‘ 【アンチパターン】未保存状態でこれを実行すると崩壊する
Dim currentPath As String
currentPath = ActivePresentation.Path

`ActivePresentation.Path` は 長さゼロの文字列（`””`） を返す。ここまではまだ許容範囲に見えるかもしれない。問題は、これを基準にして相対パスの構築やファイル操作を行おうとした瞬間、あるいは `FullName` を用いてファイルシステムのAPIを叩いたときに発生する。

さらに悪質なのは、サードパーティ製アドインやマルチウィンドウ環境において、`ActivePresentation` が意図しない別の未保存ウィンドウを指している場合だ。オブジェクトのライフサイクルを無視したコードは、エンタープライズ環境において必ずシステムクラッシュを引き起こす。

—

2. 安全防壁の構築：完全なるパス判定ロジック

未保存プレゼンテーションでの実行時エラーを完全に防止するためには、「Pathが空文字列であるか否か」だけでなく、「ファイルシステム上に実際にファイルが存在するか（`Dir`関数による物理検証）」の二重チェックを行うのが、シニアエンジニアの標準作法である。

以下に、実務で即座に使える堅牢なパス判定・検証プロシージャを提示する。

Option Explicit

”’

Public Sub ValidateAndHandlePresentationPath()
Dim targetPres As Presentation
Dim targetPath As String
Dim targetName As String
Dim fullPath As String

‘ 1. オブジェクトのライフサイクル安全取得
On Error GoTo ErrorHandler
Set targetPres = ActivePresentation

If targetPres Is Nothing Then
MsgBox “操作対象のプレゼンテーションが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If

‘ 2. Pathプロパティの評価（未保存の検知）
targetPath = targetPres.Path
targetName = targetPres.Name

If targetPath = vbNullString Then
‘ 【分岐A】一度も保存されていない新規ドキュメント
Call HandleUnsavedPresentation(targetPres)
Exit Sub
End If

‘ 3. FullNameの構築と物理存在確認
fullPath = targetPres.FullName

‘ パスカルケースのフォルダ区切り考慮
If Not FileExists(fullPath) Then
MsgBox “パスは定義されていますが、物理ファイルが見つかりません。” & vbCrLf & _
“パス: ” & fullPath, vbExclamation, “ファイルロスト警告”
Exit Sub
End If

‘ 【分岐B】正常な保存済みドキュメントとしての処理継続
MsgBox “正常な保存済みファイルです。” & vbCrLf & _
“保存先: ” & targetPath, vbInformation, “検証完了”

‘ ここにメインの業務ロジックを記述していく
‘ ProcessMainLogic targetPres

CleanExit:
‘ オブジェクト変数の明示的解放（メモリリーク防止）
Set targetPres = Nothing
Exit Sub

ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanExit
End Sub

”’

Private Sub HandleUnsavedPresentation(ByRef pres As Presentation)
Dim userChoice As VbMsgBoxResult

userChoice = MsgBox( _
“このプレゼンテーションはまだ保存されていません。” & vbCrLf & _
“処理を続行するには、事前にファイルを保存する必要があります。” & vbCrLf & _
“今すぐ「名前を付けて保存」ダイアログを表示しますか？”, _
vbYesNo + vbExclamation, “未保存ファイルの検出”)

If userChoice = vbYes then
‘ PowerPointの組み込み「名前を付けて保存」ダイアログを強制表示
‘ ※ユーザーがキャンセルした場合のエラーをトラップするためにOn Errorを使用
On Error Resume Next
Application.Dialogs(ppDialogSaveAs).Show
On Error GoTo 0

‘ 保存後に再度Pathが有効になったか確認
If pres.Path <> vbNullString Then
MsgBox “保存を確認しました。処理を再開します。”, vbInformation, “成功”
‘ 再帰的、あるいはメイン処理へ誘導
Else
MsgBox “保存がキャンセルされたため、処理を中断します。”, vbInformation, “中断”
End If
Else
MsgBox “ユーザーの操作により処理を中断しました。”, vbInformation, “中断”
End If
End Sub

”’

Private Function FileExists(ByVal filePath As String) As Boolean
On Error Resume Next
‘ Dir関数を用いた高速な存在確認
FileExists = (GetAttr(filePath) And vbDirectory) = 0
On Error GoTo 0
End Function

—

3. チーフアーキテクトの知見：メモリ最適化とAPI連携の罠

大規模な自動化システムや、他の外部プロセス（C#製デスクトップアプリやWeb API）とPowerPointを連携させる場合、単なるVBAスクリプトの記述を超えた配慮が必要になる。

オブジェクトの明示的解放（`Set … = Nothing`）の哲学

VBAのガベージコレクションは参照カウント方式（Reference Counting）に依存している。プロシージャ内で `ActivePresentation` や `ActiveWindow` などのCOMオブジェクトを取得した際、ローカル変数に格納したままプロシージャを抜けると、ホストアプリケーション側で参照が残り続け、「Excel/PowerPointがバックグラウンドプロセスから消えない（ゾンビプロセス化）」の主原因となる。

面倒くさがらずに、処理の終端（`CleanExit:` ラベルなど）で必ず `Set targetPres = Nothing` を実行し、COMコンポーネントの参照を即座に解放する鉄の意志を持て。

UNCパス（ネットワークドライブ）とSharePoint環境への配慮

現代のオフィス環境では、ローカルの `C:\` ドライブだけでなく、OneDriveやSharePoint、あるいは社内LANのUNCパス（`\\server\share\file.pptx`）上でPowerPointファイルが編集される。

ここで未保存判定を怠ると、`Presentation.Path` が `https://d.docs.live.net/…` のようなWebDAV形式のURLを返すケースに直面する。この状態のパスに対して標準のファイルシステム操作（FileSystemObjectや`Dir`関数）を直接実行すると、ネットワークタイムアウトや致命的なパス解析エラー（エラー76: パスが見つかりません）を引き起こす。

クラウドストレージ上のプレゼンテーションを扱う場合、`Path` がHTTP/HTTPSスキームを含んでいるかどうかの文字列検査（`InStr(1, targetPath, “http”, vbTextCompare) > 0`）をロジックの初期段階に組み込むことが、モダンなVBAエンジニアに求められる必須要件である。

—

総括

PowerPoint VBAにおけるファイルパスの扱いは、一見すると単純なプロパティの参照に思える。しかし、その背後には「未保存」「物理ロスト」「クラウドストレージ」「COMのメモリ管理」という幾重もの地雷が埋まっている。

エラーが起きてから場当たり的に `On Error Resume Next` で塗りつぶす悪習は、今この瞬間をもって断ち切れ。厳密な条件分岐と、オブジェクトのライフサイクルをコントロールしたコードこそが、あなたの作る自動化システムを「おもちゃ」から「エンタープライズグレードのソリューション」へと昇華させる唯一の道である。