爲ppt添加頁碼進度條

用 VBA 實現在 PPT 最下邊加進度條，方便查看進行到總長度的多少，根據選擇的頁面不同，進度條的長度也不同。

提示：進度條只是體現已播放的幻燈片張數，不是用於計時。

進度條的製作添加方法如下：

打開 PPT，按 Alt+F11，打開VBE編輯器，插入——模塊，並複製下面的代碼，最後單擊工具欄的“運行”按鈕。

Sub AddProgressBar()
    On Error Resume Next
        With ActivePresentation
              For X = 2 To .Slides.Count - 1 '第一頁和最後一頁不加
              .Slides(X).Shapes("PB").Delete
              Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
              0, .PageSetup.SlideHeight - 6, _
              X * .PageSetup.SlideWidth / .Slides.Count, 5) '條高度
              s.Fill.ForeColor.RGB = RGB(246, 202, 5) '設置顏色
              s.Name = "PB"
              Next X:
        End With
End Sub

 

原文鏈接：https://blog.csdn.net/fandroid/article/details/45970243