- 目標
- パワーポイントで「現在のページ/総ページ数」と表示したい
- 問題点
- 総ページ数を表示する方法が、マスタスライドに手書きしか見つからない @Google先生
- 対処
- マクロ組んでみる
1.事前準備
- マスタスライドを作る
- マスタのレイアウト(?)から「ページ数(<#>)」を作る
- 2番目の隣に総ページ数用のテキストボックスを作る
※テキストボックスの名前の調べ方
つ[PowerPoint]:シェイプの名前をメッセージボックスで表示する - Agrius_Akitaの日記
2.マクロ
' 「ページ数/総ページ数」を表示するマクロ 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 ' スライド1を選択(なんとなく) ActivePresentation.Slides(1).Select '' 画面表示を元に戻す 'Application.ScreenUpdating = Ture End Sub
実行するとテキストボックスへ総ページ数を入力するはず
総ページ数の桁数によってテキストボックスの位置を動かすとか
もう少し見栄えをよくする工夫ができそう