PowerPoint VBAの深淵：スライド移動を検知し「ページ番号」を完全自動化するアーキテクチャ
現場の業務自動化において、最も回避すべきは「手作業による整合性チェック」だ。特にプレゼン資料の構成変更に伴う「ページ番号のズレ」は、修正漏れがクライアントの信頼を失う致命傷になりかねない。
多くのエンジニアは、この問題を「修正時に手動で更新する」あるいは「力技のループ処理」で解決しようとする。だが、プロのアーキテクトであれば、イベント駆動（Event-Driven）による完全自動化を選択すべきだ。
今回は、PowerPoint VBAにおいて最も誤解されやすい「スライドの入れ替え検知」と「オブジェクトの一括更新」を、堅牢なプロダクションコードとして実装する方法を伝授する。
—
1. なぜ「力技」ではいけないのか？
通常、スライドのインデックスを更新する際、多くの人は`AfterSlideMove`イベントを監視しようとするが、PowerPointのオブジェクトモデルには「スライド移動完了」を直接的に検知するイベントは存在しない。
ここで多くの初心者が陥る罠がある。
- ポーリング監視: タイマーで常に監視し続ける（リソースの無駄であり、動作が極めて重い）。
- SelectionChangeの乱用: 選択が変わるたびに計算を走らせる（UIのレスポンスが著しく低下する）。
我々が取るべき戦略は、「プレゼンテーションの保存時（BeforeSave）」または「スライド構成の変更（WindowSelectionChange）をスマートに検知」し、ページ番号用シェイプの値を正規化するアプローチだ。
—
2. 実装の要：クラスモジュールによるイベントハンドラ
まず、`Class Module`（名前を `AppEventHandler` とする）を定義し、アプリケーションレベルのイベントをトラップする。
‘ クラスモジュール: AppEventHandler
Option Explicit
Public WithEvents App As Application
‘ スライドの移動や順序変更を検知するトリガーとしてWindowSelectionChangeを採用
‘ ※パフォーマンスを考慮し、選択解除時のみ実行する工夫が必要
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
‘ スライドの並び替え操作が終了した直後のトリガーとして機能させる
‘ 頻繁な実行を避けるため、特定のシェイプ以外を選択した際などに限定する
Call SyncPageNumbers
End Sub
—
3. ロジックの心臓部：ページ番号再計算エンジン
次に、標準モジュールに「更新処理」を実装する。ここで重要なのは、「特定のシェイプをどう特定するか」だ。
運用上、ページ番号用シェイプには「名前」を付けておくのが鉄則である。これを怠ると、全シェイプをループさせる必要があり、スライド数が増えるほど指数関数的にパフォーマンスが低下する。
‘ 標準モジュール: modPageUpdater
Option Explicit
Public Const SHAPE_NAME_PAGE As String = “PageNumber_Auto” ‘ 命名規則を徹底する
Public Sub SyncPageNumbers()
Dim pptPres As Presentation
Dim sld As Slide
Dim shp As Shape
Set pptPres = ActivePresentation
‘ 描画の更新を一時停止して高速化
Application.ScreenUpdating = False
For Each sld In pptPres.Slides
‘ スライド内の特定の名前を持つシェイプを探索
For Each shp In sld.Shapes
If shp.Name = SHAPE_NAME_PAGE Then
‘ スライド番号を動的に書き換え
shp.TextFrame.TextRange.Text = “Page ” & sld.SlideIndex
End If
Next shp
Next sld
Application.ScreenUpdating = True
End Sub
—
4. 現場で生き残るための「鉄則」
このアーキテクチャを導入する際、以下の3点を必ず遵守してほしい。
1. 命名規則の強制: ページ番号用シェイプには必ず `PageNumber_Auto` という名前を付けること。手動で作成したシェイプにこの名前を付けるスクリプトを別途用意し、手動操作を排除する。
2. エラーハンドリングの徹底: `shp.TextFrame.HasText` プロパティを確認せずに `TextRange` を操作すると、画像やグループ化された図形に対して実行した際にエラーで落ちる。`If shp.HasTextFrame Then` のガード節は必須だ。
3. プレゼンテーションの保存時との併用: `App_PresentationBeforeSave` イベントでも `SyncPageNumbers` を呼ぶようにすると、出力直前の「事故」を確実に防げる。
結びに代えて
自動化とは、単にコードを走らせることではない。「ユーザーが意識せずとも、常に最新の状態が維持されている」という体験を設計することだ。
PowerPointのVBAは、一見すると制約が多い古い言語に見えるかもしれない。しかし、オブジェクトのライフサイクルを理解し、イベントを適切にハンドリングすれば、これほど強力な「業務遂行プラットフォーム」はない。
さあ、あなたの作るスライドから「手動修正」という無駄を排除し、本来のクリエイティブな思考に時間を割ける環境を構築してほしい。それができるのは、画面の向こう側のあなただけだ。
