逐帧动画的循环播放
也许你会发现,在使用超级链接控制幻灯片播放的时候,如果重复播放前面放过的幻灯片,则该幻灯片设置的声音和动画就会失效。也许你还发现,你很难实现循环播放一张幻灯片里的动画。这似乎成了难
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
,很多人想出各种办法以期解决,但总达不到预期效果。所以有人称此问题为“
ppt
关于艾滋病ppt课件精益管理ppt下载地图下载ppt可编辑假如ppt教学课件下载triz基础知识ppt
运用中的世界难题,能够实现这种循环动作的人世界上没有几个”。
这种说法似乎言过其实,我想Microsoft工程师不会想不到这个问题,也许他们认为这不是一个问题,因此在自定义动画中就没有给出这种效果。但这并不等于没有实现的办法,也许只是我们对PPT功能了解得还太少。其实对有些需要循环的动画,可以采用貌似的动作,达到想要的结果。例如,如果想让一张幻灯片中的动画循环直到人工干预,可以让该页循环播放,达到以假乱真的逐帧动画的效果。也可以用VBA控制这个循环。
以下实例通过对体操中跳马动作的分解,达到逐帧动画的效果,其
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
就是让幻灯片按动画切换设置的时间间隔循环放映,直到用户按 Esc键结束。
最终效果
操作步骤
1.新建一演示文稿,设置幻灯片版式为“空白”;
2.将准备好的逐帧动画的分解图插入到第一张幻灯片中,并排好各图的位置;
3.选中所有分解图,点击“自定义动画——进入——闪烁一次”;
4.打开“效果选项”对话框,进行如下设置:
5.打开“动画片切换”任务窗,设置换片方式为每隔,秒数为循环播放的时间间隔,如
本例为每隔4秒。
6.打开工具——宏——Microsoft Visual Basic(或按Alt+F11键),进入Visual Basic编辑
器窗口,点击“插入——模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:
Sub OnSlideShowPageChange()
Set myDocument = ActivePresentation.Slides(1)
With ActivePresentation.SlideShowSettings
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = msoTrue
.Run
End With
End Sub