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


25

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

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

マイクロソフトヘルプでは、手動で行う方法について説明しています。PowerPointにそれがないとは信じられません...


1
「挿入>フィールド」オプションはPowerPointで使用できませんか?それは私が言葉でそれを行うために使用する方法です...
シーマス

ええ、それは私が探していたものです。私は2007年に初めてで、それを見つけることができません。
ボブ・リバース

はい、Powerpointにはフィールドが存在しないため、機能しません。
BBlake

4
この非常に基本的な機能へのアドインがまだ必要であることはどれほど苛立たしいでしょうか?私は...年間、この問題を持っていた

回答:


2

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

http://office.microsoft.com/en-us/powerpoint/HA101181931033.aspx


2
はい、これは私が読んだ記事です。「10個」を手動​​で入力する必要はありません。私は<##> ...の<#>のようなものを探しています
ボブ・リバース

1
ああ、はい、はい、これはページ番号だけが必要な場合にのみ機能します。「全体のスライド」が必要な場合は、簡単な解決策はありません。私が考えることができる唯一の他の解決策は、これを達成するためにVBA(アプリケーション用のVisual Basic)を使用することです。私はそれがうまくいくことを知っていますが、少し複雑になるかもしれません。
BBlake

@BBlakeそのとおりです。これを実現するには、VBAが必要です。これを行う方法の詳細については、私の回答を参照してください。
trejder

7

これは基本的に、完全な実行可能ガイドに拡張されたpwrpntuserのコードです。

マクロを作成する

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

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

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

  4. マクロの名前(たとえばPageCountUpdater)を入力して、をクリックしますCreate

  5. (からマクロコードを貼り付けpwrpntuserの答えとの間または下)Sub PageCountUpdater()End Subvan最もインデントされた行を変更する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. OK3回クリックして、開いているすべてのウィンドウを確認して閉じます。マクロ対応ドキュメントを再度開きます。

この時点から、追加した場所から開いたすべてのドキュメントには警告が表示されず、常にマクロを有効にして開く必要があります。このOffice.comサポートドキュメントで、この問題に関する詳細を確認できます

脚注

1 意味パワーポイントのほとんどのバージョンではタイトルスライドがないと判断されたプレゼンテーションの最初のスライドが、として、タイトルスライドとしてスタイル任意のスライド。新しいスライドタイプを挿入すると、さまざまなスライドタイプが表示されます。つまり、タイトルとしてスタイル設定されたスライドがない場合は、すべてのスライドにページ番号が追加されます。反対に、プレゼンテーション内で多くのタイトルスライドを使用した場合、たとえば異なるセクションやブロックをマークする場合、すべてのタイトルスライドに番号がありません。

2 すべてのGUI要素の名前は、ポーランド語版のPowerPoint 2010のオンザフライ翻訳です。他のリリースまたはPowerPointの言語版では、それらはわずかに異なる場合があります。それに応じて調整します。


5

まず、すべてのスライドに通常のスライド番号があることを確認します。次に、モジュールを追加し、次のコードを挿入して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

3
モジュールとは何ですか?
ペッツカッコウ

この方法でスライド番号プレースホルダーの内容をプログラムで変更すると、スライドの削除/追加/移動時にスライド番号が自動的に更新されなくなります。これは解決するよりも多くの問題を引き起こすと思います。
OfficeAddinDev


0

xの<#>をマスタースライドのテキストボックスに入れてから、スライドに「スライド番号」を追加するというWebページを見つけました。簡単に動作するようにしましたが、それを移動して再試行すると、スライド番号全体がxに取り込まれなくなりました。しかし、このソリューションはほとんどのユーザーにとって実行可能です。


はい...そして、このウェブページはすでにあなたのものより15年古い答えでここに言及されています
trejder

0

「#のスライド#」でフッターを更新するわずかに異なるコードを次に示します。非表示のスライドを合計に含めないことにしました。スライド1の非表示のアクションボタンの上にマウスを置いてこのコードを実行しています。

Dim SlideTotal As Integer
Dim VisibleSlides As Integer
Dim SlideNum As Integer
Dim i As Integer

With ActivePresentation

    SlideTotal = .Slides.Count

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            VisibleSlides = 1 + VisibleSlides
        End If
    Next

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            SlideNum = 1 + SlideNum
            .Slides(i).HeadersFooters.Footer.Visible = msoCTrue
            .Slides(i).HeadersFooters.Footer.Text = "Slide " & SlideNum & " of " & VisibleSlides
        Else
            .Slides(i).HeadersFooters.Footer.Visible = -msoFalse
        End If
    Next

End With

スーパーユーザーへようこそ。何年も前の質問に対する回答があり、回答が受け入れられていることをご承知おきください。そうすることには何の問題もありませんが、応答が返されることはほとんどありません。
チャーリーRB
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.