こんにちは！PowerPointの自動化、楽しんでいますか？
マクロの記録から一歩踏み出し、「よし、自分の手で実用的なツールを作るぞ！」と意気込んだものの、最初の難関でいきなり躓いてしまう……というのは、エンジニアの道を進む誰もが通る通過点です。
特に、作成したプレゼンテーションをプログラムから保存しようとしたとき、こんなエラーに悩まされたことはありませんか？
> 「実行時エラー ‘-2147467259 (80004005)’: 指定されたファイル形式が無効です」
「ファイルパスは合っているのに、なぜ？！」と頭を抱えたあなた。ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。今日は、このエラーを完全に根絶し、どんな拡張子を指定しても自動でよしなに保存してくれる「超堅牢な汎用保存ラッパー」の作り方を、私と一緒に紐解いていきましょう。
—
1. なぜPowerPointの保存はエラーになりやすいのか？
Excel VBAの `ActiveWorkbook.SaveAs` や、Wordの `Document.SaveAs2` なら、ファイル名（パス）の拡張子を `.xlsx` や `.docx` に変えるだけで、勝手にファイル形式を判別して保存してくれますよね。
しかし、PowerPointの `Presentation.SaveAs` は、そんなに優しくありません。
PowerPointでは、ファイルパスの拡張子を指定するだけでは不十分で、第二引数である `FileFormat`（ファイル形式の定数：`PpSaveAsFileType`） を明示的にペアで渡してあげなければ、機嫌を損ねてエラーを吐いてしまうのです。
例えば、PDFとして保存したいなら `ppSaveAsPDF`、スライドショー形式なら `ppSaveAsShow` を指定する必要があります。これをサボると、パスの拡張子とフォーマット定数がチグハグになり、容赦なく実行時エラーが発生します。
「マクロの記録」の限界と、プロの防衛策
「マクロの記録」を使うと、以下のようなコードが出力されます。
ActivePresentation.SaveAs FileName:=”C:\Work\sample.pptx”, FileFormat:=ppSaveAsDefault
これだと、保存先をPDFやPPSXに変えたい時に、いちいちコードの `FileFormat` の部分を手書きで書き換えなければならず、汎用性がありませんよね。
「ユーザーが入力したパスの拡張子をVBAが自ら読み取り、それに適した `FileFormat` を自動で割り当ててくれたら、どんなに楽だろう？」
――そう思ったことはありませんか？それを実現するのが、今回解説する「汎用保存ラッパー」です。
—
2. 拡張子を自動判別する頭脳を持つ関数を作る
それでは早速、実際のコードを見てみましょう。
標準モジュールに以下のコードを貼り付けてみてください。この関数一つあれば、今後のパワポ自動化における「保存トラブル」は完全にゼロになります。
Option Explicit
/
- プレゼンテーションを指定パスの拡張子に応じて適切な形式で保存する堅牢なラッパー関数
- @param targetPres 対象のPresentationオブジェクト
- @param filePath 保存先のフルパス（例: “C:\Data\report.pdf”）
- @return 保存に成功した場合はTrue、失敗した場合はFalse
/
Public Function SavePresentationSmart(ByVal targetPres As Presentation, ByVal filePath As String) As Boolean
On Error GoTo ErrorHandler
Dim fileExtension As String
Dim saveFormat As PpSaveAsFileType
‘ 1. ファイルパスから拡張子を抽出し、小文字に統一する（大文字小文字の揺れを防ぐため）
fileExtension = LCase(Mid(filePath, InStrRev(filePath, “.”) + 1))
‘ 2. 拡張子に応じて適切な PpSaveAsFileType 定数をマッピングする
Select Case fileExtension
Case “pptx”
saveFormat = ppSaveAsDefault 既定のプレゼンテーション (.pptx)
Case “ppt”
saveFormat = ppSaveAsPresentation 旧PowerPoint 97-2003形式 (.ppt)
Case “ppsx”
saveFormat = ppSaveAsShow PowerPoint スライドショー (.ppsx)
Case “potx”
saveFormat = ppSaveAsTemplate PowerPoint テンプレート (.potx)
Case “pdf”
saveFormat = ppSaveAsPDF PDFファイル (.pdf)
Case “xps”
saveFormat = ppSaveAsXPS XPSファイル (.xps)
Case “jpg”, “jpeg”
saveFormat = ppSaveAsJPG スライドのJPEG画像 (.jpg)
Case “png”
saveFormat = ppSaveAsPNG スライドのPNG画像 (.png)
Case Else
‘ 想定外の拡張子の場合は安全のため既定のpptxにフォールバック、またはエラーにする
‘ ここでは安全性を重視してデフォルト形式を指定
saveFormat = ppSaveAsDefault
MsgBox “警告: 未知の拡張子 [‘.” & fileExtension & “‘] が指定されたため、標準の.pptx形式で保存します。”, vbExclamation, “保存ラッパー”
End Select
‘ 3. 決定したフォーマットで安全に保存を実行
targetPres.SaveAs FileName:=filePath, FileFormat:=saveFormat
SavePresentationSmart = True
Exit Function
ErrorHandler:
‘ 予期せぬエラー（アクセス権限がない、ファイルが開かれている等）をキャッチ
MsgBox “保存中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “保存エラー”
SavePresentationSmart = False
End Function
—
3. コードのポイント解説：なぜこの実装が「堅牢」なのか？
プロのエンジニアが組んだコードには、必ず「安全に動かすための工夫」が散りばめられています。今回のコードの核心を3つのポイントで解説します。
① 拡張子の切り出しと `LCase` による揺れ防止
`InStrRev(filePath, “.”) + 1` を使うことで、ファイルパスの末尾にあるドット（`.`）の位置を探し、そこから後ろの文字列（拡張子）を正確に切り出しています。
さらに、人間が書くコードや入力値は気まぐれです。`”.PDF”` と大文字で書かれたり、`”.PpTx”` と混ざったりしても困らないように、`LCase` 関数で強制的に小文字に変換してから判定（`Select Case`）しています。これで「大文字・小文字の違いで動かない」という不毛なバグを防げます。
② `PpSaveAsFileType` の動的マッピング
PowerPointが用意している膨大な保存形式の中から、日常業務でよく使う主要なものを `Select Case` で網羅しました。
特に、PDF（`ppSaveAsPDF`）や画像（`ppSaveAsPNG`）への変換は、レポート作成や資料の共有で非常に需要が高い機能です。これらがパスを指定するだけで自動的に切り替わるのは、使っていて非常に気持ちが良いものです。
③ 鉄壁のエラーハンドリング (`On Error GoTo`)
ファイルシステムを扱う処理では、「保存先フォルダが存在しない」「別のユーザーが同じファイルを開いていてロックされている」「ディスクの空き容量がない」といった外部要因のエラーがつきものです。
関数内に `On Error GoTo ErrorHandler` を仕込んでおくことで、VBAがいきなり強制終了してユーザーをパニックにさせるのを防ぎ、親切なエラーメッセージを表示して `False` を返すスマートな設計にしています。
—
4. 実際に使ってみよう（呼び出しサンプル）
先ほど作成した汎用関数を、実際の業務マクロから呼び出すコードの例です。
Sub SampleUsage()
Dim targetPresentation As Presentation
Set targetPresentation = ActivePresentation
Dim savePath As String
‘ テストとしてデスクトップのPDFとして保存してみる
savePath = “C:\Users\YourUserName\Desktop\本日の会議資料.pdf”
‘ 汎用保存ラッパーを呼び出す
Dim isSuccess As Boolean
isSuccess = SavePresentationSmart(targetPresentation, savePath)
If isSuccess Then
MsgBox “保存が完了しました！”, vbInformation
End If
End Sub
変数 `savePath` の拡張子を `.pptx` に書き換えればパワポとして、`.png` に書き換えれば画像として、コードの中身を一切いじらずに自由自在に出力形式をコントロールできます。
—
おわりに
今回は、PowerPoint VBAにおける『保存』という極めて重要かつエラーの起きやすい処理を、美しく安全にカプセル化する「汎用保存ラッパー」の構築方法を解説しました。
こうした「地味だけど確実な土台（ラッパー関数）」をあらかじめ用意しておくことこそが、のちの巨大な自動化ツール開発において、バグの少ない強靭なシステムを生み出す秘訣です。
ここをクリアしたあなたなら、もうPowerPoint VBAの基本で躓くことはありません。ぜひ自分の開発環境にこのコードを組み込んで、快適な自動化ライフを送ってくださいね！
