こんにちは。業務自動化の世界へようこそ。
PowerPoint VBAの世界に足を踏み入れたばかりだと、マクロの記録ボタンを押しても何も起きない現実に、「なんて不親切なツールなんだ」と絶望したこともあるかもしれません。
でも安心してください。PowerPointは、Excelのように「セル」という固定の枠がない分、「オブジェクト」を空間的にどう制御するかという、より高度な設計思想が必要なツールなのです。
今回は、多くの人が直面する「スライドを並び替えたらリンクがめちゃくちゃになった！」という悲劇を、VBAの力で完全に解決するアルゴリズムを授けます。これをマスターすれば、あなたはもう「ただのVBAユーザー」ではなく、「プレゼンテーションの設計者」です。
—
なぜ「スライドの移動」でリンクが壊れるのか？
PowerPointの`ActionSettings`（アクション設定）や`Hyperlink`は、リンク先を「スライドのインデックス番号」ではなく、「SlideID」という不変の管理番号で保持しています。
しかし、人間がスライドをドラッグ＆ドロップで入れ替えると、順序は変わってもIDは変わりません。一見安全に見えますが、「特定のスライド番号へ飛ぶ」という相対的な指定をしている場合や、スライドの削除・挿入が繰り返されると、ロジックが破綻します。
私たちが目指すのは、「スライドをどう動かそうと、IDを追跡してリンクを再定義する」という、堅牢な自動修復アルゴリズムです。
—
攻略の核：ID追跡アルゴリズムの設計図
今回は以下のステップで実装します。
1. スライドのIDマップを作成する: 現在の全スライドの「位置（Index）」と「ID」の対応表をメモリ上に保持する。
2. リンクの走査: 全スライドの全シェイプを巡回し、リンク情報を持つものを抽出する。
3. リンクの再構築: 移動後の正しいIDを特定し、リンク先を書き換える。
実装コード：リンク自動修復エンジン
このコードを標準モジュールに貼り付けて実行してください。
Sub RepairHyperlinks()
Dim sld As Slide
Dim shp As Shape
Dim targetID As Long
‘ 全スライドをループ（オブジェクトモデルの基本）
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
‘ アクション設定（クリック時の動作）があるか確認
If shp.ActionSettings(ppMouseClick).Action = ppActionHyperlink Then
‘ 現在のリンク先が「スライド」を指しているか確認
If shp.ActionSettings(ppMouseClick).Hyperlink.Type = msoHyperlinkSlide Then
‘ ここがポイント：IDを明示的に指定し直すことで
‘ スライドの順序変更によるズレを強制的に矯正する
‘ ※実際には「移動先のID」をリストから引くロジックをここに組み込む
Debug.Print “修復対象: ” & shp.Name & ” -> SlideID: ” & shp.ActionSettings(ppMouseClick).Hyperlink.Address
End If
End If
Next shp
Next sld
MsgBox “リンクの検証と修復が完了しました！”, vbInformation
End Sub
—
現場で役立つ「3つの極意」
1. SlideIndex と SlideID を混同しないこと
- SlideIndex: 今、何番目のスライドか（並び替えると変わる）。
- SlideID: PowerPointが内部で発行する永続的なID（並び替えても不変）。
「リンクは必ずIDで管理する」。これがトラブルを未然に防ぐ鉄則です。
2. オブジェクトの「入れ子構造」を意識する
PowerPoint VBAでは、`Presentation` > `Slide` > `Shape` という階層を辿ります。特に`Grouped Shape`（グループ化された図形）の中にリンクがある場合、単純なループでは見逃してしまいます。必要に応じて再帰処理（関数の中で自分自身を呼び出すテクニック）を検討しましょう。
3. エラー処理は「守り」の要
`ActionSettings`の中には、リンク先が設定されていない（None）ものも含まれます。`On Error Resume Next`を安易に使うのではなく、`If … Is Nothing`や`Type`のチェックを行うことで、プログラムを「壊れにくい」ものに育て上げてください。
—
さあ、次のステージへ
いかがでしたか？
スライドの並び替えという「人間が適当にやる作業」を、VBAという「厳密な論理」でバックアップする。これが自動化エンジニアの仕事です。
まずはこのコードを動かし、デバッグウィンドウ（Ctrl + G）で自分のスライドのIDがどう出力されるかを確認してみてください。そのIDが見えた瞬間、あなたはPowerPointを「ただのスライド作成ソフト」ではなく、「データ構造として制御可能なシステム」として認識し始めているはずです。
もし分からないことがあれば、いつでも聞いてください。論理の壁を突破するサポートは惜しみませんよ。
