WPS演示中通过命令按钮控制Flas * 暂停或继续播放
时间:2023-03-01 14:48:43
在wps演示中可以通过控件来实现插入Flas * ,由于插入的Flas * 本身不包括控制按钮而用户又想控制动画暂停或继续播放,有什么方法可以实现呢?其实很简单的,通过命令按钮便可轻松做到这一点。前提是用户需要有VBA环境。具体的实现如下,需要的朋友可以参考参考。
WPS演示文稿插入视频后找不到快进后退怎么办?
WPS演示中,使用插入选项卡中的影片,插入的视频不能进行快进快退控制。WPS个人版安装VBA,使用控件,才能实现这样的功能。
wps演示文稿怎么隐藏动作按钮?
调整一下动作按钮的位置,就可以了,将动作按钮放到幻灯片空白处之外的地方就行,在幻灯片放映的时候,只显示空白处的内容,其他地方的内容是显示不出的
播放控制具体实现步骤
启动wps演示2010,依次单击在“插入”-“Flash(F)…”命令,在弹出的“插入Flas * ”对话框中,选择需要的文件,单击“打开”命令按钮,回到操作页面。右击Flas * 对象,修改(名称)属性为Swf。
依次单击“插入”–“图片”–“来自文件”,打开“插入图片”对话框,选中需要的图片,单击“打开”按钮完成图片插入。此时图片右侧出现“图片”工具栏,单击其中第7个“裁剪”按钮,对图片进行适当裁剪适应窗口。选中插入的Flas * 对象,将鼠标移到周围控制点上,左键拖动,调整大小和位置适当裁剪适应播放窗口。
在“控件工具箱”单击“命令按钮”,在“shockwave flash object”控件下左键按住拖出一个命令按钮,然后按住组合键CTRL向右拖出五个同样的命令按钮。
右击第一个按钮,从弹出菜单中单击“属性”,打开“属性”对话框,修改“Caption”属性为“播放”,同理依次选中其余按钮,分别把“Caption”属性修改为“暂停”、“最前”、“最后”、快进”、“快退”,关闭“属性”对话框。
按组合键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演示时,出现“安全警告”提示窗口,点击“启用宏”命令按钮,才能实现初始化代码的目标。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
在Word 2010文档中可以轻松编辑剪贴画
![](https://img.aspxhome.com/file/2023/7/20627_0s.jpg)
excel 如何实现一键全自动化统计
![](https://img.aspxhome.com/file/2023/2/a162052_0s.jpg)
wps目录字体怎么设置?
![](https://img.aspxhome.com/file/2023/0/a168740_0s.jpg)
如何设置在 word 段落文本的对齐方式
![](https://img.aspxhome.com/file/2023/4/32984_0s.jpg)
WPS文字教程:标注汉语拼音
![](https://img.aspxhome.com/file/2023/7/a165157_0s.jpg)
Excel中的两端对齐和分散对齐应用教程
![](https://img.aspxhome.com/file/2023/8/a156638_0s.jpg)
使用RIGHT函数实现字符串截取的方法
如何快速批量修改Excel批注?
![](https://img.aspxhome.com/file/2023/8/a141478_0s.png)
Word表格删除行或列
如何给Word2003文档中图片插入带有引出线的矩形标注
如何同时打印多个Excel工作表中的相同区域
![](https://img.aspxhome.com/file/2023/1/a156571_0s.jpg)
为什么wps表格编辑完后会变大
![](https://img.aspxhome.com/file/2023/5/a164095_0s.jpg)
excel文件太大的9个原因,并针对具体原因给出具体的解决方法,从而解决excel文件太大的问题
War3魔兽争霸无法全屏_War3魔兽争霸全屏教程
![](https://img.aspxhome.com/file/2023/0/48450_0s.png)
Excel中表格进行分钟加减的操作技巧
excel2007工作表中美化图表的技巧大全
![](https://img.aspxhome.com/file/2023/3/a140373_0s.jpg)
在Excel中调整编辑栏高度的三种方法
word如何输入箭头呢?word输入箭头方法介绍
![](https://img.aspxhome.com/file/2023/2/24272_0s.jpg)
wps公式编辑器怎么用?金山WPS数学公式编辑器使用教程
![](https://img.aspxhome.com/file/2023/8/a166958_0s.jpg)