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