控制PowerPoint里的Flash歌曲播放
在PowerPoint课件中,插入Flash动画已经不是什么新鲜事了。这不,这次的
英语课件中,应英语老师的要求,插入了网上找来的一个Flash英文歌,果然
为课件增色不少。但英语老师提出要在课件中控制这个英文歌,比如说播放
、暂停、快进、快退等。呵呵,这倒也难不倒我,用office中的VBA就可以做
到。
插入Flash影片
单击“视图/工具栏/控件工具箱”,选择“其他控件/Shockwave Flash
Object”,在幻灯片中用鼠标拖出一个方框,调整好大小。这样,我们用插
入控件的方法插入一个Flash控件,选择当前控件,在“属性”面板中作如下
设置:“Movie”中填入所需的Flash影片名称,“名称”就用默认的
“ShockwaveFlash1”,这个名称在后面的VBA编程中要用到。
插入命令按钮
1. 制作(播放)按钮
在“控件工具箱”中选择“命令按钮”,在幻灯片中拖动,即可拖出一个命
令按钮。调整好大小,在“属性”面板中作如下设置:“名称”中输入
“cmd_play”,“Caption”中输入“播放”。双击该按钮,进入VBA编辑窗
口,输入如下内容:
Private Sub cmd_play_Click()
ShockwaveFlash1.Playing = True
End Sub
2. 制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮
按钮制作的方法同上。“属性”面板中分别作如下设置:暂停按钮的“名称
”为“cmd_pause”,“Caption”为“暂停”;前进按钮按钮的“名称”为
“cmd_forward”,“Caption”为“前进”;后退按钮的“名称”为
“cmd_back”,“Caption”为“后退”;返回按钮的“名称”为
“cmd_start”,“Caption”为“返回”;结束按钮的“名称”为“cmd_end
”,“Caption”为“结束”。
分别为各个按钮加上VBA,命令依次如下:
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing = False
End Sub
Private Sub cmd_forward_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_back_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_start_Click()
ShockwaveFlash1.FrameNum = 1
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_end_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub
说明:在(前进)、(后退)、(返回)按钮中,后面均加上一条播放命令,是因
为在实际应用时,发现后面如果没有播放命令的话,Flash影片会停止播放,
所以这句是万万不可少的。
3. 播放幻灯片
看看按钮是不是可以控制影片了呢?什么?没反应,那一定是你的宏的安全
性设得太高了,单击“工具/宏/安全性”,将“安全级”设为“低”。重新
打开PowerPoint,可以了吧。
转载于:https://www.cnblogs.com/biezchle/archive/2010/12/09/1901568.html
控制PowerPoint里的Flash歌曲播放相关推荐
- 怎么控制PowerPoint里的Flash歌曲播放
在PowerPoint课件中,插入Flash动画已经不是什么新鲜事了.这不,这次的英语课件中,应英语老师的要求,插入了网上找来的一个Flash英文歌,果然为课件增色不少.但英语老师提出要在课件中控制这 ...
- 控制PowerPoint课件中Flash歌曲的播放
在PowerPoint课件中,插入Flash动画已经不是什么新鲜事了.这不,这次的英语课件中,应英语老师的要求,插入了网上找来的一个Flash英文歌,果然为课件增色不少.但英语老师提出要在课件中控制这 ...
- 宝刀不老:Flash歌曲播放网站MP3地址隐藏机制完全破解
晚上,小落给推荐了一首非常好听的Folk名谣,说是网上很难找到的.:)给了一个地址:http://www.neocha.com/naivete/music!1657.html 听了之后,很是喜欢这种风 ...
- 在Powerpoint中插入Flash的方法
利用控件插入Flash 运行Powerpoint,打开要插入动画的幻灯片. 单击菜单中的视图选项,在下拉菜单中选择工具栏的控制工具箱. 从控件工具箱中选择其它控件按钮,在随后打开的控件选项界面中,选择 ...
- jw player flash网页播放器 参数说明以及应用配置
jw player flash网页播放器 参数说明以及应用配置 1.参数解释 这些参数可以配置被嵌入到html中的播放器的行为和外观.如果使用swfobject.js,可以用addVariable() ...
- qmp32下载_U盘歌曲播放顺序调整教程
随着科技的发展和便捷程度的提高,很多舞友都开始用U盘下载歌曲,用U盘来听歌跳舞,但是好多网友比较郁闷的是歌曲的播放顺序不是自己可以控制的,不知道下一首歌曲将是什么,自己听完A曲后,想接着听B曲,可是下 ...
- 如何用VB编写FLASH动画播放器
用VB编写FLASH动画播放器 Flash4是MacroMedia公司出品的矢量动画创作专业软件,利用该软件制作的矢量动画具有文件体积小.带音效和兼容性好等特点.那么,你想不 ...
- Vue+Vuex+Element-ui实现歌曲播放控件、播放列表功能
写在前面: 根据思路写代码和写文章的区别还是挺大的,后者更多需要的是一个总结表述的能力,以及需要判断文章中呈现的东西是否有价值.做笔记和写博客同样是在记录,而博客还承担了一个供别人浏览的职能,所以如何 ...
- 【杰理AC696X】外挂FLASH音乐播放及Bin文件制作
外挂FLASH音乐播放及Bin文件制作 测试SDK版本:<ac696n_soundbox_sdk_v1.6.0> 文章目录 外挂FLASH音乐播放及Bin文件制作 前言 一.板级配置 1. ...
最新文章
- openstack用rdo方式安装时遇到的问题
- 《Javascript高级程序设计》读书笔记之对象创建
- leetcode713. 乘积小于K的子数组(双指针)
- LwIP Application Developers Manual9---LwIP and multithreading
- LeetCode--96. 不同的二叉搜索树(动态规划)
- “第八期央企CIO论坛”成功举办
- exclips为什么j创建局java出错_clips.BuildRule出错
- java 权重_java的权重匹配算法技术?
- http 网页突然报502 bad gateway,平台宕掉
- sqlmap指定cookie_Sqlmap Cookie注入 教程
- Java连接HBase
- 步进电机驱动器单片机控制电路
- python微信公众号文章爬虫(上)
- arcgis 经纬度转大地坐标_MapGIS实现大地坐标到经纬度(地理坐标)的换算
- 创建OpenGL Context(WGL)
- 手游联运新增开放平台!
- 前端面试题 —— HTML
- 对于双输入双输出系统的模型预测控制(DMC)的MATLAB实现
- 计量管理业务不规范怎么办?
- APK反编译之smali
热门文章
- php中怎样把图片改大,PHP怎么批量修改图片大小?
- 壁纸原来可以这样玩之Wallpaper Engine手机端
- 费马小定理 素性判断 蒙哥马利算法
- Windows7 Home高级 64 中文版 + TortoiseSVN 64 英文版 + SVN Server 32
- 计算机基础知识报告范文,计算机基础课程设计报告范文.doc
- 【LabVIEW】ELVIS III 、 myRIO 软件添加 软件删除 格式化磁盘
- 离线文档编辑、知识管理神器:MyBase
- Linux(openSSL)上RSA密钥生成和使用(java)
- c++禁用启用设备 usb
- python爬取论坛付费内容_Python进阶量化交易专栏场外篇20-爬虫抓取股票论坛帖子...