您当时的方位:主页 >  > Powerpoint

操控PowerPoint里的Flash歌曲播映的办法

2014-08-16  codeforacause.net

在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,能够了吧