パワーポイント | スライドの目次を簡単作成する・手動とVBA

パワーポイントの目次を簡単に作成する

パワポの目次ってワードみたいに簡単にできないの?

こんな悩みを解決する内容です。

ワードの場合は、見出し設定していると簡単に目次がつくれますが、パワーポイントにはそのような機能がありません。

パワーポイントの一般機能を使う方法では、ちょっと手間がかかりますが、少し楽に作る方法があります。

VBA(マクロ)を使う方法もあり、こちらの方が簡単にできます。

目次

一般機能で目次を作成する

STEP
[表示]>[プレゼンテーションの表示]グループの[アウトライン表示]をクリックします。
アウトライン表示

アウトライン表示後の画面です。

アウトライン表示

STEP
アウトラインを右クリックし、[すべて折りたたみ]をクリックします。

この操作はタイトルのみ表示にするためです。

折りたたみ

STEP
ハイパーリンクを設定するスライドを作成します。ここでは「目次」とタイトルをつけています。

スライド挿入

STEP
ハイパーリンク先にするスライドを選択し、Ctrl + C でコピーします。または右クリックより「コピー」を選択します。

ここでは「目次」以外を選択します。

スライドの選択

STEP
スライド「目次」にテキストを挿入し、 Ctrl + V で貼り付けします。
テキストの貼り付け

VBAで目次を作成する

目次にするスライドを用意しておき、スライド「目次」に目次以外のタイトルを書き出します。

事前準備

STEP
スライドの先頭にスライドを挿入します。
スライド
STEP
タイトルを入力します。ここでは「目次」にしました。サブタイトルは空欄のままにします。
スライド
STEP
標準モジュールに次のコードを入力します。

コードは以下参照

コード(サンプル)

標準モジュールにコードを作成します。

コードはエラー処理はしていません。

条件
  • スライド1は目次
  • スライド2以降の目次を作成する
 Dim sid As Slide: Set sid = ActivePresentation.Slides(1)
  Dim mokuji As String
  
  With ActivePresentation.Slides
   Dim i As Long
    For i = 2 To .Count
      With .Item(i)
          mokuji = .Shapes.Title.TextFrame.TextRange.Text & vbNewLine
          sid.Shapes.Placeholders(2).TextFrame.TextRange.InsertAfter NewText:=mokuji
      End With
    Next i
  End With

マクロの実行

スライドを選択した状態でマクロを実行します。

目次を選択した状態で、Altキー + [F8]を押しマクロを実行する方法が確実です。

マクロの実行

実行後

マクロ実行後

目次内容に変更があった場合は、テキスト内の文字を削除しマクロを実行します。

もしくは文字を5行目の上に消すコードを追記します。

sid.Shapes.Placeholders(2).TextFrame.TextRange = ""

まとめ

パワーポイントにはワードのような便利な目次作成機能はないですが、一般機能を使った場合でも作成できます。

何度も修正があったり、大量の資料の目次を作る場合は、VBAを利用した方が楽に作成できます。

パワーポイントのVBAは、エクセルVBAを使用している人であれば簡単にできます。

目次