こんにちは！マクロの記録から一歩踏み出し、ご自身の自動化の武器を広げようとしているんですね。素晴らしい挑戦です。
PowerPoint VBAの世界へようこそ。私はこれまで数々のプレゼンテーション自動化システムを構築してきましたが、そのすべての基本であり、最も重要な土台となるのが「フォルダ内のファイルを順番に開いて閉じるループ処理」です。
「100個あるファイルのタイトルを一括で書き換えたい」
「全ファイルのレイアウトを統一したい」
そんな業務改善の野望を叶えるための第一歩として、今回はフォルダの中身を自動で巡回するマジックコードを一緒に作っていきましょう。ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ！
—
1. なぜ「ファイル一括処理」でつまずくのか？
初心者の多くが、まずExcel VBAからVBAの世界に入ります。Excelの場合、`Workbooks.Open` でファイルを開き、処理して、`Close` するという流れが比較的直感的です。
しかし、PowerPointの世界には、Excelとは少し違う「オブジェクトの重み」と「独特の作法」があります。
特に、フォルダの中を覗き見してファイル名を取り出す `Dir` 関数の挙動や、PowerPointの裏側で動くアプリケーションの制御を理解していないと、以下のような壁にぶつかります。
- 「ファイルが次々に見つからなくて無限ループになった…」
- 「開いたはいいけど、閉じ忘れてメモリがパンクした…」
- 「エラーが出たときにPowerPointが裏で立ち上がりっぱなしになった…」
これらの恐怖を克服するために、プロのエンジニアが現場で使っている「安全で確実なテンプレート」を授けましょう。
—
2. 全体像：フォルダ巡回ループの設計図
今回作成するマクロの動きは、次のようなシンプルなステップです。
1. 対象フォルダを指定する
2. フォルダの中にあるPowerPointファイル（`.pptx`）を1つ探す
3. ファイルを開く
4. （ここで何らかの処理をする）
5. ファイルを保存せずに、または保存して閉じる
6. 次のファイルがあれば、3に戻る（なければ終了）
これをVBAで実現するための最もスマートな書き方がこちらです。
—
3. 実装コード：そのまま使える基本のテンプレート
以下のコードを、ご自身のVBAエディタ（標準モジュール）に貼り付けてみてください。
Sub LoopThroughPowerPointFiles()
‘ =====================================================================
‘ 目的: 指定フォルダ内のすべてのPowerPointファイルを順次開いて閉じる
‘ 著者: 頼れる先輩エンジニア
‘ =====================================================================
Dim targetFolder As String
Dim fileName As String
Dim targetPresen As Presentation
‘ 【重要】パスの末尾には必ず「\（バックスラッシュ）」を付けてください
‘ ご自身の環境に合わせてフォルダパス書き換えてください（例: “C:\Presentations\2023\”）
targetFolder = “C:\Your\Target\Folder\Path\”
‘ フォルダが存在するか簡易チェック
If Dir(targetFolder, vbDirectory) = “” Then
MsgBox “指定されたフォルダが存在しません。” & vbCrLf & targetFolder, vbCritical, “パスエラー”
Exit Sub
End If
‘ —————————————————————–
‘ 1. Dir関数によるファイルの初回取得
‘ —————————————————————–
‘ 第2引数に vbNormal を指定することで、通常のファイルを対象にします
fileName = Dir(targetFolder & “.pptx”, vbNormal)
‘ フォルダ内に対象ファイルが1つもない場合のガード処理
If fileName = “” Then
MsgBox “指定されたフォルダに .pptx ファイルが見つかりません。”, vbExclamation, “ファイルなし”
Exit Sub
End If
‘ —————————————————————–
‘ 2. ループ処理の開始
‘ —————————————————————–
Do While fileName <> “”
‘ 画面のチラつき（画面描画）を抑えて処理速度を爆発的に上げるおまじない
Application.ScreenUpdating = False
‘ フルパスを生成してファイルを開く
‘ ※ ReadOnly:=msoTrue にすると、うっかり上書き保存する事故を防げます
Set targetPresen = Presentations.Open(fileName:=targetFolder & fileName, _
ReadOnly:=msoTrue)
‘ —【ここに実際の処理を書きます】—————————–
‘ 例として、開いたファイルのファイル名をイミディエイトウィンドウに出力
Debug.Print “処理中: ” & targetPresen.Name
‘ ————————————————————-
‘ ファイルを閉じる（今回は読み取り専用なので保存せずに閉じる）
targetPresen.Close
‘ 画面描画を元に戻す
Application.ScreenUpdating = True
‘ —————————————————————–
‘ 3. 次のファイルの取得（超重要！）
‘ —————————————————————–
‘ 引数なしで Dir を呼ぶと、同じフォルダ内の「次のファイル」を返します
fileName = Dir()
Loop
‘ 完了メッセージ
MsgBox “すべてのファイルの走査が完了しました！”, vbInformation, “処理終了”
End Sub
—
4. コードの深掘り解説：ここがエンジニアのこだわりポイント
初心者のうちに絶対におさえておいてほしいポイントを3つ解説します。
① `Dir` 関数の特殊な挙動に注意する
`Dir` 関数は、最初だけ `Dir(“パス\.pptx”)` のように検索条件を指定しますが、2回目以降は引数なしで `Dir()` と書くという特殊なルールがあります。
これを忘れて `Dir(targetFolder & “.pptx”)` とループ内で何度も書き直してしまうと、最初のファイルを永遠に読み続ける「無限地獄（無限ループ）」に陥ります。必ずセットで覚えておきましょう。
② `ReadOnly:=msoTrue` で「うっかり上書き」を防ぐ
一括処理のテスト段階で一番怖いのは、マクロのバグによって大切なプレゼン資料がぐちゃぐちゃになり、そのまま上書き保存されてしまうことです。
`Presentations.Open` の引数に `ReadOnly:=msoTrue` を指定することで、安全に「読むだけ」の状態にしてファイルを開くことができます。実務では必須のテクニックです。
③ オブジェクト変数を適切に解放（閉じる）する
PowerPoint VBAでは、ファイルを開くと `Presentation` というオブジェクトがメモリ上に生成されます。これを `targetPresen.Close` で明示的に閉じないと、メモリリーク（メモリの無駄遣い）を引き起こし、パソコン全体の動作が重くなる原因になります。
—
5. 初心者がハマりがちな罠とエラー対策
トラブルシューティング：ファイルが見つからないエラーが出る
- 原因の多くは「パスの書き間違い」や「末尾の `\` 抜け」です。
Windowsのパスは `C:\Folder` のように指定しますが、コード内では `C:\Folder\` と最後に必ず円マーク（バックスラッシュ）を入れてください。これが抜けると `C:\Folderfilename.pptx` のようになってしまい、ファイルが見つかりません。
—
おわりに
お疲れ様でした！このコードをご自身の環境に貼り付けて実行するだけで、指定したフォルダの中にあるPowerPointたちが、まるで意志を持っているかのように次々と開いては閉じていく様子を確認できたはずです。
この「フォルダを巡回する枠組み（ループ）」さえ手に入れば、あとは `Do While` の中身（処理部分）を書き換えるだけで、どんな巨大なルーティンワークもボタン一つで終わらせる最強のツールへと進化させることができます。
ここをクリアしたあなたなら、もう立派なVBAエンジニアの仲間入りです。ぜひ、日々の業務の自動化に挑戦してみてくださいね！
