【PowerPoint VBA】地獄のループを回避せよ！特定フォルダ内のPPTXファイルを安全に一括処理する極限の設計手法
業務で数十個、あるいは数百個のPowerPointファイルを処理しなければならない絶望感を味わったことはないか？
「朝に出社したら、フォルダ内の全資料のフッターを書き換えておいてほしい」
「全ファイルのレイアウトを統一してくれ」
こんな無理難題を突きつけられたとき、手作業でファイルを1つずつ開き、修正して保存し、閉じる……なんて愚行を繰り返してはならない。我々はエンジニアだ。VBAにループを組ませて一網打尽にすればいい。
しかし、初心者がやりがちな「とりあえず動くコード」は、実務の現場では爆弾となる。ファイルがロックされた、メモリがリークしてExcel/PowerPointがフリーズした、存在しない隠しファイルを読み込んでエラーで止まった――。
今回は、数千ファイルのバッチ処理をも耐え抜く、堅牢性（ロバストネス）の極みに達したファイル走査ループの設計と実装を伝授する。
—
なぜ「ただ開いて閉じるだけのコード」では現場で破綻するのか？
多くの入門サイトでは、`Dir`関数を使ったループとして次のようなコードが紹介されている。
‘ 【反面教師となる危険なコード】
Sub BadLoop()
Dim FileName As String
FileName = Dir(“C:\MyFolder\.pptx”)
Do While FileName <> “”
Workbooks.Open “C:\MyFolder\” & FileName ‘ 待て、PowerPointにWorkbooksはない！
‘ 処理…
FileName = Dir()
Loop
End Sub
これの何が問題か？
1. オブジェクトモデルの混同: Excelの作法（`Workbooks`）が混ざっており、そもそもPowerPointでは動かない。
2. エラーハンドリングの欠如: 読み込み権限がないファイルや、パスワード保護されたファイルに当たった瞬間、コードは無慈悲に停止する。
3. 画面描画・アラートの嵐: ファイルを開くたびにウィンドウがパカパカ開き、セキュリティ警告のダイアログで処理がストップする。
プロのエンジニアが書くべきコードは、「無音・無人（ヘッドレス）」で動き、例外処理が完璧に組み込まれたものでなければならない。
—
堅牢なファイルループ設計の3大原則
実務で通用する自動化ツールを作るためには、以下の3つを必ず死守せよ。
1. 画面更新とアラートの完全停止 (`ScreenUpdating` / `DisplayAlerts`の罠)
PowerPointのVBAにはExcelのような`Application.ScreenUpdating`が存在しない。そのため、ウィンドウを非表示にする、あるいは最小化するなどして、無駄な描画コストを削るアプローチが必要となる。また、リンク切れや更新確認のダイアログを抑制する設定が不可欠だ。
2. フルパスの確実な管理
`Dir`関数はファイル名しか返さない。フォルダパスと結合する際、バックスラッシュ（`\`）の抜け漏れによるパス解決エラーを防ぐ関数設計にする。
3. 適切なオブジェクトの解放（GCの意識）
PowerPointのプレゼンテーションオブジェクトをループ内で開閉する際、参照を適切に解放しないと、COMコンテナのメモリリークを引き起こし、PCがハングアップする。
—
【コピペ推奨】実務仕様のプロダクションコード
それでは、特定フォルダ内のすべてのPowerPointファイルを安全に順次開き、何らかの処理（ここではログ出力）を行って閉じる、完成されたモジュールを提示する。
自身の開発環境（Personal.xlsbや、管理用のアクティブなプレゼンテーション）に標準モジュールを追加し、以下のコードを貼り付けてほしい。
Option Explicit
‘================================================================================
ニッチな仕様も完璧にこなす：特定フォルダ内PPTX一括処理テンプレート
================================================================================
Sub BatchProcessPowerPointFiles()
Dim targetFolderPath As String
Dim fileName As String
Dim targetFileFullPath As String
Dim targetPres As Presentation
Dim fso As Object
Dim fileCount As Long
Dim startTime As Double
‘ 処理開始時間の記録（パフォーマンス計測用）
startTime = Timer
fileCount = 0
‘ — 1. 処理対象フォルダの指定（末尾のバックスラッシュに注意）—
targetFolderPath = “C:\Your\Target\Folder\Path\” ‘ ← 実際のパスに変更してください
‘ フォルダの存在チェック（FileSystemObjectを使用）
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(targetFolderPath) Then
MsgBox “指定されたフォルダが存在しません：” & vbCrLf & targetFolderPath, vbCritical, “パスエラー”
Exit Sub
End If
‘ — 2. Dir関数によるファイル走査の初期化 —
‘ 拡張子が .pptx のファイルをターゲットにする (.ppt や .pptm も含める場合は “.ppt”)
fileName = Dir(targetFolderPath & “.pptx”)
‘ 該当ファイルが1つもない場合のガード
If fileName = “” Then
MsgBox “対象フォルダにPPTXファイルが見つかりませんでした。”, vbExclamation, “通知”
Exit Sub
End If
‘ アラートや不要な処理を抑制するための設定
On Error GoTo ErrorHandler
‘ — 3. メインループ開始 —
Do While fileName <> “”
targetFileFullPath = targetFolderPath & fileName
‘ 【重要】一時ファイル（~$で始まる編集中ファイル）はスキップする
If Left(fileName, 2) <> “~$” Then
‘ プレゼンテーションを開く
‘ ReadOnly:=False (必要に応じてTrueに変更), WithWindow:=msoFalse (ウィンドウ非表示で開くことで高速化)
Set targetPres = Application.Presentations.Open( _
FileName:=targetFileFullPath, _
ReadOnly:=msoFalse, _
Untitled:=msoFalse, _
WithWindow:=msoTrue ‘ ウィンドウを見せたくない場合は msoFalse に変更
)
fileCount = fileCount + 1
‘—————————————————-
‘ ここに各ファイルに対する実務処理を記述する
‘ 例：スライド数を出力するイミディエイトログ
Debug.Print “[” & fileCount & “] 処理中: ” & fileName & ” (スライド数: ” & targetPres.Slides.Count & “)”
‘ 例：変更を加えて保存する場合
‘ targetPres.Save
‘—————————————————-
‘ プレゼンテーションを閉じる（保存確認を出さずに閉じる場合は SaveChanges:=msoFalse等を使用）
targetPres.Close
‘ オブジェクト変数を確実に解放
Set targetPres = Nothing
End If
‘ 次のファイルを取得
fileName = Dir()
Loop
‘ 終了処理
MsgBox “一括処理が完了しました！” & vbCrLf & _
“処理ファイル数: ” & fileCount & “件” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & “秒”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合の安全装置
MsgBox “エラーが発生しました。” & vbCrLf & _
“ファイル名: ” & fileName & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “致命的エラー”
‘ エラー時でもオブジェクトが残っていれば閉じる
If Not targetPres Is Nothing Then
On Error Resume Next
targetPres.Close
Set targetPres = Nothing
On Error GoTo 0
End If
End Sub
—
チーフアーキテクトが教える、コードの急所とチューニングの極意
上記のコードには、現場で生き残るための「こだわり」が細部にまで詰め込まれている。
1. 一時ファイル (`~$`) の排除ロジック
WindowsでPowerPointファイルを開いている最中、同じフォルダ内に `~$hoge.pptx` という隠しファイルが自動生成される。`Dir(“.pptx”)` は運が悪いとこの一時ファイルをも拾ってしまい、`Presentations.Open` で「ファイルが見つかりません」または「別のユーザーによってロックされています」という致命的なエラーを引き起こす。
`If Left(fileName, 2) <> “~$” Then` というフィルタリングは、実務の現場では絶対不可欠な防壁である。
2. ウィンドウ制御による爆速化 (`WithWindow:=msoFalse`)
もしファイルを開いて「中身のテキストを置換するだけ」「プロパティを書き換えるだけ」といった、ユーザーに見せる必要がない作業であれば、`WithWindow:=msoFalse` を指定してバックグラウンド（メモリ上のみ）で開くべきだ。
画面の描き直し（レンダリング）が発生しないため、処理スピードが何倍にも跳ね上がる。
3. イレギュラーを想定したエラーハンドリングとメモリ管理
巨大なPowerPointファイルを何百個もループさせると、VBAのメモリ管理は一気にシビアになる。
ループの各イテレーションの最後で `Set targetPres = Nothing` を明示し、さらに `ErrorHandler` 内でも確実にクローズ処理を入れることで、COMオブジェクトの残骸がメモリ上に居座る「メモリリーク」を完全に封じ込めている。
—
まとめ：自動化の土台を手に入れたあなたへ
今回解説した「Dir関数による安全なファイルループ処理」は、単なる一つのテクニックではない。
今後あなたが、PDF一括変換、スライドマスターの強制一新、全社フォーマットの自動チェックツールといった、あらゆるPowerPoint自動化ツールを構築する際の最強の土台（骨組み）となる。
手作業という泥臭い労働から脱却し、エレガントで堅牢なコードで業務を支配せよ。次回のさらなる高度なAPI活用術に期待していてほしい。
