こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、自分の手でプレゼンテーションを自在にコントロールしようとしているあなたを、私は心から歓迎します。
さて、今回はPowerPoint VBAの基礎でありながら、多くの初学者が最初にハマる「見えない落とし穴」についてお話しします。
ここをクリアすれば、あなたも「ただコードを動かす人」から「オブジェクトモデルを理解したエンジニア」への大きな一歩を踏み出せますよ。温かく分かりやすく解説していきますので、リラックスしてついてきてくださいね。
—
1. なぜ「インデックス番号のループ」は危険なのか？
PowerPointを立ち上げていると、複数のファイル（プレゼンテーション）を同時に開くことがありますよね。VBAの世界では、開かれているすべてのプレゼンテーションは `Application.Presentations` という「コレクション（集合体）」で管理されています。
このコレクションの中身を順番に処理するとき、私たちはついつい次のようなコードを書いてしまいがちです。
‘ 【やってはいけないアンチパターン】
Dim i As Long
For i = 1 To Presentations.Count
‘ 開いているプレゼンテーションを順番に閉じる処理（例）
Presentations(i).Close
Next i
一見、何の問題もなさそうに見えますよね？「1番目を閉じる、2番目を閉じる……」完璧です。
しかし、これを実行すると、途中で「実行時エラー」が発生するか、意図しないファイルがスルーされてしまいます。
なぜでしょうか？
それは、プレゼンテーションを閉じたり開いたりするたびに、コレクション内の「インデックス番号（何番目か）」がリアルタイムで詰め直されるからです。
図解：インデックスの雪崩現象
1. 最初、ファイルA（番号1）とファイルB（番号2）が開いています。 (`Count = 2`)
2. ループの1回目：`Presentations(1)` （ファイルA）を閉じます。
3. 【ここで事件発生】 ファイルAが消えた瞬間、それまで番号2だったファイルBが、繰り上げられて番号1になります。
4. ループの2回目：インデックスは `2` に進みますが、現在開いているファイルは1つだけなので、`Presentations(2)` は「そんな番号のファイルはありません！」というエラー（インデックスが範囲外です）を吐いてマクロが強制終了します。
これが、PowerPoint VBA初学者が必ず直面する「インデックスズレの罠」です。
—
2. 解決策：インデックス番号ではなく「名前（Name）」や「フルパス」で特定する
では、どうすれば安全に目的のファイルを操作できるのでしょうか？
答えはシンプルです。「何番目か」という曖昧な数字で指定するのではなく、「ファイルの名前」や「フルパス」という揺るぎないアイデンティティで特定することです。
ここで登場するのが、`For Each` ステートメントです。これを使えば、インデックス番号を意識せずに、コレクション内のオブジェクトを安全にひとつずつ取り出すことができます。
実用コード：名前で安全に特定して処理する
以下のコードは、現在開いているプレゼンテーションの中に、特定の名前を持つファイルがあるかを探し、見つかったらメッセージを出して閉じる安全なサンプルです。
Sub FindAndCloseSpecificPresentation()
Dim prs As Presentation
Dim targetName As String
Dim isFound As Boolean
‘ 探したいプレゼンテーションのファイル名を設定
targetName = “月次報告会.pptx”
isFound = False
シ
‘ 【重要】For Each 文ならインデックスのズレを気にする必要がありません！
For Each prs In Application.Presentations
‘ ファイル名が一致するかチェック
If prs.Name = targetName Then
isFound = True
MsgBox “「” & targetName & “」を発見しました。処理を実行します。”, vbInformation
‘ 必要であればここで保存や編集を行う
‘ prs.Save
‘ 安全に閉じる
prs.Close
‘ 見つかったのでループを抜ける
Exit For
End If
Next prs
‘ 見つからなかった場合の処理
If isFound = False Then
MsgBox “指定されたファイル「” & targetName & “」は開かれていません。”, vbExclamation
End If
End Sub
このコードの美しいポイント
1. `For Each prs In Application.Presentations`
番号を数える必要がなく、VBAがよしなに次のオブジェクトへと案内してくれます。インデックスがズレる隙を与えません。
2. `prs.Name` による厳密なチェック
人間が目視で確認するのと同じように、「名前」で判断するため、ファイルの順番がどう入れ替わろうとも誤認しません。
3. `Exit For` による無駄な処理の排除
目的のファイルを見つけたら、それ以降のループを回す必要はないため、スパッと処理を抜けています。これがパフォーマンス向上（プロの技）につながります。
—
3. さらに安全性を高める：フルパスでの比較
もし、同じ名前（例：「プレゼンテーション1.pptx」など）のファイルが、異なるフォルダに偶然同時に開かれている可能性がある場合は、`Name` ではなく、ドライブ名から始まる `FullName` プロパティを使いましょう。
‘ フォルダの場所も含めて完全に特定したい場合
If prs.FullName = “C:\Users\Yamada\Documents\2023\月次報告会.pptx” Then
‘ 処理…
End If
これにより、同名のファイルを取り違えるというヒューマンエラーを完全に封じ込めることができます。
—
まとめ：ここをクリアすれば、もう怖くない！
今回は、PowerPoint VBAにおけるコレクション操作の最大の罠「インデックスのズレ」と、その回避策について解説しました。
- NGパターン：`For i = 1 To Count` で回しながら閉じる（インデックスが崩壊してエラーになる）
- 正解パターン：`For Each` を使い、`Name` や `FullName` でオブジェクトを特定して操作する
ここをクリアできたあなたは、単なる「コードのコピペ職人」ではなく、オブジェクトのライフサイクルを理解した優れたVBAプログラマの仲間入りです。
実務の現場では、複数の資料を一括変換したり、特定のファイルを自動で閉じたりするマクロを作る機会が多々あります。ぜひ今回の知見をあなたの武器にして、日々の業務を圧倒的に効率化させてくださいね。
それでは、次回の応用編でお会いしましょう！バッチリ使いこなしてくださいね。
