【PowerPoint VBA】そのファイル、マクロを保存して大丈夫？ 拡張子を「安全に」判定する極意
こんにちは。自動化の世界へようこそ。
マクロの記録ボタンを押すだけの「初心者」から、論理を構築する「エンジニア」へ一歩踏み出したあなたへ、現場で必ず直面する「落とし穴」を回避する知恵を授けましょう。
PowerPointでVBAを書くとき、最も恐ろしいのは「マクロを含められない形式で保存しようとして、苦労して書いたコードが全て消える」という悲劇です。
今回は、プログラム実行前に「今開いているファイルが何の形式なのか」を正確に見抜き、事故を未然に防ぐ「ガードロジック」の極意を解説します。
—
1. なぜ「拡張子」を判定する必要があるのか？
PowerPointのファイルには、主に以下の3つの形式が存在します。
- .pptx: マクロを含められない「安全な」プレゼンテーション形式。
- .pptm: マクロを含められる「マクロ有効」形式。
- .ppt: 古いバイナリ形式（現代の自動化では推奨されません）。
VBAで自動化を行う際、「もし .pptx で作業しているなら、保存時にエラーを出すか、自動的に .pptm に変換させる」といった判断が不可欠です。これを行わないと、ユーザーは「マクロが消えた！」とパニックになります。
2. 核心：FullName を分解する技術
PowerPointのオブジェクトモデルにおいて、現在開いているファイルの情報は `ActivePresentation.FullName` というプロパティに格納されています。これは「フルパス（C:\Users\… \test.pptx）」という文字列です。
この文字列の「最後の4文字」をチェックすることで、形式を安全に判別します。
実装コード：安全な拡張子チェック関数
まずは、この関数をあなたのツールボックスに加えてください。
‘ @brief 現在のプレゼンテーションの拡張子を判定し、警告または処理分岐を行う
Sub CheckFileExtensionAndGuard()
Dim fullPath As String
Dim extension As String
‘ 現在のファイルのフルパスを取得
fullPath = ActivePresentation.FullName
‘ 念のため：まだ保存されていない（名前がない）ファイルへの対策
If InStr(fullPath, “\”) = 0 Then
MsgBox “このファイルはまだ保存されていません！一度保存してから実行してください。”, vbCritical
Exit Sub
End If
‘ 右から4文字（.pptxなど）を取得
extension = LCase(Right(fullPath, 4))
‘ 形式に応じた分岐処理
Select Case extension
Case “.pptm”
MsgBox “マクロ有効形式です。安全に処理を続行します。”
‘ ここに本来の処理を書く
Case “.pptx”
MsgBox “警告：.pptx形式です。マクロは保存されません。” & vbCrLf & _
“保存が必要な場合は .pptm に変換してください。”
Case Else
MsgBox “未知の形式です：” & extension
End Select
End Select
—
3. コードのポイント：ここが「プロの視点」です
この短いコードには、初心者が陥りやすいエラーを防ぐための工夫が詰まっています。
1. LCase関数で大文字小文字を統一:
Windowsはファイル名の大小を区別しませんが、プログラムは区別します。「.PPTX」という大文字拡張子でも判定できるよう、すべて小文字（LCase）に変換してから比較するのが定石です。
2. 未保存状態のハンドリング:
`ActivePresentation.FullName` は、まだ一度も保存していない新規ファイルの場合、パスではなく「プレゼンテーション1」のような名前を返します。この状態で無理に拡張子判定を行うと予期せぬエラーが出るため、`InStr` でパス区切り文字が含まれるかをチェックしています。
3. Select Case文の活用:
`If` を重ねるよりも `Select Case` の方が、後から「.ppsx（スライドショー形式）」などのパターンを追加しやすく、コードの保守性が格段に向上します。
4. 次のステップへ
「拡張子を確認する」という小さなガードロジック。これは、単なるチェック機能ではありません。「実行される環境をプログラム自身が把握する」という、堅牢なシステム構築の第一歩なのです。
ここをクリアしたあなたなら、次は「保存時に自動でファイル形式を変更する」機能や、「読み取り専用モードなら処理を中断する」といった応用にもすぐに手が届くはずです。
PowerPoint VBAの自動化は、あなたのPCライフを劇的に変える力を持っています。焦らず、一歩ずつ、論理の壁を積み上げていきましょう。
また分からないことがあれば、いつでも聞きに来てくださいね。応援していますよ！
