在PPT中控制swf的播放
一、实现的效果:
可以实现对插入到PPT中的swf影片,进行"暂停"、"播放"、"循环播放"、"不循环播放"、"快进"、"后退"、"回首帧"、"到末帧"等类控制。
二、制作方法:
1,启动Microsoft Office PowerPoint 2003,单击主菜单中的“视图”=>“工具栏”=>“控件工具箱”,调出“控件工具箱”面板。
2,单击“控件工具箱”中的“其他控件”,在弹出的下拉列表中,找到“ShockWaveFlash Object”这个控件单击。
3,鼠标指针变成十字型后,在幻灯片页面上要插入swf的合适位置,拖出一个矩形框(注:框中会出现一个大叉子),这就是用来插入swf的占位框。
4,右键单击该占位框,弹出的菜单中单击“属性”,再从弹出的“属性”面板中找到“movie”栏,在其右侧输入要插入swf的完整路径,比如:D:\f8\xxt81.swf。直接读取网上的swf文件也是可以的。如果swf动画与本PPT文件在同一个文件夹,则只要输入动画的文件名即可,如:xxt81.swf。
5,再在“属性”面板中找到“embedMovie”栏,把右侧的选项取为“true”。这个选项是让swf文件存储在PPT档案中。如果值为“False”,则要将swf动画与本PPT文件放在一起才能播放,你发给别人时也要把swf动画与本PPT文件一起发过去。
6,在 Word 2003和Excel 2003中插入swf动画的方法同上面类似。
7,swf动画的控制:
(01)从“控件工具箱”中选取“切换按钮(ToggleButton)”,在放置swf动画的页面上合适位置,拖出二个“切换按钮”;再从“控件工具箱”中选取“命令按钮(CommandButton)”,在合适位置,拖出四个“命令按钮”;六个按钮摆成一横排。(摆法各人自定)
(02)右键单击“切换按钮”,弹出的菜单中单击“属性”,会打开按钮“属性”面板。
(03)在“属性”面板中,把二个“切换按钮”的Caption属性,分别改为“播放”、"循环播放";把四个“命令按钮”的Caption属性,分别改为“前进”、"后退"、“首帧”、"末帧"。
(04)双击"播放"按钮,打开Visual Basic编辑器,输入如下代码:
Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "播放" Then
ShockwaveFlash1.Playing = True
ToggleButton1.Caption = "暂停"
Else
ShockwaveFlash1.Playing = False
ToggleButton1.Caption = "播放"
End If
End Sub
(05)双击"循环播放"按钮,输入如下代码:
Private Sub ToggleButton2_Click()
If ToggleButton2.Caption = "循环播放" Then
ShockwaveFlash1.Loop = True
ToggleButton2.Caption = "不循环播放"
Else
ShockwaveFlash1.Loop = False
ToggleButton2.Caption = "循环播放"
End If
End Sub
(06)双击"前进"按钮,输入如下代码:
ShockwaveFlash1.Forward'前进一帧
或者:
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 1'前进一帧
如果要一次前进多帧,比如说五帧,则代码如下:
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 5'前进五帧
如果前进几帧后要同时播放,则要同时加上下列这一行:
ShockwaveFlash1.Playing = True
(07)双击"后退"按钮,输入如下代码:
Private Sub CommandButton2_Click()
ShockwaveFlash1.Back'后退一帧
'ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 5'后退五帧
ShockwaveFlash1.Playing = True’后退并播放
End Sub
(08)双击"首帧"按钮,输入如下代码:
Private Sub CommandButton3_Click()
ShockwaveFlash1.FrameNum = 1'返回第一帧
End Sub
(09)双击"末帧"按钮,输入如下代码:
Private Sub CommandButton4_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames'跳到末帧
End Sub
(10)请单击主菜单中的“工具”=>“宏”=>“安全性”,在弹出的对话框中,把“安全级”设为“低”。
说明:以上代码在MicrosoftOffice PowerPoint 2003中运行通过,不含恶意代码。
2012-02-23-10:30
本文见:D:\PPT\20120223,在PPT中控制swf的播放.txt
制作见:D:\PPT\20120222,在PPT中控制swf的播放.ppt