PowerPointプレゼンテーションのスライドの合計量を脚注に挿入することはできますか?自動化された方法を探しています。
もちろん、フッターを編集して手動で挿入することもできますが、スライドを増減する場合は、調整する必要があります。そして、これは私たちがいつも忘れているものです。
マイクロソフトのヘルプでは、手動で行う方法について説明しています。PowerPointにそれがないとは信じられません...
PowerPointプレゼンテーションのスライドの合計量を脚注に挿入することはできますか?自動化された方法を探しています。
もちろん、フッターを編集して手動で挿入することもできますが、スライドを増減する場合は、調整する必要があります。そして、これは私たちがいつも忘れているものです。
マイクロソフトのヘルプでは、手動で行う方法について説明しています。PowerPointにそれがないとは信じられません...
回答:
作成するすべてのプレゼンテーションに自動的に追加するオプションまたは構成設定を探している場合、それはありません。ただし、ヘッダーまたはフッターを編集する場合は、そこにスライド番号を自動的に追加して、すべてのスライドに表示させることができます。
http://office.microsoft.com/en-us/powerpoint/HA101181931033.aspx
これは基本的に、完全な実行可能ガイドに拡張されたpwrpntuserのコードです。
PowerPoint 2007以降では、プレゼンテーションを.pptm
拡張機能で保存したことを確認してください(マクロを使用した標準プレゼンテーションが許可されています)。
「マクロ」ウィンドウを開きます2。PowerPoint 2007以降では、View
タブ(最後)をMacro
クリックし、最後のツールバーグループのボタンをクリックします。初期のバージョンではTools > Macro
、メニューから選択します。
マクロの名前(たとえばPageCountUpdater
)を入力して、をクリックしますCreate
。
(からマクロコードを貼り付けpwrpntuserの答えとの間または下)Sub PageCountUpdater()
とEnd Sub
。van
最もインデントされた行を変更するof
か、言語に似たものに変更します。
マクロを保存し、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
「マクロ」ウィンドウを再度開きます。
保存したPageCountUpdater
マクロを選択してを押しRun
ます。
これは毎回手動で行う必要があります。キーボードショートカットは大歓迎です。しかし... PowerPointのショートカットを変更する方法はありません。ただし、市販のプラグインを購入する場合は、1台のコンピューターにつき20ドルから料金を支払う必要があります。最後を参照してください。このまたはこの詳細についての記事を。
このマクロは、必要なときにのみ実行されます。ライブマクロではありません。実際のスライド数でフィールドを更新し、それだけです。フィールド自体は標準のテキストフィールドです。魔法はありません。つまり、ファイルを簡単に変換して.pptx
このマクロを捨てることができます。確信が持てば、プレゼンテーションが完了し、スライドをこれ以上追加しないことになります。マクロが削除されると、フィールドはそのまま残り、値は変更されません。
これは、多くのユーザーがマクロや多くのプレゼンテーション場所、見本市、会議などのドキュメントを好まないため、.pptm
ファイルを実行させないため快適です。
このマクロは、手動で削除した場合でも、すべてのスライド(タイトルのスライドを除く、末尾の脚注1を参照)で番号付けフィールドを再作成するため、これも優れています。したがって、スライドの最終的な数と順序を確認した後、最後にもう一度実行してから、削除することができます。
.pptm
拡張機能とマクロを内部に保持することにした場合、このドキュメントは常にマクロを無効にして開かEnable macros
れ、デフォルト設定で実行する場合は毎回クリックして有効にする必要があります。
文書が自分のものである場合、悪意のあるコードが含まれておらず、すべてが安全な場所(一時フォルダーまたは共有フォルダーではない)に保存されていることを信頼する場合、これらのファイルを常に開くように各Officeプログラムの設定を変更できます有効なマクロ。
最も簡単な方法は、PowerPointの安全な場所にマクロ対応プレゼンテーションを含むフォルダーを追加することです。
これをする:
クリックしてFile
、タブ、Options
ボタン、Trust Center
セクションおよびTrust Center Settings
ボタンを。
行くTrusted locations
部分(第2)とをクリックしてAdd new location...
ボタンを押します。
フォルダーパスをPath
フィールドに貼り付けるか選択し、オプションで、追加された場所のすべてのサブフォルダーも信頼できるものとして扱う必要があることを確認します。
OK
3回クリックして、開いているすべてのウィンドウを確認して閉じます。マクロ対応ドキュメントを再度開きます。
この時点から、追加した場所から開いたすべてのドキュメントには警告が表示されず、常にマクロを有効にして開く必要があります。このOffice.comサポートドキュメントで、この問題に関する詳細を確認できます。
1 意味パワーポイントのほとんどのバージョンではタイトルスライドがないと判断されたプレゼンテーションの最初のスライドが、として、タイトルスライドとしてスタイル任意のスライド。新しいスライドタイプを挿入すると、さまざまなスライドタイプが表示されます。つまり、タイトルとしてスタイル設定されたスライドがない場合は、すべてのスライドにページ番号が追加されます。反対に、プレゼンテーション内で多くのタイトルスライドを使用した場合、たとえば異なるセクションやブロックをマークする場合、すべてのタイトルスライドに番号がありません。
2 すべてのGUI要素の名前は、ポーランド語版のPowerPoint 2010のオンザフライ翻訳です。他のリリースまたはPowerPointの言語版では、それらはわずかに異なる場合があります。それに応じて調整します。
まず、すべてのスライドに通常のスライド番号があることを確認します。次に、モジュールを追加し、次のコードを挿入して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
使用しているPowerPointのバージョンによっては、Bill Dilworthの PowerPoint用アドインが役立つ場合があります。これがまさにその目的です。
「#のスライド#」でフッターを更新するわずかに異なるコードを次に示します。非表示のスライドを合計に含めないことにしました。スライド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