PowerPoint VBAでの自動化において、オブジェクトモデルの挙動を深く理解しているか否かは、プロとしてのエンジニアリングの質を大きく左右する。
特に、ファイル操作や外部システム連携（データベースやクラウドストレージへのアップロード、ログ出力など）を行うツールを開発する際、避けて通れないのが「ファイルの保存状態の判定」だ。
今回は、多くの開発者がハマる『Presentation.FullName』の罠と、それによる実行時エラーを完全に封じ込める堅牢な設計手法について、チーフアーキテクトの視点から伝授しよう。
—
なぜ `Presentation.FullName` は「未保存」のときに牙をむくのか？
業務でPowerPointマクロを動かす際、ユーザーが「新規作成」したまま（＝一度も名前を付けて保存していない状態）でツールを実行することは日常茶飯事だ。
ここで、ファイルの保存先パスを取得しようとして、安易に以下のプロパティにアクセスしたことはないだろうか？
- `Presentation.Path`
- `Presentation.FullName`
もし、そのプレゼンテーションが一度も保存されておらず、仮称（「プレゼンテーション1」など）のままであった場合、これらを参照した瞬間に「実行時エラー」が発生する。
オブジェクトモデルの裏側にある事実
PowerPointのオブジェクトモデルにおいて、新規作成されたドキュメントは、ファイルシステム上に実体を持たない。つまり、`Path` プロパティが返すべき文字列が存在しないのだ。
存在しない領域へのアクセスに対して、VBAのエンジンは容赦なくエラーを吐き出し、処理を中断させる。
「エラーが起きるなら、`On Error Resume Next` で無理やり握りつぶせばいい」と考えたそこのあなた。それはプロのエンジニアリングではない。エラー隠蔽はバグの温床であり、予期せぬトラブルを隠蔽する最悪のアンチパターンだ。
—
堅牢な設計：Pathの「空白チェック」によるスマートな判定
では、どう設計すべきか。
答えは極めてシンプルかつロジカルだ。「`Path`プロパティが空文字列（`””`）であるか否かを事前に評価する」こと。
PowerPointの仕様上、未保存のファイルは `Path` が長さ0の文字列を返す。したがって、処理を分岐させるための条件式はこうなる。
If ActivePresentation.Path = “” Then
‘ 未保存の場合のハンドリング
Else
‘ 保存済みの場合の処理（FullNameやPathを利用可能）
End If
このワンクッションを挟むだけで、実行時エラーのリスクを100%排除できる。ファイルやデータベース連携ツールを構築する際、この「入口のガード」があるかどうかで、プロダクションコードとしての信頼性が決定的に変わる。
—
【コピペ即実戦投入可能】プロダクション品質のVBAコード例
実際の業務ツール（例えば、アクティブなプレゼンを指定のフォルダに自動バックアップする、あるいはDBにメタデータを登録する機能）を想定した、実用的なモジュールを提示する。
保守性が高く、エラーメッセージもユーザーフレンドリーな設計に仕上げている。
Option Explicit
Public Sub ExportOrLogPresentationInfo()
‘ =========================================================================
‘ プロシージャ名: ExportOrLogPresentationInfo
‘ 概要 : アクティブなプレゼンの保存状態を安全に判定し、処理を分岐する
‘ アーキテクトノート: 未保存ファイルのパス取得エラーを事前に完全に防ぐ設計
‘ =========================================================================
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 userRes As VbMsgBoxResult
userRes = MsgBox(“このプレゼンテーションはまだ保存されていません。” & vbCrLf & _
“処理を続行するには、事前にファイルを保存する必要があります。” & vbCrLf & _
“今すぐ名前を付けて保存しますか？”, _
vbYesNo + vbExclamation, “未保存ファイルの検出”)
If userRes = vbYes Then
‘ ユーザーに保存ダイアログを表示する
On Error GoTo SaveCancelled ‘ ユーザーがキャンセルした場合の対策
targetPres.Save
On Error GoTo 0
‘ 保存成功後、再度パスを持つようになったため、処理を進める
Call ExecuteMainProcess(targetPres)
Else
MsgBox “処理を中止しました。”, vbInformation, “キャンセル”
Exit Sub
End If
Else
‘ 3. 保存済みの場合：安全にFullNameやPathを利用可能
Call ExecuteMainProcess(targetPres)
End If
Exit Sub
SaveCancelled:
‘ ユーザーが名前を付けて保存ダイアログで「キャンセル」を押したケース
MsgBox “保存がキャンセルされたため、処理を中断します。”, vbInformation, “中断”
End Sub
Private Sub ExecuteMainProcess(ByRef pres As Presentation)
‘ =========================================================================
‘ 概要: パスが担保された安全な状態で実行されるメイン処理
‘ =========================================================================
Dim filePath As String
Dim fileName As String
filePath = pres.FullName ‘ ここではエラーは絶対に起きない
fileName = pres.Name
‘ 【デバッグ用 / ログ出力のシミュレーション】
Debug.Print “— 処理実行 —”
Debug.Print “ファイル名: ” & fileName
Debug.Print “フルパス : ” & filePath
‘ ここに本来の業務ロジック（DB連携、ファイルサーバーへのコピー等）を記述する
MsgBox “以下のファイルの処理に成功しました：[” & fileName & “]”, vbInformation, “完了”
End Sub
—
チーフアーキテクトからの提言
実務でVBAを書くとき、私たちはつい「正常に動くハッピーパス」だけに意識を奪われがちだ。しかし、現場のユーザーは開発者の意図しないタイミングで、未保存のままボタンを押したり、ウィンドウを操作したりするものだ。
「外部リソースやファイルシステムに触れるプロパティへアクセスする前には、必ず前提条件をコードで担保する」
この原則を徹底するだけで、デバッグに費やす無駄な時間は劇的に削減される。
ぜひ、あなたのプロジェクトのコードベースにもこの「空白チェックの思想」を取り入れ、鉄壁の自動化ツールを作り上げてほしい。
