PPT中为VBA添加自定义动画

PPT里面没法直接为文本框添加动画，或许可以这样试试：

1、文本框的初始状态设为隐藏；

2、在文本框上面添加一个矩形图元，背景和边框等都做得像文本框的样子；

3、然后为这个矩形图元添加动画，动画的最后一步是图元消失；

4、VBA里面响应SlideShowNextBuild事件，检查如果是文本框所携棚在的裂隐笑这个页面时，将文本框设为可见。

连在一起的效肆含果，就看起来类似是文本框的动画了。

不过，只是我的猜想，不知道实际行不行。楼主可以试试看……

关于第二个问题：

主要是要保证其它电脑上的宏安全性设置为“中”或者“低”，另外就是你的VBA脚本里面没有引用了你自己电脑上的一些文件资源等。

1、本次 *** 作演示使用的Office办公软件为Power Point 2013版本。

2、在Power Point中插入幻灯片，在幻灯片中输入演示文档，文档用于演示如何在Power Point中批量添加动戚察画效果的设置 *** 作。

3、鼠标选中单个文本数据，然后点击菜单栏中的动画工具，在动画工具栏梁历下橡仔搜选择所需的动画效果设置，这时我们会发现设置上动画效果的只是鼠标选中的文本内容，然后我们点击键盘上的Ctrl+A即可批量选中幻灯片中的所有文本数据并且将其自动设置成同以上的动画效果相同。

4、这时我们就可以看到，幻灯片中已经批量设置了相同的动画效果了。

1、首先我们需要打开 *** 作的PPT文件颂举，插入我们所需要的图片后，选中任意一张图片，点击上方的动画，并未图片加入任意一种动画效果。这里以第一张为例增添劈裂效果。

2、此时，设置好了第一张的动画之后，我们开始对其他三张图片进行设置同样的动画。选中第一张已经设野中碧置动画的图片，点击上方工具栏中的动画，并在d出窗口中双击动画刷，记住，是双击动画刷按钮。

3、在双击“动画刷”之后，分别点击其余的3张图片即可，即分别为剩余3张图片复制了一样的动培租画。

---