こんにちは！PowerPoint VBAの世界へようこそ。
「スライドが100枚もある資料の、奇数ページだけ背景色を変えたい……」
「特定のセクションに入っているスライドだけ、一瞬でテーマを適用し直したい……」
こうした処理を作るとき、多くの人は「`For` ループを使って、1枚ずつスライドをめくりながら処理する」というコードを思い浮かべるのではないでしょうか。
もちろんそれも正解です。しかし、スライドの枚数が増えれば増えるほど、処理は目に見えて遅くなっていきます。画面がチカチカと揺れ、マクロの実行完了をじっと待つ時間は、決して気持ちの良いものではありませんよね。
そこで今回は、ループ処理から一歩脱却し、PowerPoint VBAのポテンシャルを最大限に引き出す「`Slides.Range`」を活用した高速一括処理について優しく解説します。
ここをマスターすれば、PowerPoint VBAの基本オブジェクトモデルの理解が一気に深まり、実務で「動く、しかも圧倒的に速いマクロ」が書けるようになりますよ。さあ、一緒に一歩先へ進みましょう！
—
1. なぜループ処理は遅いのか？「1枚ずつ」と「一括」の違い
まずは、私たちがよく書いてしまいがちな「ループ処理」と、今回ご紹介する「`Slides.Range`」の違いをイメージで理解してみましょう。
【1枚ずつループ処理する場合】
[スライド1] にアクセス ➔ 背景を変える ➔ [スライド2] にアクセス ➔ 背景を変える… (これを100回繰り返す)
【Slides.Range で一括処理する場合】
[スライド1, 3, 5, …] をまとめて「ひとつのグループ」にする ➔ グループに対して一撃で背景を変える！
PowerPoint VBAにおいて、スライド（`Slide` オブジェクト）にアクセスして操作する処理は、実はコンピューターにとって「お重い（コストが高い）処理」です。ループで100回アクセスすれば、100回分の通信オーバーヘッドと画面描画が発生します。
一方で、`Slides.Range` を使うと、指定した複数のスライドをひとまとめにした`SlideRange`（スライド範囲）オブジェクトを生成できます。このオブジェクトに対して命令を1回送るだけで、PowerPointは内部で最適化された一括処理を実行してくれます。
画面のチラつきも抑えられ、コードもすっきりと美しくなる。これが、`Slides.Range` を使うべき理由です。
—
2. `Slides.Range` の基本構造を理解しよう
`Slides.Range` の使い方は、実はとてもシンプルです。
基本的には、操作したいスライドの「インデックス番号（何枚目か）」を配列（Array）にして渡してあげます。
‘ 1枚目、3枚目、5枚目のスライドをまとめて指定する
Dim targetRange As SlideRange
Set targetRange = ActivePresentation.Slides.Range(Array(1, 3, 5))
このように、`Array(1, 3, 5)` という配列を `Slides.Range` の引数に渡すだけで、3枚のスライドを内包した「特別な1つのカタマリ（`SlideRange`）」が手に入ります。
あとは、この `targetRange` に対して、1行命令を書くだけで一括処理が完了します。
—
3. 【実践コード1】奇数ページだけを一括でデザイン変更する
それでは、具体的なコードを見ていきましょう。
まずは「奇数ページ（1, 3, 5…枚目）だけ」を自動で判定して配列に格納し、一括で背景色を薄いグレーに変更するマクロです。
Sub ApplyBackgroundToOddSlides()
Dim pptPres As Presentation
Set pptPres = ActivePresentation
Dim totalSlides As Long
totalSlides = pptPres.Slides.Count
‘ スライドが1枚もない場合は処理を抜ける
If totalSlides = 0 Then Exit Sub
‘ 奇数ページのインデックスを格納する動的配列を準備
Dim oddIndices() As Variant
Dim count As Long
count = 0
‘ 1から始まるスライドをループし、奇数ページだけを配列に記録
Dim i As Long
For i = 1 To totalSlides
If i Mod 2 <> 0 Then ‘ 奇数判定
ReDim Preserve oddIndices(count)
oddIndices(count) = i
count = count + 1
End If
Next i
‘ — ここが魔法の1ワンショット処理！ —
‘ 奇数スライドのRangeオブジェクトを取得
Dim targetRange As SlideRange
Set targetRange = pptPres.Slides.Range(oddIndices)
‘ 一括で背景をソリッドな薄いグレー（RGB: 245, 245, 245）に変更
With targetRange.Background.Fill
.Solid
.ForeColor.RGB = RGB(245, 245, 245)
End With
MsgBox “奇数スライドの背景を一括変更しました！”, vbInformation, “処理完了”
End Sub
コードの解説
1. `ReDim Preserve` で配列を動的に拡張:
奇数スライドが何枚あるかを事前に決め打ちせず、見つかるたびに配列のサイズを拡張してインデックスを格納しています。
2. `Slides.Range(oddIndices)`:
集めた奇数ページのインデックス配列をそのまま放り込んでいます。
3. `With targetRange.Background.Fill`:
ループの中で何度も背景を設定するのではなく、`targetRange` に対して一度だけ設定を行っています。裏側でPowerPointが一気に描画処理を行うため、非常に高速です。
—
4. 【実践コード2】特定のセクション内のスライドを一括操作する
PowerPoint 2010以降で導入された「セクション」機能。スライドをグループ分けするのにとても便利ですよね。
次は、「”重要セクション” という名前のセクションに含まれるスライドだけ」を `Slides.Range` で一括取得し、レイアウトを強制的に変更するプロレベルのテクニックです。
Sub ApplyLayoutToSpecificSection()
Dim pptPres As Presentation
Set pptPres = ActivePresentation
Dim targetSectionName As String
targetSectionName = “重要セクション” ‘ 対象にしたいセクション名
Dim sectionIndex As Long
sectionIndex = -1
‘ 1. 指定されたセクションが存在するか確認
Dim i As Long
With pptPres.SectionProperties
For i = 1 To .Count
If .Name(i) = targetSectionName Then
sectionIndex = i
Exit For
End If
Next i
End With
If sectionIndex = -1 Then
MsgBox “セクション「” & targetSectionName & “」が見つかりません。”, vbExclamation, “エラー”
Exit Sub
End If
‘ 2. そのセクションに含まれるスライドの開始インデックスと枚数を取得
Dim startIdx As Long
Dim slideCount As Long
With pptPres.SectionProperties
startIdx = .FirstSlideIndex(sectionIndex)
slideCount = .SlidesCount(sectionIndex)
End With
If slideCount = 0 Then
MsgBox “セクション内にスライドが存在しません。”, vbInformation, “お知らせ”
Exit Sub
End If
‘ 3. セクション内のスライドインデックスを配列に格納
Dim sectionIndices() As Variant
ReDim sectionIndices(slideCount – 1)
For i = 0 To slideCount – 1
sectionIndices(i) = startIdx + i
Next i
‘ 4. 一括でスライド範囲を取得し、レイアウトを変更
Dim targetRange As SlideRange
Set targetRange = pptPres.Slides.Range(sectionIndices)
‘ 例：一括で「タイトルとコンテンツ（ppLayoutText）」のレイアウトを適用
targetRange.Layout = ppLayoutText
MsgBox “「” & targetSectionName & “」内のスライドを一括で更新しました！”, vbInformation, “処理完了”
End Sub
コードの解説
- PowerPointの `SectionProperties` オブジェクトから、指定セクションの「最初のスライドの番号（`FirstSlideIndex`）」と「そこに含まれるスライドの総数（`SlidesCount`）」を取得しています。
- 取得した連続するインデックスを配列 `sectionIndices` に詰め込み、`Slides.Range` で一括操作しています。
- これにより、スライドが何十枚あっても、一瞬で指定のレイアウト（ここでは `ppLayoutText`）に統一することができます。
—
5. 陥りやすい罠と解決へのアプローチ
`Slides.Range` は非常に強力ですが、初めて使う方が引っかかりやすいポイントがいくつかあります。事前に知っておけば、デバッグで悩む時間を大幅に減らせますよ。
① 配列のデータ型は `Variant` にする
`Slides.Range` に渡す配列は、要素の型を `Variant` にしておくのが最も安全です。
`Long` 型や `Integer` 型の配列をそのまま渡そうとすると、VBAの仕様上、「型が一致しません」というエラー（実行時エラー13）を吐き出すことがあります。配列を定義する際は、以下のように宣言しましょう。
‘ 良い例
Dim indices() As Variant
‘ エラーになりやすい例
Dim indices() As Long
② 一括操作できないプロパティもある
`SlideRange` は万能ですが、「すべてのスライドで値が共通している必要のあるプロパティ」や「一括変更がサポートされていない深い階層のプロパティ」に対して操作を行うと、エラーになるか、何も起きないことがあります。
もし「一括でプロパティを変更しようとしてエラーになる」場合は、そのプロパティが `SlideRange` レベルでサポートされているか確認し、どうしてもダメな場合のみループ処理に切り替える、というアプローチを採りましょう。
—
まとめ：ここをクリアすれば、PowerPoint VBAの基本はバッチリです！
お疲れ様でした！
今回は、ループ処理の限界を突破する `Presentation.Slides.Range` の活用法について解説しました。
- ループ処理：直感的だけど、枚数が多いと遅くなる。
- `Slides.Range`：特定のスライド群を「配列」で指定して、一撃で処理を適用できるため超高速。
スライドを「1枚の紙」として個別に見るのではなく、「複数のスライドを束ねたRange（範囲）」として捉える視点が持てると、PowerPoint VBAの設計能力は劇的に向上します。
この考え方は、スライドだけでなく、スライド内の複数の図形（`Shapes.Range`）を操作するときにも全く同じように応用できます。
ぜひ今回のコードをあなたの手元で動かしてみて、その圧倒的なスピードを体感してみてください。あなたの定時退社と、よりスマートな開発ライフを応援しています！
