Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » スライド番号付き目次を作成するPowerPointマクロ

スライド番号付き目次を作成するPowerPointマクロ

対象:PowerPoint97, PowerPoint2000, PowerPoint2002, PowerPoint2003

PowerPointでは、[スライド一覧]ツールバー−[目次スライド]ボタンをクリックすることなどで、目次を作成することができます。

このサイトでも以下のようなPowerPointの目次作成関連ネタをご紹介してきました。


この目次作成機能をご存知の方や、Wordの目次作成機能をご存知の方から、
「目次にスライド番号をつけることはできないのでしょうか?」
「Wordの目次作成のようにスライド番号はつかないのですか?」
といったご質問をいただくことがあります。

Wordで目次作成を行った場合、項目と一緒にページ番号も目次には表示されます。

Wordのページ番号に該当するスライド番号を、PowerPointで目次作成したときにはつけられないのかというのがご質問の趣旨です。

[スポンサードリンク]

残念ながらPowerPointの目次スライド作成コマンドでは、スライド番号をつけることはできません。あくまでも、タイトルプレースホルダに入力された文字列が目次となるだけです。

こんなときはVBA(Visual Basic for Applications)マクロの出番です。


▼スライド番号つき目次スライドをアクティブなスライドの前に作成するマクロ
Sub SummarySlideWithNumber()
  
 On Error GoTo ERR_HANDLER
  
 Dim objSlide As Slide
 Dim objText As TextRange
 Dim objShape As Shape
 Dim intId As Integer
 
 'アクティブなスライドのSlideIndexを取得
 intId = ActiveWindow.Selection.SlideRange.SlideIndex
 
 'アクティブなスライドの前に、目次用スライドを追加
 ActivePresentation.Slides.Add intId, ppLayoutText
 ActivePresentation.Slides(intId).Shapes(1).TextFrame.TextRange = "目次"
 
 '今、追加した目次用スライドに、各スライドのタイトルを書き出す
 Set objText = ActivePresentation.Slides(intId).Shapes(2).TextFrame.TextRange
 objText = ""
 
 For Each objSlide In ActivePresentation.Slides
  'タイトルプレースホルダがある場合
  If objSlide.Shapes.HasTitle Then
   Set objShape = objSlide.Shapes.Title
   'タイトルが入力されている場合
   If Trim(objShape.TextFrame.TextRange.Text) <> "" Then
    objText = objText & objShape.TextFrame.TextRange.Text
   'タイトルが未入力かスペースだけの場合
   Else
    objText = objText & "(タイトルなし)"
   End If
  'タイトルプレースホルダがない場合
  Else
   objText = objText & "(タイトルなし)"
  End If
  'タブ文字・スライド番号・改行コードの追加
  objText = objText & Chr(9) & objSlide.SlideIndex & Chr(13)
 Next objSlide
 
 Exit Sub
 
ERR_HANDLER:

 MsgBox "スライドを1枚だけ選択してから、マクロを実行してください。"

End Sub

上記のSubプロシージャを、VBE(Visual Basic Editor)を起動して標準モジュールに貼り付け実行すると、アクティブなスライドの前に、スライド番号付きで目次スライドが作成されます。

見出し項目とスライド番号の間にはタブが挿入してありますので、スライド番号の位置はタブマーカーを使って移動していただくといいでしょう。

▼サンプルファイル(002536.ppt 39KByte)ダウンロード

サンプルファイルでは、タイトルプレースホルダに文字の入力されていないスライドや、タイトルプレースホルダの存在していないスライドなどが作成してあります。上記マクロを実行するとどのような結果となるか、ご確認ください。

関連語句
パワーポイントの目次にページ数をつける,目次にページ番号をつける,目次にページ番号を振る,もくじ,モクジ
[スポンサードリンク]

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » スライド番号付き目次を作成するPowerPointマクロ

TrackBack:1

TrackBack URL
リンク付き目次作成−マクロ from インストラクターのネタ帳
対象:PowerPoint97,PowerPoint2000,PowerPoint2002,PowerPoint2003 スライド番号付きの目次スライド...

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » スライド番号付き目次を作成するPowerPointマクロ

「プレースホルダー」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.