こんにちは！PowerPoint VBAの世界へようこそ。
これまで「マクロの記録」ボタンを押して生成されたコードを眺めては、「なんだかよく分からないけれど動くからいいか…」と放置していませんか？
今回は、プレゼンテーションのクオリティを左右する「スライドの切り替え効果（トランジション）」と「自動送りタイミング」の制御をテーマに取って上げます。
「全スライドの切り替えを『フェード』にして、画面切り替えのスピードを統一し、さらに5秒ごとに自動でめくれるようにしたい」
これを手動で1枚ずつ設定していたら、スライドが50枚あるだけで気が遠くなりますよね。
大丈夫。ここをクリアすれば、あなたもPowerPoint VBAの基本構造（オブジェクトモデル）を完全に手中に収め、手作業地獄から永遠に解放されます。温かく、かつ本質的なアプローチで一緒にマスターしていきましょう！
—
1. PowerPoint VBAの「骨組み」を知る（オブジェクトモデルの正体）
PowerPointのVBAを操る上で、まず頭に叩い込んでおくべき「王様の家系図（オブジェクト階層）」があります。これが分かると、VBAのコードが魔法の呪文ではなく「明確な道案内」に見えてきます。
Application （PowerPointアプリ全体）
└ Presentation （開いているファイル）
└ Slides （スライドたちのコレクション）
└ Slide （特定の一枚のスライド）
└ SlideShowTransition （スライドの切り替え・アニメーション設定）
├ EntryEffect （切り替え効果の種類：フェード、ワイプなど）
├ Duration （切り替えにかかるスピード）
├ AdvanceOnTime（自動で切り替えるか？ True / False）
└ AdvanceTime （何秒後に切り替えるか）
今回の主役は、`SlideShowTransition` というオブジェクトです。「個々のスライド（Slide）が持っている、切り替え効果のコントロールルーム」だとイメージしてください。
—
2. なぜ「マクロの記録」だけでは実務で使えないのか？
実は、PowerPointにはExcelのような「強力なマクロの記録機能」がほとんどありません。画面切り替え効果を手動で設定しても、VBAのコードとしては記録されないのです。
だからこそ、私たちはコードを直接書く（コーディングする）スキルを身につける必要があります。
しかし、恐れることはありません。基本の型さえ覚えてしまえば、どんな大量のスライドも一瞬で思い通りにコントロールできるようになります。
—
3. 実践！一括で切り替え効果とタイミングを設定するマクロ
それでは、現在開いているプレゼンテーションの全スライドに対して、「フェード効果」「切り替え速度：中速」「5秒後に自動送り」を一括設定するプロフェッショナルなコードを公開します。
VBAエディタ（Alt + F11）を開き、標準モジュールに以下のコードを貼り付けて実行してみてください。
Sub ApplySlideTransitionsAero()
‘ 変数の宣言
Dim targetPres As Presentation
Dim sld As Slide
‘ アクティブなプレゼンテーションを指定
Set targetPres = ActivePresentation
‘ 念のため、実行確認のメッセージを挟むと親切です
If MsgBox(“このプレゼンテーションの全スライドに” & vbCrLf & _
“・切り替え効果：フェード” & vbCrLf & _
“・自動送り：5秒後” & vbCrLf & _
“を設定します。よろしいですか？”, vbYesNo + vbInformation, “一括設定マクロ”) = vbNo Then
Exit Sub
End If
‘ 全スライドを1枚ずつループ処理
For Each sld in targetPres.Slides
‘ Withステートメントを使ってスライドショー設定にアクセス
With sld.SlideShowTransition
‘ 1. 切り替え効果を「フェード」に設定
‘ ※ ppEffectFade は PowerPointが用意している定数（名前付きの数値）です
.EntryEffect = ppEffectFade
‘ 2. 切り替えのスピードを「中速（Medium）」に設定
.Duration = 1# ‘ 1秒（浮動小数点数）
‘ 3. マウスウクリックだけでなく、時間経過での切り替えを有効にする
.AdvanceOnTime = True
‘ 4. 次のスライドに進むまでの時間を「5秒」に設定
.AdvanceTime = 5
End With
Next sld
‘ 完了通知
MsgBox “全スライドへの設定が完了しました！”, vbInformation, “処理終了”
End Sub
—
4. コードの深掘り：ここがエンジニアの急所
たったこれだけのコードですが、PowerPoint VBAの美しさと力強さが詰まっています。ポイントをいくつか解説しましょう。
① `For Each sld In targetPres.Slides` の美学
コレクション（複数のオブジェクトの集まり）を処理するとき、C言語や古いBASICのように `For i = 1 To 10` と数える必要はありません。`For Each` を使うことで、「スライドの枚数が何枚であろうと、エラーなく安全に全スライドを巡回する」という堅牢（ロバスト）なコードになります。
② `With` ステートメントによるパフォーマンスと視認性の向上
`sld.SlideShowTransition.EntryEffect` と毎回長く書く代わりに、`With sld.SlideShowTransition` で括ることで、コードがスッキリ読みやすくなります。さらに、オブジェクトへのアクセス回数が減るため、プログラムの動作パフォーマンス向上にも寄与します。
③ 定数（`ppEffectFade` など）の活用
PowerPointには、画面効果を表すためのあらかじめ決められた「定数」がたくさん用意されています。
- `ppEffectFade` （フェード）
- `ppEffectBoxIn` （ボックスイン）
- `ppEffectBlindsVertical` （ブラインド 縦方向）
これらを使い分けるだけで、プログラミング側から自由自在に演出を変更できます。
—
5. 現場で陥りやすい罠とエラー回避の知見
初心者がこの領域で必ずハマる「落とし穴」が2つあります。ここを知っておくだけで、現場でのトラブルシューティング能力がグッと跳ね上がります。
1. 「アクティブなプレゼンテーションがない」エラー
- 原因: PowerPointを起動しただけで、ファイルを開いていない状態（またはウィンドウが最小化されているなど）でコードを実行すると、`ActivePresentation` が「空振り」して実行時エラー（エラー424：オブジェクトが必要です）になります。
- 対策: 実務で使うコードでは、必ず `If Application.Presentations.Count = 0 Then Exit Sub` のようなガード節を入れましょう。
2. タイミングの単位は「秒」であること
- `AdvanceTime = 5` は「5秒」を意味します。ミリ秒（1000分の1秒）と勘違いして `5000` と設定すると、スライドが5000秒（約83分！）切り替わらなくなる大事故につながります。注意してくださいね。
—
おわりに：ここをクリアすれば、PowerPoint VBAはバッチリ！
お疲れ様でした！今回は `SlideShowTransition` オブジェクトを操り、スライドの演出とタイミングを一網打尽にするマクロを構築しました。
「コレクションのループ」「プロパティへの代入」「定数の活用」。
この3つの基本原則さえ押さえておけば、図形の整列でも、アニメーションの制御でも、PowerPointのあらゆる要素をあなたの意のままに自動化できるようになります。
「ただ動く」から「意図通りに美しく動かす」プロフェッショナルなVBAエンジニアへの第一歩、見事にクリアです！ぜひ日々の業務で試してみてくださいね。
