パワーポイントのスライド番号の全角数字化についてお聞きしたいです。スライド枚数の変更に連動する全角数字(MS明朝)で表示させたいと思っています。

Question

パワーポイントのスライド番号の全角数字化の方法についてお聞きしたいです。

通常、スライド番号を挿入すると半角数字で表示されますが、

スライド枚数の変更に連動する全角数字(MS明朝)で表示させたいと思っています。

何卒よろしくお願いします。

添付資料は、スライド番号のイメージです。

Answer 1

こんにちは。

スライド番号を全角で表示する事は標準の機能では出来ませんので、マクロ を使用します。

※開始前にファイルをコピーしてバックアップを取った上で試してみて下さいね。

1. スライドにスライド番号用のテキストボックスを挿入して適当な文字を入力し、フォントをMS明朝に変更します。
2. [ホーム]タブ > [選択] > [オブジェクトの選択と表示]で、テキストボックスの名前をマクロ上で使用する名前に変更します。

※ここでは例として「SlideNumberBox」に変更します。

3. 全てのスライドに2 で作成したテキストボックスをコピーして貼り付けておきます。

（例として、全てのスライドのコピーするテキストボックスの名前は「SlideNumberBox」である必要があります。）

4. 開発タブを表示させておきます。

　[ファイル] > [オプション] > [リボンのユーザー設定]で開発にチェックを入れてOK をクリックします。

5.　[開発]タブ > [Visual Basic] を選択します。

6. Visual Basic Editor が開くので、[挿入]>[標準モジュール]をクリックします。

7. 右側の白いボックスに以下のコードを貼り付けます。

Sub SetSlideNumbersInExistingTextBox()

Dim slide As slide 

Dim shape As shape 

For Each slide In ActivePresentation.Slides 

    On Error Resume Next 

    Set shape = slide.Shapes("SlideNumberBox") 

    If Not shape Is Nothing Then 

        shape.TextFrame.TextRange.Text = StrConv(slide.SlideNumber, vbWide) 

    End If 

    On Error GoTo 0 

Next slide 

End Sub

こんな感じです。

8. 保存します。マクロ付きファイルで保存するか聞かれるので、マクロ付きファイル(.pptm)で保存します。
9. PowerPoint の元の画面に戻ります。以下のアイコンをクリックします。

10. [開発]タブ > [マクロ] をクリックします。

マクロ名：SetSlideNumbersInExistingTextBox を選択して「実行」をクリックします。

11. 以上の操作で、全てのページのMS 明朝に設定した「SlideNumberBox」という名前のテキストボックスにスライド番号が全角で入ります。

お試しくださいね。

Answer 2

Makapu　様

早速の返答ありがとうございます。

大変助かります。こういうのがあったのですね。

スライド枚数を変更した後も

このマクロを再実行することで

番号が更新されることを確認しました。

ありがとうございました。