PowerPoint中有時(shí)候會(huì)需要播放動(dòng)畫(huà)的，而在插入動(dòng)畫(huà)的時(shí)候要怎么控制也是一個(gè)問(wèn)題，今天小編就教教大家怎么做吧！在PowerPoint課件中，插入Flash動(dòng)畫(huà)已經(jīng)不是什么新鮮事了。這不，這次的英語(yǔ)課件中，應(yīng)英語(yǔ)老師的要求，插入了網(wǎng)上找來(lái)的一個(gè) Flash英文歌，果然為課件增色不少。但英語(yǔ)老師提出要在課件中控制這個(gè)英文歌，比如說(shuō)播放、暫停、快進(jìn)、快退等。呵呵，這倒也難不倒我，用 Office中的VBA就可以做到。

Powerpoint教程

　　插入Flash影片

　　單擊“視圖/工具欄/控件工具箱”，選擇“其他控件/Shockwave Flash Object”，在幻燈片中用鼠標(biāo)拖出一個(gè)方框，調(diào)整好大小。這樣，我們用插入控件的方法插入一個(gè)Flash控件，選擇當(dāng)前控件，在“屬性”面板中作如下設(shè)置：“Movie”中填入所需的Flash影片名稱，“名稱”就用默認(rèn)的“ShockwaveFlash1”，這個(gè)名稱在后面的VBA編程中要用到。

　　插入命令按鈕

　　1. 制作（播放）按鈕

　　在“控件工具箱”中選擇“命令按鈕”，在幻燈片中拖動(dòng)，即可拖出一個(gè)命令按鈕。調(diào)整好大小，在“屬性”面板中作如下設(shè)置：“名稱”中輸入“cmd_play”，“Caption”中輸入“播放”。雙擊該按鈕，進(jìn)入VBA編輯窗口，輸入如下內(nèi)容：

　　Private Sub cmd_play_Click（）

　　ShockwaveFlash1.Playing = True

　　End Sub

　　2. 制作（暫停）、（前進(jìn)）、（后退）、（返回）、（結(jié)束）按鈕

　　按鈕制作的方法同上。“屬性”面板中分別作如下設(shè)置：暫停按鈕的“名稱”為“cmd_pause”，“Caption”為“暫停”；前進(jìn)按鈕按鈕的“名稱”為“cmd_forward”，“Caption”為“前進(jìn)”；后退按鈕的“名稱”為“cmd_back”，“Caption”為“后退”；返回按鈕的“名稱”為“cmd_start”，“Caption”為“返回”；結(jié)束按鈕的“名稱”為“cmd_end”，“Caption”為“結(jié)束”。

　　分別為各個(gè)按鈕加上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

　　說(shuō)明：在（前進(jìn)）、（后退）、（返回）按鈕中，后面均加上一條播放命令，是因?yàn)樵趯?shí)際應(yīng)用時(shí)，發(fā)現(xiàn)后面如果沒(méi)有播放命令的話，F(xiàn)lash影片會(huì)停止播放，所以這句是萬(wàn)萬(wàn)不可少的。

　　3. 播放幻燈片

　　看看按鈕是不是可以控制影片了呢？什么？沒(méi)反應(yīng)，那一定是你的宏的安全性設(shè)得太高了，單擊“工具/宏/安全性”，將“安全級(jí)”設(shè)為“低”。重新打開(kāi)PowerPoint，可以了吧