在PowerPoint課件中，插入Flash動畫已經(jīng)不是什么新鮮事了。這不，這次的英語課件中，應英語老師的要求，插入了網(wǎng)上找來的一個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. 制作(暫停)、(前進)、(后退)、(返回)、(結束)按鈕
    按鈕制作的方法同上?！皩傩浴泵姘逯蟹謩e作如下設置：暫停按鈕的“名稱”為“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
    說明：在(前進)、(后退)、(返回)按鈕中，后面均加上一條播放命令，是因為在實際應用時，發(fā)現(xiàn)后面如果沒有播放命令的話，F(xiàn)lash影片會停止播放，所以這句是萬萬不可少的。
    3. 播放幻燈片
    看看按鈕是不是可以控制影片了呢？什么？沒反應，那一定是你的宏的安全性設得太高了，單擊“工具/宏/安全性”，將“安全級”設為“低”。重新打開PowerPoint，可以了吧。