也许你会发现，在使用超级链接控制幻灯片播放的时候，如果重复播放前面放过的幻灯片,则该幻灯片设置的声音和动画就会失效。也许你还发现，你很难实现循环播放一张幻灯片里的动画。这似乎成了难题，很多人想出各种办法以期解决，但总达不到预期效果。老猫曾在扑奔PPT论坛看到过关于这个问题的讨论，无极版主称这个问题是“PPT运用中的世界难题，能够实现这种循环动作的人世界上没有几个”。
这种说法似乎太言过其实，我想Microsoft工程师不会想不到这个问题，也许他们认为这不是一个问题，因此在自定义动画中就没有给出这种效果。但这并不等于没有实现的办法，只是我们对PPT功能了解得太少。尽管PPT因功能强大、使用方便积攒了极高的人气，但遗憾的是，90％的使用者仅仅使用了其功能的10％左右，而其中更精彩的VBA编程部分却很少有人开发和利用。因此难免有被无极称为“世界难题”的问题，对这一“世界难题”，老猫只用了几行VBA语句就轻松搞定。
所以，老猫对此的结论是：只是不知道，PPT真的很奇妙！
实例描述
虽然PPT没有Flash的补间动画功能，但却可以用逐帧动画来弥补这一缺憾。本例通过对体操中跳马动作的分解，用逐帧动画形式完成跳马这一完整运动过程。同时按动画片切换设置的时间间隔循环放映，直到用户按 Esc键。
设计关键
1.逐帧动画素材的准备。
2.自定义动画效果。
3.编写VBA代码，实现循环功能。
最终效果
操作步骤
1.新建一演示文稿，设置幻灯片版式为“空白”；
2.将准备好的逐帧动画的分解图插入到第一张幻灯片中，并排好各图的位置；
3.选中所有分解图，点击“自定义动画——进入——闪烁一次”；
4.打开“效果选项”**框，进行如下设置：
5.打开“动画片切换”任务窗，设置换片方式为每隔，秒数为循环播放的时间间隔，如本例为每隔4秒。
6.打开工具——宏——Microsoft Visual Basic(或按Alt+F11键),进入Visual Basic编辑器窗口，点击“插入——模块”菜单命令，在弹出的代码编辑窗口中输入以下代码：
强国说学习www.qiangguoshuo.com
代码如下：Sub OnSlideShowPageChange()
Set myDocument = ActivePresentation.Slides(1)
With ActivePresentation.SlideShowSettings
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = msoTrue
.Run
End With
End Sub
举一反三
解决了一张幻灯片循环播放问题，在类似飞鸟、人物行走等动画中，可以通过背景图的不断移动达到动作的持续
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
