在PPT中加入进度条的一种方案

在用PPT进行展示时，通过母版视图能够实现给幻灯片添加页码，而有时我们希望增加一个进度条来向观众展示我们的PPT展示到了什么进度。这时常规的PPT功能似乎就无法满足需求了，而一些第三方的，功能比较强大的插件能实现这种进度展示功能，但这类插件又可能是收费的（当然，土豪随意），因此在这里介绍一种能够添加进度条的方法，希望能给有需要的朋友带来一些帮助。

1.实现方法

这里以Office PPT为例，介绍通过VBA来实现一种进度条效果。方法如下：

1. 打开PPT中的宏视图，创建一个宏

2. 通过点击宏称，进入VBA编辑视图

3. 在代码区的起始语句和结束语句之间添加如下代码，然后保存：

   On Error Resume Next
   
   With ActivePresentation
       For X = 1 To .Slides.Count
   
           .Slides(X).Shapes