image
alpha

代码写的好，bug改到老

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

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

PPT 添加页码进度条

alpha    2020年9月9日 19:23:34

打开 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, .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
 
最近更新： 2020年11月10日 20:26:41
浏览： 3.5K

[[total]] 条评论

添加评论
  1. [[item.time]]
    [[item.user.username]] [[item.floor]]楼
  2. 点击加载更多……
  3. 添加评论

添加评论 登录后即可回复