こんにちは！パワポの自動化、楽しんでいますか？
「マクロの記録」ボタンを押して図形を動かすだけの自動化から一歩進んで、いよいよPowerPointのオブジェクトモデルを自在に操る世界へようこそ。
今回は、実務でめちゃくちゃ役立つ「スライドの文字数からナレーション速度を逆算し、最適な自動送り時間（AdvanceTime）を全スライドに一括設定するマクロ」を一緒に作っていきます。
「プレゼンの練習をするたびに、スライド送りのタイミングがバラバラで気になる…」
「文字数が多いスライドは読む時間が足りず、少ないスライドは間延びする…」
そんな実務のモヤモヤを、VBAの知見を使ってスマートに解決しましょう。ここをクリアすれば、あなたも立派なPowerPoint VBAエンジニアの仲間入りです。優しく丁寧に解説していくので、リラックスしてついてきてくださいね！
—
1. PowerPoint VBAの心臓部を知る：オブジェクトの階層構造
まず、PowerPoint VBAを書く上で絶対に知っておかなければならない「お作法」があります。それは、PowerPointのオブジェクトが綺麗な「親子関係（ツリー構造）」で成り立っているということです。
今回のテーマで使う主なオブジェクトのピラミッドを見てみましょう。
- `Application`（PowerPointアプリそのもの）
- ↳ `ActivePresentation`（今開いているプレゼンテーション）
- ↳ `Slides`（スライドたちのコレクション）
- ↳ `Slide`（個別のスライド）
- ├─ `Shapes`（スライド上の文字や図形）
- ├─ `NotesPage`（スピーカーノート）
- └─ `SlideShowTransition`（スライド切替の効果や時間）
VBAを書くときは、この「どの親の、どの子供を操作しているのか」を正確に指定してあげる必要があります。これが分かれば、エラーの9割は防げるようになりますよ！
—
2. 実装のロジック：どうやって文字数を時間に変えるのか？
今回のマクロのアルゴリズムは非常にシンプルです。
1. プレゼン内のすべてのスライドを1枚ずつ巡回する（ループ処理）。
2. 各スライドの「本文テキスト」と「スピーカーノート」の文字数を合計する。
3. 「1分間あたり何文字読むか（朗読速度）」を基準にして、秒数を計算する。
- 例：標準的なビジネスナレーションなら「1分間に300〜350文字」と言われています。今回は「350文字/分」を基準にしましょう。
4. 計算した秒数を、スライドの `AdvanceTime`（自動送り時間）に代入する。
5. スライドショーの切り替え設定を「時間経過で自動切替」に有効化する。
これを人の手でやると気が遠くなりますが、VBAなら一瞬です。
—
3. 【実務対応】最強の自動スライド送り設定マクロ
それでは、開発環境（VBE：Alt + F11キー）を開き、標準モジュールに以下のコードを貼り付けてください。実務でそのまま使えるよう、エラー対策や最低保証時間（短すぎるスライドの保護）も組み込んだプロ仕様のコードです。
Sub SetOptimalSlideTiming()
‘ =====================================================================
‘ 目的: スライドの文字数とノートの文字数から最適な表示時間を自動計算し、
‘ スライドショーの自動送り時間（AdvanceTime）に一括設定する
‘ =====================================================================
Dim sld As Slide
Dim shp As Shape
Dim totalChars As Long
Dim readingSpeed As Double
Dim calculatedTime As Single
Dim minDisplayTime As Single
‘ — 設定エリア —
readingSpeed = 350 ‘ 1分間あたりの標準読み上げ文字数（350文字/分）
minDisplayTime = 3 ‘ どんなに短くても最低「3秒」は表示する（安全装置）
‘ ——————
‘ アクティブなプレゼンテーションが存在するかチェック
If ActivePresentation.Slides.Count = 0 Then
MsgBox “プレゼンテーションにスライドが存在しません。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ 念のため、現在のアクティブなプレゼンを明示的に変数に格納
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ すべてのスライドをループ処理
For Each sld In targetPres.Slides
totalChars = 0
‘ 1. スライド上の全シェイプ（テキストボックス、表、プレースホルダーなど）から文字数を収集
For Each shp In sld.Shapes
‘ テキストフレームを持っていて、かつテキストが存在する場合
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
‘ 改行やスペースを除外せず、純粋な文字数をカウント
totalChars = totalChars + Len(shp.TextFrame.TextRange.Text)
End If
End If
‘ グループ化された図形の中にあるテキストも考慮する場合の拡張余地（今回は割愛）
Next shp
‘ 2. スピーカーノート（NotesPage）の文字数も加算する（ナレーション原稿用）
On Error Resume Next ‘ ノートがない特殊なレイアウトのエラーを回避
Dim notesText As String
notesText = sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
If Err.Number = 0 Then
totalChars = totalChars + Len(notesText)
End If
On Error GoTo 0 ‘ エラートラップを通常に戻す
‘ 3. 秒数の計算 (文字数 ÷ 速度 = 分。これを × 60 で秒に変換)
‘ 式: (totalChars / readingSpeed) 60
If totalChars > 0 Then
calculatedTime = (totalChars / readingSpeed) 60
‘ 最低保証時間を下回る場合は、最低時間を適用
If calculatedTime < minDisplayTime Then
calculatedTime = minDisplayTime
End If
Else
' 文字数がゼロ（タイトルだけのスライドなど）の場合はデフォルトで3秒
calculatedTime = minDisplayTime
End If
' 4. スライドショーの切り替え設定を適用
With sld.SlideShowTransition
.AdvanceOnTime = True ' 時間経過による自動送りを有効化
.AdvanceTime = CSng(calculatedTime) ' 計算された秒数を代入
End With
Next sld
' 完了メッセージ
MsgBox "すべてのスライドの自動送り時間が、文字数に合わせて最適化されました！", vbInformation, "処理完了"
End Sub
---
4. コードの重要ポイントと「陥りやすい罠」の回避策
ここで、今回のコードで特に重要なポイントと、初心者がハマりがちな罠について解説しておきます。
① スピーカーノートの取得トラップ `NotesPage`
PowerPoint VBAで最も嫌われるエラーの一つが、スピーカーノートの取得失敗です。スライドのレイアウトによっては、ノートのプレースホルダーのインデックス番号がズレていたり、存在しなかったりします。
そのため、コード内では `On Error Resume Next` を使って、万が一ノートが取得できなくてもマクロが止まらず、スライド上の文字数だけで計算を続行できるように堅牢性（ロバスト性）を高めています。
② `CSng` による型変換の重要性
VBAで計算を行う際、割り算をするとデータ型が `Double`（倍精度浮動小数点数）になりがちです。しかし、PowerPointの `AdvanceTime` プロパティは、秒数を「単精度浮動小数点数（`Single`型）」で受け取る仕様になっています。
ここで明示的に `CSng(calculatedTime)` と変換してあげることで、型不一致による実行時エラーをスマートに防ぐことができます。こういう細かい配慮ができるかどうかが、プロのエンジニアの分かれ道です。
③ 自動再生の設定を忘れない
`AdvanceTime` に数字を入れるだけでは不十分で、必ず `AdvanceOnTime = True` をセットにしてあげる必要があります。「時間を設定したのに自動で切り替わらない！」というときは、大体このプロパティが `False` になっています。
—
5. 実行してみよう！
1. PowerPointで適当なプレゼンテーションを開きます。
2. `Alt + F11` でVBEを開き、上記のコードを標準モジュールに貼り付けます。
3. マクロの実行（`F5`キーなど）をします。
4. 確認方法： PowerPointの画面に戻り、リボンの [画面切り替え]タブ を見てみてください。「画面切り替え」グループの「期間」や「自動的に切り替え」のチェックボックスに、スライドごとの文字数に応じた時間が自動でセットされているはずです！
—
まとめ
今回は、PowerPoint VBAのオブジェクトモデルを駆使して、実務で即戦力になる「文字数連動型の自動スライド送り設定マクロ」を解説しました。
- オブジェクトの階層構造を意識して親から子へアクセスすること。
- エラー対策（例外処理）を組み込んで実用に耐えうるコードにすること。
- プロパティのデータ型に気を配ること。
これらをクリアできれば、あなたのPowerPoint VBAスキルは間違いなく中級者の領域に到達しています。ぜひ、日々のプレゼン資料作成の効率化に役立ててくださいね。
それでは、次回の高度な自動化の世界でお会いしましょう！
