[psac]

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