こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだかよく分からないけれど動いた！」というフェーズを抜け出し、いよいよ自分の手で自動化の仕組みをコントロールしたい――そんな素晴らしい一歩を踏み出したあなたへ、このブログを贈ります。
今回取り組むテーマは、「デスクトップにあるすべてのPowerPointファイルを、開かずに直接PDFへ一括変換する」という超実用的なスクリプトです。
「手動で1つずつファイルを開いて、[名前を付けて保存]からPDFを選んで……」なんて作業、もう終わりにしましょう。ここをクリアすれば、PowerPoint VBAの基本はバッチリです。背伸びをする必要はありません。優しく、そして本質的なコツを押さえながら一緒に進めていきましょう！
—
なぜ「開かずに」変換するのか？（本質を知る）
初心者の方がやりがちなのが、「ファイルを `Workbooks.Open` や `Presentations.Open` で画面に表示させながら1つずつ処理していく」というアプローチです。
しかし、これには2つのデメリットがあります。
1. 画面がガチャガチャと点滅して遅い（人間が目視するレンダリングコストが無駄）
2. エラーダイアログやセキュリティ警告で止まってしまう
プロの現場では、「ファイルを背後（バックグラウンド）でこっそり開き、用事が済んだら秒速で閉じる（あるいは開いたことすら画面に見せない）」のが鉄則です。PowerPointの裏側にあるエンジンをダイレクトに叩くことで、驚くほど高速かつ安定した一括処理が可能になります。
—
使用する強力な武器：FileSystemObject と ExportAsFixedFormat
今回のスクリプトのキモとなるのは、以下の2つの要素です。
1. FileSystemObject (FSO)
Windowsのファイルやフォルダを自在に操るための標準的な仕組みです。「デスクトップというフォルダの中を覗き見して、`.pptx` で終わるファイルだけをピックアップして！」と司令塔に伝えてくれます。
2. ExportAsFixedFormat メソッド
Presentationオブジェクトが持つ、PDFやXPSなどの「固定形式」へ直接エクスポートする強力なメソッドです。余計なウィンドウ操作を挟まないため、非表示のまま安全に変換できます。
—
実装コード：デスクトップ一括PDF変換マクロ
以下のコードを、ExcelやPowerPointのVBAエディタ（Standard Module）に貼り付けてください。今回はどこから実行しても分かりやすいように、ExcelのVBAからPowerPointを操作するスタイルで記述しています（※もちろんPowerPoint単体のマクロとしても応用可能です）。
Sub ConvertDesktopPowerPointToPDF()
Dim fso As Object
Dim desktopPath As String
Dim targetFolder As Object
Dim file As Object
Dim pptApp As Object
Dim pptPres As Object
Dim convertedCount As Long
‘ 1. 進捗カウンターの初期化
convertedCount = 0
‘ 2. FileSystemObjectの生成（ファイル・フォルダ操作の万能ツール）
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 3. デスクトップのパスを自動取得
desktopPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”)
Set targetFolder = fso.GetFolder(desktopPath)
‘ 4. PowerPointのバックグラウンド実行インスタンスを起動
‘ （画面を表示させずに裏でこっそり動かします）
Set pptApp = CreateObject(“PowerPoint.Application”)
‘ 5. デスクトップ内のすべてのファイルを総点検
For Each file In targetFolder.Files
‘ 拡張子が「.pptx」または「.ppt」のファイルだけをターゲットにする
If LCase(fso.GetExtensionName(file.Name)) = “pptx” Or _
LCase(fso.GetExtensionName(file.Name)) = “ppt” Then
‘ 【重要】ファイルを画面に表示させない（msoFalse）状態で裏で開く
‘ 第2引数: ReadOnly:=msoTrue (安全のため読み取り専用)
‘ 第3引数: WithWindow:=msoFalse (ウィンドウを表示しない＝これが高速化の秘訣！)
Set pptPres = pptApp.Presentations.Open( _
Filename:=file.Path, _
ReadOnly:=msoTrue, _
WithWindow:=msoFalse)
‘ 保存先のファイルパスを作成（例: sample.pptx -> sample.pdf）
Dim pdfPath As String
pdfPath = desktopPath & “\” & fso.GetBaseName(file.Name) & “.pdf”
‘ PDFとしてエクスポート実行
‘ ppFixedFormatTypePDF = 2 (PDF形式を指定)
pptPres.ExportAsFixedFormat _
Path:=pdfPath, _
FixedFormatType:=2, _
Intent:=1 ‘ ppFixedFormatIntentPrint (印刷品質)
‘ 開いたプレゼンテーションをメモリから解放（閉じる）
pptPres.Close
‘ カウントアップ
convertedCount = convertedCount + 1
End If
Next file
‘ 6. 後片付け（PowerPointアプリを終了し、メモリをクリーンに）
pptApp.Quit
Set pptPres = Nothing
Set pptApp = Nothing
Set fso = Nothing
‘ 完了メッセージ
MsgBox “処理が完了しました！” & vbCrLf & _
“変換されたPDFの数: ” & convertedCount & “件”, vbInformation, “一括変換完了”
End Sub
—
コードのポイント解説（ここが分かれば怖くない！）
① 画面を出さない魔法：`WithWindow:=msoFalse`
コード内の `Presentations.Open` メソッドに注目してください。`WithWindow:=msoFalse` という引数を渡しています。これが、今回最も伝えたかった「ファイルを開かずに（画面を見せずに）」を実現している心臓部です。人間が目視するGUIの描画処理を完全にカットするため、処理速度が劇的に向上します。
② 大文字・小文字の罠を防ぐ `LCase`
ファイル名の拡張子を判定する際、`file.Name` が `.PPTX` と大文字で書かれている場合があります。プログラムは厳密に文字を区別するため、`LCase()` 関数を使って強制的に小文字に変換してから比較することで、「ファイルがあるのに見つからない！」という初心者特有のミスを防いでいます。
③ 確実なメモリ解放（後片付け）
VBAで外部アプリケーション（`CreateObject(“PowerPoint.Application”)`）を呼び出したときは、使い終わったら必ず `.Quit` し、変数を `Nothing` でクリアするのがエンジニアの美学です。これをサボると、見えないところでPowerPointのプロセスが裏で生き続け、パソコンの動作が重くなる原因（メモリリーク）になります。コードの最後の後片付けブロックは、おまじないではなく必須の作法です。
—
初心者が陥りやすいエラーと対策
- エラー「ファイルが見つかりません」が出る
→ デスクトップ以外の場所にあるファイルや、すでに他のアプリ（PowerPoint本体など）でそのファイルが開かれてロックされている場合に発生します。まずはデスクトップ上の閉じられたファイル単体でテストしましょう。
- セキュリティの警告が出る
→ ファイル内に実行型マクロ（.ppm等）が含まれている場合、PowerPointのセキュリティ設定によっては裏で開いた際にダイアログで止まってしまいます。一括変換するファイルは「純粋なスライドデータ（.pptx）」に絞るのが安全です。
—
おわりに
お疲れ様でした！このスクリプトをマスターすれば、何十個とあるPowerPoint資料のPDF化も、コーヒーを一口飲んでいる間に一瞬で終わらせることができます。
「ただ動くコード」から、「仕組みを理解してコントロールできるコード」へ。
この小さな成功体験が、あなたの業務を劇的に変える自動化の第一歩になります。
明日からのオフィスワークを、もっとスマートに、もっとクリエイティブにしていきましょう！それでは、次の極限知見でお会いしましょう。
