こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押してスライドを作っていた時期から、一歩先の世界へ踏み出したいあなたへ。今回は、PowerPoint VBAの本質である「オブジェクトモデルの支配」を実感できる、ちょっとワクワクするテーマを用意しました。
私たちが作るスライドショーを、完全に「自動運転」化するシステム——その名も【スマートプレゼン生成エンジン】です。
スライドに書かれた文字の量や、配置されている図形の数（アニメーションの密度）をVBAで瞬時に解析し、「人間がスッと内容を理解できる最適な表示時間」を自動で計算して設定してしまう。そんなプロ仕様のマクロを一緒に作っていきましょう。
ここをクリアすれば、PowerPoint VBAの基本構造はもうバッチリです。背伸びは不要ですよ。優しく丁寧に解説していきますので、リラックスしてついてきてくださいね。
—
1. なぜ「自動切り替え時間（AdvanceTime）」をコードで制御するのか？
展示会のサイネージ、無人の自動プレゼンテーション、あるいはタイトな持ち時間が決まっているピッチ資料。そんな場面で「スライドの切り替え時間」をどう設定していますか？
手動で1枚ずつ「ええっと、この文字数なら10秒くらいかな…」とポチポチ設定するのは、エンジニアのすることではありません。面倒な繰り返し作業はVBAに任せるべきですし、何より「情報量に基づいたロジカルな時間配分」にすることで、プレゼンの質が圧倒的に洗練されます。
PowerPointには、各スライドの切り替え時間を秒単位で指定する `SlideShowTransition.AdvanceTime` というプロパティが用意されています。これをVBAから自由自在に操れるようになると、プレゼンテーションの「時間軸」さえもあなたの手でデザインできるようになるのです。
—
2. PowerPointオブジェクトモデルの地図を手に入れよう
VBAを書く前に、PowerPointの「世界観（オブジェクトの階層構造）」を頭に叩き込んでおきましょう。ここがPowerPoint VBAで最も重要、かつ初心者が最初に迷子になりやすいポイントです。
PowerPointのオブジェクトは、以下のようなピラミッド構造になっています。
Application (PowerPointアプリ全体)
┗ Presentations (開いているプレゼンテーションの集合)
┗ Presentation (いま作業しているファイル)
┗ Slides (スライドの集合)
┗ Slide (個別のスライド)
┣ Shapes (スライド上の文字や図形の集合)
┗ SlideShowTransition (スライドの切り替えや時間の設定)
「今開いているファイルの、3番目のスライドの、文字数を数えたい！」と思ったら、コードでは次のように表現します。
`ActivePresentation.Slides(3)…`
この階層のルールさえ見失わなければ、どんな複雑なマクロも怖くありません。
—
3. 【実践】情報量を解析し、時間を自動設定するスマートマクロ
お待たせしました。それでは実際に、スライド内の「文字数」と「図形数」をカウントし、最適な表示時間を自動計算して `AdvanceTime` に代入するスクリプトを公開します。
以下のコードを、PowerPointのVBAエディタ（[Alt] + [F11]）の標準モジュールに貼り付けてください。
Option Explicit
Sub SetSmartAdvanceTime()
‘ — 変数の宣言 —
Dim sld As Slide
Dim shp As Shape
Dim charCount As Long
Dim shapeCount As Long
Dim calculatedTime As Double
‘ 読みやすさを定義する係数（チューニング可能）
Const BASE_TIME As Double = 3.0 ‘ 最低保証時間（秒）
Const SEC_PER_CHAR As Double = 0.15 ‘ 1文字あたりにかかる読解時間（秒）
Const SEC_PER_SHAPE As Double = 1.0 ‘ 図形1つあたりが視線を奪う時間（秒）
‘ — アクティブなプレゼンテーションの全スライドを走査 —
For Each sld In ActivePresentation.Slides
charCount = 0
shapeCount = 0
‘ スライド内の全シェイプ（テキストや図形）をチェック
For Each shp in sld.Shapes
‘ テキストが含まれている場合、文字数を累積する
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
charCount = charCount + Len(shp.TextFrame.TextRange.Text)
End If
End If
‘ 図形の総数をカウント（視覚情報の多さの指標にする）
shapeCount = shapeCount + 1
Next shp
‘ — 最適時間の計算ロジック —
‘ 「基本時間 ＋ (文字数 × 係数) ＋ (図形数 × 係数)」で算出
calculatedTime = BASE_TIME + (charCount SEC_PER_CHAR) + (shapeCount SEC_PER_SHAPE)
‘ — スライドショーの設定を適用 —
With sld.SlideShowTransition
‘ 自動切り替えを有効にする
.AdvanceOnTime = True
‘ 計算された時間を代入（小数点第1位まで）
.AdvanceTime = Round(calculatedTime, 1)
End With
‘ デバッグイミディエイトウィンドウに結果を出力（確認用）
Debug.Print “スライド ” & sld.SlideIndex & _
” [文字数: ” & charCount & “, 図形数: ” & shapeCount & “] ” & _
“→ 設定時間: ” & sld.SlideShowTransition.AdvanceTime & “秒”
Next sld
MsgBox “全スライドのスマート自動切り替え時間の設定が完了しました！”, vbInformation, “スマートプレゼン生成”
End Sub
このコードのスマートなポイント
1. `For Each … In` による安全なループ処理
スライドや図形の数を自分で数えて `For i = 1 to 10` などと書く必要はありません。PowerPointが管理するコレクションを直接なめることで、スライドが何枚に増えても自動で対応できます。
2. `HasTextFrame` による安全な型チェック
PowerPointの図形には、文字が入るものと入らないもの（単なる四角形や画像など）が混在しています。文字がないシェイプに対して無理にテキストを読み込もうとするとエラー（実行時エラー）になりますが、このコードでは事前に `HasTextFrame` で安全確認を行っているため、エラーで止まりません。
3. ロジカルな重み付け（係数設計）
人間が文字を読むスピードと、図形やグラフを見て理解するスピードは違います。ここでは文字係数と図形係数を分けることで、人間工学に基づいた（ような）自然な時間配分を実現しています。この係数は、あなたの発表スピードに合わせて自由にチューニングしてください。
—
4. 陥りやすい罠とエラー回避の知見
現場でこのコードを動かす際、初心者が必ずと言っていいほどハマるポイントがいくつかあります。プロの知見として共有しておきましょう。
- 罠1：グループ化した図形の中にある文字がカウントされない
- 原因: PowerPointで図形をグループ化すると、その中にあるテキストフレームが一段深い階層に隠れてしまいます。
- 対策: 本格的な自動化を目指す場合は、`shp.Type = msoGroup` のときに再帰関数（自分自身を呼び出す関数）を使ってグループ内を掘り下げる処理が必要になります。まずは今回の基本形をマスターしてから挑戦してみてください。
- 罠2：スライドショーの設定で「画面切り替え：自動」にチェックが入っていない
- 原因: VBAで `AdvanceOnTime = True` と `AdvanceTime = 5` を代入しても、PowerPoint側のスライドショー設定で「時刻表に従って実行する（ナレーションがあればそれを使用）」のチェックボックスが外れていると、自動で進まないことがあります。
- 対策: 基本的にはVBAからプロパティを叩けば強制的に有効化されますが、動かない場合はリボンの「スライドショー」タブから設定を確認してみましょう。
—
5. おわりに：ここからあなたのVBAライフが始まる
お疲れ様でした！今回はスライドの文字数と図形数を解析し、最適なタイマーを自動構築する「スマートプレゼン生成」のコードを解説しました。
「ただ画面を切り替えるだけのマクロ」から、「ドキュメントの構造を読み取って自律的に判断するマクロ」へ。この視点の転換こそが、事務作業の自動化から「業務システムのエンジニアリング」へとステップアップする決定的な境界線です。
ここをクリアしたあなたなら、もうPowerPoint VBAの基礎はバッチリです。ぜひ自分の環境でコードを動かし、イミディエイトウィンドウに出力される計算結果を眺めてニンマリしてみてください。
それでは、次回の高度な自動化の世界でお会いしましょう！
