PPT 添加页码进度条

打开 PPT,按 Alt+F11,打开VBE编辑器,插入模块,并复制下面的代码,最后单击工具栏的运行按钮。 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, .PageSe...

Continue Reading »
分享到: