☰

在 PowerPoint 2007 中插入投影片總數

tag-icon • tag-icon microsoft-powerpoint-2007
在 PowerPoint 2007 中插入投影片總數

是否可以將 PowerPoint 簡報中投影片的總數插入腳註中？我正在尋找一種自動化的方式。

當然，我可以編輯頁腳並手動放入，但是如果我增加/減少幻燈片，則需要對其進行調整。這是我們總是忘記的事。

這來自微軟的幫助解釋如何手動執行此操作。我不敢相信 PowerPoint 沒有它...

答案1

如果您正在尋找一種選項或配置設置，可以自動將其添加到您建立的每個簡報中，那麼沒有這樣的選項或配置設定。但是，如果您編輯頁首或頁尾，則可以自動在其中新增投影片編號並讓它們顯示在所有投影片上。

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

答案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。

你完成了。要插入的代碼（完整且帶有更正的“粘合詞”）：

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 的快捷方式，除非購買商業插件，您必須為每台電腦支付 20 美元起的價格。見結尾這或者這文章了解詳細資訊。

刪除巨集

該巨集僅在您需要時運行。它不是實時宏。它用實際幻燈片計數更新字段，僅此而已。字段本身是一個標準文字字段。沒有魔法。這意味著，.pptx一旦您確定簡報已完成並且您將不再向其中添加更多幻燈片，您就可以輕鬆地將文件轉換回並丟棄該巨集。一旦巨集被刪除，欄位將保留在其位置，其值不變。

這很舒服，因為許多用戶不喜歡帶有巨集的文檔，並且許多演示場所、展覽會、會議等根本不允許您運行.pptm文件。

這也很好，因為這個巨集會在所有投影片上重新建立編號欄位（標題除外 - 請參閱最後的註腳 1），即使您手動刪除它們。因此，在確定投影片的最終數量和順序後，您應該最後運行一次，然後將其刪除。

開啟啟用巨集的文件

如果您決定將副檔名和巨集保留在內部，則該文件將始終在停用巨集的情況下打開，並且每次都.pptm必須按一下（如果您在預設設定下運行）才能啟用它們。Enable macros

如果文件是您自己的，您相信它們不包含惡意程式碼，並且它們都儲存在安全位置（即不在某個臨時或共用資料夾中），您可以更改每個Office 程式設置，使這些檔案始終使用以下命令開啟巨集已啟用。

最簡單的方法是將包含啟用巨集的簡報的資料夾新增至 PowerPoint 中的安全位置。

去做這個：

  1. 點選File選項卡、Options按鈕、Trust Center部分和Trust Center Settings按鈕。

  2. 轉到Trusted locations部分（第二）並點擊Add new location...按鈕。

  3. 將資料夾路徑貼上或選擇到Path欄位中，並可選擇檢查新增位置中的所有子資料夾是否也應視為受信任。

  4. 點擊OK三次以確認並關閉所有開啟的視窗。重新開啟啟用巨集的文檔。

從此時起，從剛剛新增的位置開啟的所有文件不應顯示任何警告，並且應始終在啟用巨集的情況下開啟。您可以在以下位置找到有關此問題的更多詳細資訊：此 Office.com 支援文檔。

註腳

1 在大多數版本的 PowerPoint 中，意義標題投影片被確定不為簡報中的第一張投影片，但作為任何樣式為標題投影片的投影片。插入新投影片時，您可以看到不同的投影片類型。這意味著，如果您沒有設定標題樣式的投影片，則會將頁碼新增至所有投影片。相反地​​——如果你使用了很多標題投影片在簡報內部，例如標記不同的部分或區塊，所有這些都將缺少編號。

2 所有 GUI 元素的名稱都是從我的波蘭語版本的 PowerPoint 2010 中即時翻譯的。相應地進行調整。

答案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

我發現一個網頁說您將 x 的 <#> 放入主幻燈片的文字方塊中，然後將「幻燈片編號」新增到幻燈片中。我讓它短暫地工作了，但是當我移動它並再次嘗試時，它不再將完整的幻燈片編號填充到 x 中。但這個解決方案對大多數使用者來說可能是可行的。

相關內容