|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
2005-12-11, 04:51 PM | #1 |
榮譽會員
|
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,可以了吧。 |
__________________ |
|
送花文章: 3,
|