こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステップを卒業し、いよいよ自分の手で自由自在にプレゼンテーションを操る「本物の自動化エンジニア」への扉を開いたあなたへ。
今日は、PowerPoint VBAの初学者が100%と言っていいほど最初にハマる「スライドの番号迷子問題」について、その本質と鮮やかな解決策を伝授します。
ここをクリアすれば、スライドのオブジェクトモデルの機微が手に取るようにわかるようになりますよ。さあ、一緒に紐解いていきましょう！
—
1. 最初に立ちはだかる壁：`SlideIndex` と `SlideNumber` の残酷な違い
PowerPointでスライドを操作していると、「何番目のスライドか」を指し示すプロパティとして、主に次の2つが登場します。
1. `SlideIndex`（スライドインデックス）
2. `SlideNumber`（スライドナンバー）
名前は似ていますが、この二つは全く異なる概念を持っています。ここを混同すると、配布資料を一括印刷したときに「あれ、ページ番号が全然合わない……！」という大惨事につながります。
図解：それぞれの正体
- `SlideIndex` ＝ 「物理的な座席番号」
- プレゼンター（あなた）が画面の左側（サムネイル一覧）を見ているときの「上から何番目か」を表します。
- スライドを並び替えたり、途中に新しいスライドを挿入したりすると、この番号はダイナミックに書き換わります。絶対的なものではありません。
- `SlideNumber` ＝ 「実際に画面や紙に印刷される番号」
- スライドショーを実行したときや、PDF・紙に印刷したときに、そのスライドに刻印される「表向きのページ番号」です。
- 非表示スライドがあったり、途中からページ番号を「3から開始する」なんて設定にしていると、`SlideIndex` とは完全にズレが生じます。
> 💡 先輩からのアドバイス
> VBAで「○枚目のスライドを操作したい」というときは `SlideIndex` を使いますが、「今、目の前にあるスライドの物理的なページ番号を知りたい」ときは、別の工夫が必要になります。
—
2. なぜ「ズレ」が起きるのか？
実務でよくあるシチュエーションを考えてみましょう。
- 先頭（Index: 1）に表紙スライドがあり、ページ番号を「非表示」にしている。
- 途中（Index: 3）のスライドが「非表示（Hidden = MsoTrue）」に設定されている。
- 配布資料を作るために、「非表示スライドを除外して、全ページに正しい物理的な通し番号を振りたい」あるいは「特定のページ情報をログに出力したい」。
このようなとき、単純に `ActivePresentation.Slides` をループさせて `SlideNumber` を取得しようとすると、非表示のスライドがカウントから漏れたり、想定外の番号が返ってきたりしてプログラムが破綻します。
—
3. 【実践】環境に左右されない、正しいページ番号取得法
それでは、スライドの追加・削除・非表示・番号の途中変更など、どんな過酷な条件が揃ってもビクともしない、「真のページ番号とインデックスの対応表」を出力するマクロを書いてみましょう。
以下のコードを、VBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してみてください。
Sub OutputSlideInfo()
‘ —————————————————————–
‘ 目的：全スライドの「物理的な位置(Index)」と「実際の表示番号(Number)」を
‘ 非表示フラグと共にイミディエイトウィンドウに正確に出力する
‘ —————————————————————–
Dim sld As Slide
Dim physicalCount As Integer
‘ カウンターの初期化
physicalCount = 0
Debug.Print “=== スライド構造解析レポート ===”
‘ プレゼンテーション内のすべてのスライドを物理順（Index順）に走査
For Each sld In ActivePresentation.Slides
‘ 非表示設定がされているかをチェック
If sld.SlideShowTransition.Hidden = msoTrue Then
Debug.Print “【非表示】 物理位置(Index): ” & sld.SlideIndex & ” ── 印刷・ショーからは除外されます”
Else
‘ 表示されるスライドのみカウンターを進める
physicalCount = physicalCount + 1
Debug.Print “【表示中】 ” & _
“物理位置(Index): ” & sld.SlideIndex & ” | ” & _
“表示番号(Number): ” & sld.SlideNumber & ” | ” & _
“実質印刷ページ目: ” & physicalCount
End If
Next sld
Debug.Print “================================”
MsgBox “解析が完了しました。イミディエイトウィンドウを確認してください。”, vbInformation
End Sub
このコードの強力なポイント
1. `For Each sld In ActivePresentation.Slides`
PowerPointオブジェクトモデルにおいて、最も安全かつ確実な走査方法です。コレクションの数え間違いを防ぎます。
2. `sld.SlideShowTransition.Hidden`
スライドが非表示かどうかを判定するプロパティです。これを挟むことで、配布資料の作成時に「見せたくないスライド」を綺麗に除外できます。
3. `physicalCount` 変数による独自カウンティング
PowerPoint自体の設定に依存せず、「今、何枚目の資料として出力されるべきか」をプログラム側で完全にコントロールできます。
—
4. 陥りやすいエラーと回避の心得
初学者がよくやるミスとして、以下のようなコードがあります。
‘ 【NGコードの例】これはいけません！
Dim i As Long
For i = 1 To 10
‘ もし途中でスライドを削除すると、ActivePresentation.Slides.Countが変わってしまい、
‘ ループの終点がおかしくなり、「Run-time error ‘5981’: 指定されたコレクションのインデックスが範囲外です」が爆誕します。
ActivePresentation.Slides(i).Delete
Next i
鉄則：コレクションを操作（削除・並び替え）するときは「後ろからループ（逆順ループ）」！
スライドを削除したり加工したりする場合は、必ず後ろから前へカウントダウンさせるのがプロの鉄則です。
‘ 【正しいアプローチ（逆順ループ）】
Dim i As Long
Dim totalSlides As Long
totalSlides = ActivePresentation.Slides.Count
For i = totalSlides To 1 Step -1
‘ 後ろから処理していけば、前方のインデックス番号が狂うことはありません！
‘ 例：If 条件を満たしたら… ActivePresentation.Slides(i).Delete
Next i
オブジェクトのライフサイクルとメモリ上のインデックスの動きを意識できるようになると、VBAを書く手が劇的に速くなります。
—
まとめ：ここをクリアすれば、もう初心者ではない！
今回は、`SlideIndex` と `SlideNumber` の違い、そして非表示スライドやループの罠を華麗にかわす実践的なコードをご紹介しました。
- `SlideIndex` は「今の並び順（物理位置）」
- `SlideNumber` は「印刷・表示される番号」
- 構造を変更するループは「逆順（Step -1）」が鉄則
ここをクリアしたあなたなら、実務で求められる複雑なプレゼン資料の自動生成や、PDF一括変換・ページ制御システムも余裕で構築できます。
PowerPoint VBAの基本は、もうバッチリですよ！
次の自動化のステップへ向けて、一緒に進んでいきましょう。
