ハイパーリンク付き目次スライドを作成するサンプルマクロ スライドが1枚選択された状態で以下のマクロを実行すると、そのスライドの前に新規スライドが挿入され、リンク付きの目次が自動的に作成されます。 Sub アクティブスライドの前に目次スライドを作成する_ハイパーリンクあり() On Error GoTo ErrHandl Dim active_idx As Long active_idx = ActiveWindow.Selection.SlideRange.SlideIndex With ActivePresentation.Slides Dim target_slide As Slide Set target_slide = .Add(Index:=active_idx, Layout:=ppLayoutText) target_slide.Shapes.Title.TextFrame.