［PowerPoint］：「現在のページ／総ページ数」を表示する

Microsoft Office
目標
パワーポイントで「現在のページ／総ページ数」と表示したい
問題点
総ページ数を表示する方法が、マスタスライドに手書きしか見つからない　＠Google先生
対処
マクロ組んでみる

１．事前準備

  1. マスタスライドを作る
  2. マスタのレイアウト（？）から「ページ数（<#>）」を作る
  3. 2番目の隣に総ページ数用のテキストボックスを作る

※テキストボックスの名前の調べ方
　つ［PowerPoint］：シェイプの名前をメッセージボックスで表示する - Agrius_Akitaの日記

２．マクロ

' 「ページ数／総ページ数」を表示するマクロ
Sub PageNumber()

    '' マクロ処理を画面表示しない
    'Application.ScreenUpdating = False


    ' ――――― 文字列準備 ―――――

    Dim Slash As String
    Dim TotalPage As Long
    Dim Setubi As String

    ' スラッシュ記号
    Slash = " / "
    ' 総ページ数
    ' プレゼンテーションのスライド数をカウント
    TotalPage = ActivePresentation.Slides.Count
    ' 接尾
    Setubi = " ページ"


    ' ――――― テキストボックスの文字置換 ―――――

    ' 表示をマスタモードへ切り替え
    ' 切り替えないとうまく動かなかったので。。。
    ActiveWindow.ViewType = ppViewSlideMaster

    ' 総ページ数を表示するテキストボックスを選択
    ActivePresentation.SlideMaster.Shapes("Text Box 17").Select

    ' 文字を置換する
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text = Slash & TotalPage & Setubi


    ' ――――― 終了 ―――――

    ' 表示を標準モードに戻す
    ActiveWindow.ViewType = ppViewSlide
    
    ' スライド１を選択（なんとなく）
    ActivePresentation.Slides(1).Select

    '' 画面表示を元に戻す
    'Application.ScreenUpdating = Ture

End Sub


実行するとテキストボックスへ総ページ数を入力するはず
総ページ数の桁数によってテキストボックスの位置を動かすとか
もう少し見栄えをよくする工夫ができそう