☰

PowerPoint 2007 でスライドの総数を挿入する

tag-icon • tag-icon microsoft-powerpoint-2007
PowerPoint 2007 でスライドの総数を挿入する

PowerPoint プレゼンテーションのスライドの合計数を脚注に挿入することは可能ですか? 自動化する方法を探しています。

もちろん、フッターを編集して手動で挿入することもできますが、スライドを増減する場合は調整が必要になります。これは私たちがいつも忘れがちなことです。

のマイクロソフトからの支援手動で行う方法を説明しています。PowerPoint にそれがないなんて信じられません...

答え1

作成するすべてのプレゼンテーションに自動的に追加するオプションや構成設定を探している場合、そのようなオプションや構成設定はありません。ただし、ヘッダーまたはフッターを編集すると、そこにスライド番号を自動的に追加し、すべてのスライドに表示することができます。

マイクロソフト

答え2

これは基本的にパワーユーザーのコード完全な実行可能ガイドに拡張されました。

マクロの作成

  1. PowerPoint 2007 以降では、プレゼンテーションを.pptm拡張子 (マクロが許可された標準プレゼンテーション) で保存したことを確認してください。

  2. 説明した方法でスライド番号を追加したことを確認してください記事上で1 .

  3. 開ける "大きい「ウィンドウ2。PowerPoint 2007 以降では、Viewタブ (最後) をクリックし、Macro最後のツール バー グループのボタンをクリックします。以前のバージョンでは、Tools > Macroメニューから選択します。

  4. マクロの名前（ などPageCountUpdater）を入力し、 をクリックしますCreate。

  5. マクロコードを貼り付ける（パワーユーザーの答えまたはそれ以下の文字列をSub PageCountUpdater()との間に挿入しますEnd Sub。van最もインデントされた行をofまたはご使用の言語の同様の文字列に変更します。

  6. マクロを保存して Microsoft Visual Basic for Applications を閉じます。PowerPoint に戻ります。

完了です。挿入するコード (完全なコードと修正された「接着語」を含むコード):

Sub PageCountUpdater()
    Dim s As Slide
    Dim shp As Shape

    For Each s In ActivePresentation.Slides
        s.DisplayMasterShapes = True
        s.HeadersFooters.SlideNumber.Visible = msoTrue

        For Each shp In s.Shapes
            If Left(shp.Name, 12) = "Slide Number" Then
                shp.TextFrame.TextRange.Text = s.SlideNumber & " of " & ActivePresentation.Slides.Count
            End If

        Next
    Next
End Sub

マクロを実行しています

  1. 開ける "大きい「」ウィンドウを再度開きます。

  2. PageCountUpdater保存したマクロを選択して を押しますRun。

これを毎回手動で行う必要があります。キーボード ショートカットがあれば非常に便利です。しかし... PowerPoint のショートカットを変更するには、1 台のコンピューターにつき 20 ドルから始まる価格を支払う商用プラグインを購入する以外に方法はありません。これまたはこれ詳細については記事をご覧ください。

マクロを削除しています

このマクロは必要なときのみ実行されます。ライブ マクロではありません。実際のスライド数でフィールドを更新するだけです。フィールド自体は標準のテキスト フィールドです。魔法ではありません。つまり、プレゼンテーションが終了し、.pptxこれ以上スライドを追加しないことが確実になったら、ファイルを簡単に元に戻してこのマクロを破棄できます。マクロが削除されると、フィールドは値が変更されずに元の場所に残ります。

多くのユーザーはマクロを含むドキュメントを好まないため、これは便利です。また、多くのプレゼンテーションの場、フェア、会議などでは、.pptmファイルの実行が禁止されています。

これも良い方法です。なぜなら、このマクロは、手動で削除した場合でも、すべてのスライド (タイトルのスライドは除く。末尾の脚注 1 を参照) の番号フィールドを再作成するからです。したがって、スライドの最終的な番号と順序が確定したら、最後にもう一度実行して、削除することができます。

マクロが有効になっているファイルを開く

拡張機能とマクロを内部に保持することにした場合.pptm、このドキュメントは常にマクロが無効の状態で開かれ、マクロを有効にするには毎回クリックする必要がありますEnable macros(デフォルト設定で実行する場合)。

ドキュメントが自分のものであり、悪意のあるコードが含まれておらず、すべて安全な場所 ​​(一時フォルダーや共有フォルダーではない) に保存されていると信頼できる場合は、各 Office プログラムの設定を変更して、これらのファイルを常にマクロを有効にして開くことができます。

最も簡単な方法は、マクロが有効なプレゼンテーションを含むフォルダーを PowerPoint 内の安全な場所に追加することです。

これをする：

  1. Fileタブ、Optionsボタン、Trust Centerセクション、ボタンをクリックしますTrust Center Settings。

  2. Trusted locationsセクション（2番目）に移動してAdd new location...ボタンをクリックします。

  3. フォルダー パスをPathフィールドに貼り付けるか選択し、オプションで、追加された場所にあるすべてのサブフォルダーも信頼できるものとして扱うかどうかを確認します。

  4. 3 回クリックしてOK確認し、開いているすべてのウィンドウを閉じます。マクロが有効なドキュメントを再度開きます。

この時点で、追加された場所から開かれるすべてのドキュメントには警告が表示されず、常にマクロが有効になった状態で開かれるはずです。この問題の詳細については、このOffice.comサポートドキュメント。

脚注

1 PowerPointのほとんどのバージョンでは、タイトルスライドとして決定されないプレゼンテーションの最初のスライド、しかし、タイトルスライドとしてスタイル設定されたスライド新しいスライドを挿入するときに、さまざまなスライドの種類が表示されます。つまり、タイトルとしてスタイル設定されたスライドがない場合は、すべてのスライドにページ番号が追加されます。逆に、多くのスライドを使用する場合は、タイトルスライドプレゼンテーション内で、たとえば異なるセクションやブロックをマークする場合、それらすべてに番号が付けられません。

2 すべての GUI 要素の名前は、PowerPoint 2010 のポーランド語版からの即時翻訳です。PowerPoint の他のリリースまたは言語版では若干異なる場合があります。それに応じて調整してください。

答え3

まず、すべてのスライドに通常のスライド番号が付いていることを確認します。次に、モジュールを追加し、次のコードを挿入して、F5 (開始) を押します。

Dim s As Slide
Dim shp As Shape

For Each s In ActivePresentation.Slides
    s.DisplayMasterShapes = True
    s.HeadersFooters.SlideNumber.Visible = msoTrue

    For Each shp In s.Shapes
        If Left(shp.Name, 12) = "Slide Number" Then
            shp.TextFrame.TextRange.Text = s.SlideNumber & " van " & ActivePresentation.Slides.Count
        End If

    Next
Next

答え4

マスター スライドのテキスト ボックスに <#> of x と入力し、スライドに「スライド番号」を追加するという Web ページを見つけました。一時的には機能しましたが、移動してもう一度試すと、x に完全なスライド番号が入力されなくなりました。ただし、この解決策はほとんどのユーザーにとって実行可能かもしれません。

関連情報