PPT中使用VBA添加进度条

最新推荐文章于 2023-04-24 21:48:39 发布

volareneo

最新推荐文章于 2023-04-24 21:48:39 发布

阅读量683

点赞数

文章标签：深度学习

原文链接：https://blog.youkuaiyun.com/fandroid/article/details/45970243

版权

这篇文章介绍了如何使用VBA在PowerPoint中创建一个可以根据幻灯片数量动态调整的进度条，帮助用户跟踪演示过程。通过VBE编辑器插入模块并运行代码，即可在每一页幻灯片底部显示进度条，颜色和长度随页面变化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

转自：https://blog.youkuaiyun.com/fandroid/article/details/45970243
侵删
用 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 - 6, _
              X * .PageSetup.SlideWidth / .Slides.Count, 5) '条高度
              s.Fill.ForeColor.RGB = RGB(246, 202, 5) '设置颜色
              s.Name = "PB"
              Next X:
        End With
End Sub