68手游网

第五，VBA代码为ppt添加页码进度条

　　我们还可以为PPT加个控制页码的进度条，展示一下，效果如下图左下角所示。通过比较，这种进度条展示页码，比右下角的“第3页，共22页”活跃好看很多。

　　如果你喜欢，也可以用进度条取代文字式的页码。

　　用 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 - 3, _
X * .PageSetup.SlideWidth / .Slides.Count, 3) '条高度
s.Fill.ForeColor.RGB = RGB(246, 202, 5) '设置颜色
s.Name = "PB"
Next X:
End With
End Sub