播放控制具体实现步骤:
1、启动wps演示2010,依次单击在“插入”-“Flash(F)…”命令,在弹出的“插入Flash动画”对话框中,选择需要的文件,单击“打开”命令按钮,回到操作页面。右击Flash动画对象,修改(名称)属性为swf。
2、依次单击“插入”–“图片”–“来自文件”,打开“插入图片”对话框,选中需要的图片,单击“打开”按钮完成图片插入。此时图片右侧出现“图片”工具栏,单击其中第7个“裁剪”按钮,对图片进行适当裁剪适应窗口。选中插入的Flash动画对象,将鼠标移到周围控制点上,左键拖动,调整大小和位置适当裁剪适应播放窗口。
3、在“控件工具箱”单击“命令按钮”,在“shockwave flash
object”控件下左键按住拖出一个命令按钮,然后按住组合键CTRL向右拖出五个同样的命令按钮。
右击第一个按钮,从弹出菜单中单击“属性”,打开“属性”对话框,修改“Caption”属性为“播放”,同理依次选中其余按钮,分别把“Caption”属性修改为“暂停”、“最前”、“最后”、快进”、“快退”,关闭“属性”对话框。
4、按组合键ALT+F11,进入代码编辑窗口,单击“对象”右侧的下拉按钮,选择“CommandButton1”项,默认是Click事件,
在代码对话框的Private Sub CommandButton1_Click()和End Sub之间输入如下代码: Swf.Playing =
True
单击“对象”右侧的下拉按钮,选择“CommandButton2”项,在两句代码之间输入如下代码:
Swf.Playing = False
单击“对象”右侧的下拉按钮,选择“CommandButton3”项,在两句代码之间输入如下代码:
Swf.FrameNum = 1
Swf.Playing = True
单击“对象”右侧的下拉按钮,选择“CommandButton4”项,在两句代码之间输入如下代码:
Swf.FrameNum = Swf.TotalFrames
Swf.Playing = False
单击“对象”右侧的下拉按钮,选择“CommandButton5”项,在两句代码之间输入如下代码:
Swf.FrameNum =
Swf.FrameNum+50
Swf.Playing = True
单击“对象”右侧的下拉按钮,选择“CommandButton6”项,在两句代码之间输入如下代码:
Swf.FrameNum = Swf.FrameNum -50
Swf.Playing = True
按键盘功能键F5,观看放映,满意后保存。
注意:
①WPS的个人用户需要有VBA环境,设置宏安全性中安全级为低或中,照此实施代码才会起作用。
②重新打开wps演示时,出现“安全警告”提示窗口,点击“启用宏”命令按钮,才能实现初始化代码的目标。
wps能方便地导入flash,但要想控制它,除非flash本身有控制按钮,非则非常麻烦,需要在控件工具箱去找命令按钮,还要设置属性,还要写代码……其实有个更简单的办法,把FLASH文件转换成视频格式的文件,再导入视频,那么在播放控件上就自动出现了播放暂停按钮
利用控件,插入命令按钮来控制flash播放。
首先确保系统中已经安装了Shockwave Flash Object插件(只要IE中可以播放Flash动画就表明已经安装)。
启动PowerPoint 2002/2003,用控件工具将需要插入的Flash动画插入进来。
在控件工具箱中将命令按钮拖动两个到幻灯片中,其名称分别为CommandButton1和CommandButton2,分别用右键点击它们,在属性窗口中将Caption改为“暂停”、“播放”。
双击“暂停”按钮,在代码窗口中输入”Slide1.shockwaveFlash1.Stop”,保存后双击“播放”按钮,在代码窗口中输入“Slide1.shockwaveFlash1.Play”。
关闭代码编写返回幻灯片中,播放幻灯片单击按钮即可。