拡張子の背後に潜む「地雷」を排除せよ：Presentation.FullNameの深淵
PowerPoint VBAを操る際、多くの初学者が陥る罠が「ファイルパスを文字列として安易に扱う」ことだ。`ActivePresentation.FullName`を取得し、右から4文字を切り取って判定する……そんな稚拙なコードで、複雑な業務システムを組むべきではない。
我々アーキテクトにとって、拡張子は単なる文字列ではない。それは「そのファイルが背負っている機能的制約と、実行環境へのリスク」を定義するメタデータである。
今日は、レガシーとモダンが混在する過酷なエンタープライズ環境で、拡張子の揺らぎを完璧に制御し、システム全体の堅牢性を担保するための「ガードロジック」の真髄を伝授する。
—
1. なぜ「右4文字」では不十分なのか
`Right(FullName, 4)`を用いる手法には、2つの致命的な欠陥がある。
1. 拡張子の長さの不整合: `.pptx` (5文字) と `.ppt` (4文字) が混在する環境で、固定長スライスは論理破綻を招く。
2. 大文字・小文字の不一致: Windowsはファイル名の大文字小文字を区別しないが、VBAの文字列比較はデフォルトでバイナリ比較（`Option Compare Binary`）だ。`”PPTX”`と`”pptx”`を同一とみなさない脆弱なコードは、バグの温床となる。
究極の判定ロジック：FileSystemObjectの活用
VBAの組み込み関数に頼るべきではない。COMオブジェクトである`Scripting.FileSystemObject`（FSO）を介することで、OSレベルのファイルシステム解釈を直接利用する。
‘ 拡張子判定のためのガードクロージャ
Public Function GetPresentationFormat(ByVal targetPres As Presentation) As String
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ オブジェクトのライフサイクルを考慮し、即座に評価・解放を行う
On Error Resume Next
GetPresentationFormat = LCase(fso.GetExtensionName(targetPres.FullName))
On Error GoTo 0
Set fso = Nothing
End Function
—
2. 実践：ガードロジックによる自動分岐
現場で求められるのは、「何ができるか」ではなく「何をしてはいけないか」の強制力だ。以下のコードは、保存形式に応じてマクロの実行を拒絶、あるいは挙動を変えるためのゲートキーパーである。
Public Sub ExecuteTaskSafe()
Dim currentPres As Presentation
Set currentPres = ActivePresentation
Dim ext As String
ext = GetPresentationFormat(currentPres)
‘ 拡張子に基づいた厳格な制御
Select Case ext
Case “pptm”, “ppsm”
‘ マクロ有効形式：許可
Call RunMainLogic(currentPres)
Case “pptx”, “ppsx”
‘ マクロ無効形式：警告して終了
MsgBox “エラー: この操作にはマクロ有効プレゼンテーション(.pptm)が必要です。”, vbCritical
Case “ppt”
‘ レガシー形式：互換性モードへの警告
If MsgBox(“レガシー形式(.ppt)です。処理を続行しますか？”, vbYesNo) = vbNo Then Exit Sub
Call RunMainLogic(currentPres)
Case Else
MsgBox “不明なファイル形式です。”, vbExclamation
End Select
End Sub
—
3. シニアエンジニアのための最適化：メモリ管理とAPI
大規模なプレゼンテーションを自動操作する場合、メモリリークは死を意味する。特に`Presentation`オブジェクトや`Slide`オブジェクトを扱う際、「明示的なNothing代入」は必須の作法である。
また、もし「ファイルパスが長すぎて`FullName`が途切れる」という極めて稀だが存在するOSの制限に直面した場合、Windows APIの`GetLongPathName`を呼び出す必要がある。
堅牢性の極み：APIによるパスの正規化（参考）
If VBA7 Then
Private Declare PtrSafe Function GetLongPathName Lib “kernel32” Alias “GetLongPathNameA” _
(ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
End If
‘ 8.3形式の短縮パスをフルパスに変換するラッパーが必要な場合、ここを拡張する
—
アーキテクトからの提言
コードを書くことは手段に過ぎない。君たちが目指すべきは、「誰が使ってもクラッシュしないシステム」の構築だ。
1. FSOを使用せよ: 文字列操作の自作関数は、バグを再発明するだけだ。
2. オブジェクトの寿命を制御せよ: `Set obj = Nothing`を怠るエンジニアに、大規模な自動化を語る資格はない。
3. 例外を握りつぶすな: `On Error Resume Next`を使うなら、必ず直後に`Err.Clear`し、必要な個所でのみ限定的に適用せよ。
PowerPoint VBAは、正しく扱えば最強の業務自動化ツールとなる。拡張子の判定という小さな一歩から、その堅牢性を磨き上げてほしい。健闘を祈る。
