PPT自动添加进度条与页码

最终效果如下：

下面是操作步骤：

打开 PPT，按 Alt+F11，打开VBE编辑器，插入——模块，并复制下面的代码，最后单击工具栏的“运行”按钮。
（ 转载自 ：alpha - PPT 添加页码进度条）
可自动添加进度条。代码中的颜色、大小请手动定义。

Sub AddProgressBar()
    On Error Resume Next
        With ActivePresentation
              For X = 2 To .Slides.Count '第一页和最后一页不加
              .Slides(X).Shapes("PB").Delete
              Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
              0, .PageSetup.SlideHeight - 5, _
              X * .PageSetup.SlideWidth / .Slides.Count, 5) '条高度
              s.Fill.ForeColor.RGB = RGB(56, 93, 138) '设置颜色
              s.Name = "PB"
              Next X:
        End With
End Sub

添加右下角的页码很简单，进入“幻灯片母版”视图，插入页码再全部应用即可。

由于生成的是长方形，上面的代码可以简化，用一定粗细的描边达到同样的效果：

Sub AddProgressBar()
    On Error Resume Next
        With ActivePresentation
              For X = 2 To .Slides.Count '第一页和最后一页不加
              .Slides(X).Shapes("PB").Delete
              Set s = .Slides(X).Shapes.AddLine( _
              0, 0, X * .PageSetup.SlideWidth / .Slides.Count, 0)' 指定线条的起始点和终点，以左上角为原点
              s.Line.Weight = 8 '设置描边宽度，描边默认从中心向两边
              s.Line.ForeColor.RGB = RGB(0, 0, 255) '设置描边颜色
              s.Name = "PB"
              Next X:
        End With
End Sub