免责声明:网站内容仅供个人学习记录,禁做商业用途,转载请注明出处。

版权所有 © 2017-2020 NEUSNCP个人学习笔记 辽ICP备17017855号-2

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...

继续阅读 »
分享到: