萬盛學電腦網

 萬盛學電腦網 >> PowerPoint教程 >> PPT基礎知識 >> 控制PowerPoint裡的Flash歌曲播放的方法

控制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,可以了吧

copyright © 萬盛學電腦網 all rights reserved