-PPT模板免费下载!

逐帧动画——PPT动画循环播放的实现

时间:2012-06-06 08:59来源:未知 作者:cnppt 点击:

也许你会发现,在使用超级链接控制幻灯片播放的时候,如果重复播放前面放过的幻灯片,则该幻灯片设置的声音和动画就会失效。也许你还发现,你很难实现循环播放一张幻灯片里的动画。这似乎成了难题,很多人想出各种办法以期解决,但总达不到预期效果。老猫曾在扑奔PPT论坛看到过关于这个问题的讨论,无极版主称这个问题是“PPT运用中的世界难题,能够实现这种循环动作的人世界上没有几个”。
这种说法似乎太言过其实,我想Microsoft工程师不会想不到这个问题,也许他们认为这不是一个问题,因此在自定义动画中就没有给出这种效果。但这并不等于没有实现的办法,只是我们对PPT功能了解得太少。尽管PPT因功能强大、使用方便积攒了极高的人气,但遗憾的是,90%的使用者仅仅使用了其功能的10%左右,而其中更精彩的VBA编程部分却很少有人开发和利用。因此难免有被无极称为“世界难题”的问题,对这一“世界难题”,老猫只用了几行VBA语句就轻松搞定。
所以,老猫对此的结论是:只是不知道,PPT真的很奇妙!

实例描述
虽然PPT没有Flash的补间动画功能,但却可以用逐帧动画来弥补这一缺憾。本例通过对体操中跳马动作的分解,用逐帧动画形式完成跳马这一完整运动过程。同时按动画片切换设置的时间间隔循环放映,直到用户按 Esc键。
copyright dedecms


设计关键
1.逐帧动画素材的准备。
2.自定义动画效果。
3.编写VBA代码,实现循环功能。

最终效果

操作步骤
1.新建一演示文稿,设置幻灯片版式为“空白”;
2.将准备好的逐帧动画的分解图插入到第一张幻灯片中,并排好各图的位置;

3.选中所有分解图,点击“自定义动画——进入——闪烁一次”;
4.打开“效果选项”**框,进行如下设置:



5.打开“动画片切换”任务窗,设置换片方式为每隔,秒数为循环播放的时间间隔,如本例为每隔4秒。

6.打开工具——宏——Microsoft Visual Basic(或按Alt+F11键),进入Visual Basic编辑器窗口,点击“插入——模块”菜单命令,在弹出的代码编辑窗口中输入以下代码: copyright dedecms

代码如下:
Sub OnSlideShowPageChange()
Set myDocument = ActivePresentation.Slides(1)
With ActivePresentation.SlideShowSettings
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = msoTrue
.Run
End With
End Sub

举一反三
解决了一张幻灯片循环播放问题,在类似飞鸟、人物行走等动画中,可以通过背景图的不断移动达到动作的持续。
标签:PPT教程
(如果您觉得本站不错,请告诉身边的朋友,或转载到论坛、百度知道、贴吧等,记得带网址哟,不胜感激!)
http://www./ppt/jiaocheng/590.html
顶一下
(2)
100%
踩一下
(0)
0%

与“逐帧动画——PPT动画循环播放的实现”相关教程:

发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
用户名: 验证码: 点击我更换图片
热门标签