先锋动漫电子杂志
注册请使用正确的邮箱地址,注册需要邮箱激活
最新主题
» 宝马 跑车 --我来抢个位 呵呵
周六 八月 21, 2010 6:58 pm 由 帕瓦

» 《火影忍者》与《美食猎人》特别篇动画DVD
周四 一月 07, 2010 11:49 am 由 天贪之狼

» [海贼王]第10弹剧场版召开试看会
周三 一月 06, 2010 10:51 am 由 天贪之狼

» 再读《文学少女》第一卷《文学少女と死にたがりの道化》
周日 十二月 27, 2009 9:27 am 由 不灭蛇魂

» 惠临神明的文学少女
周日 十二月 27, 2009 9:16 am 由 不灭蛇魂

» 【COS】『K-START』社团〓〓Versailles〓〓预告
周日 十二月 13, 2009 10:41 pm 由 咻咻—撒麻

» 动画片《孔子》将播 打造经典国学动漫产品
周六 十二月 12, 2009 8:24 pm 由 Kinyo23

» fusion基本功能,或者说是后期软件基本功能总结。
周五 十二月 11, 2009 9:24 pm 由 shcsaa

» 一个动画小瘪三--“渣干”的故事
周三 十二月 09, 2009 11:34 am 由 xinyl

搜索
 
 

结果按:
 


Rechercher 高级搜索


控制PowerPoint里的Flash歌曲播放

向下

控制PowerPoint里的Flash歌曲播放

帖子  木头 于 周三 十二月 02, 2009 2:01 pm

 在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,可以了吧。

木头

帖子数 : 13
注册日期 : 09-12-01

返回页首 向下

返回页首


 
您在这个论坛的权限:
不能在这个论坛回复主题