在PowerPoint課件中實現(xiàn)
對Flash影片的控制
現(xiàn)在我們用PPT做課件時,常常為了豐富課件內(nèi)容,在其中插入Flash動畫.當然我們自己在做Flash動畫時都會制作好控制動畫播放的按鈕.可是當我們用別人的動畫素材時那可就不一定了,特別是我們是將網(wǎng)上的視頻文件轉(zhuǎn)換成的swf文件那就更沒有播放控制按鈕了.上一次我就遇到了這樣的事,一位語文老師讓我?guī)椭稣n件,下了一個課文朗讀動畫來用.可是這位老師想用這個動畫錄音進行帶讀,可動畫錄音中沒有控制按鈕.這一下到了考驗我的時候了.可我是誰啊,這么點小問題就能難住我,還叫什么“高手”呢?哈哈
想了想,我感覺用“宏”是可以解決這個問題的.想到就出手.下面將我的方法給大家分享,誰讓我這么“無私”呢!
打開PPT文檔,插入FLASH文件.方法為:“視圖”->“工具欄”->“控件工具箱”-“其它工具圖標”,從下拉列表中選擇“ShockWave Flash Object”選項,鼠標變成“+”形狀,將其拖動即出現(xiàn)Flash控件圖形。--單擊“控件工具箱”上的“屬性”按鈕,打開屬性對話框。--選擇“自定義”,單擊“瀏覽”按鈕,在彈出的對話框中的“Movie URL”中輸入. swf文件名稱(請將swf文件放在ppt同一文件夾中),并調(diào)整“play”,“quality”,“l(fā)oop”等其它屬性。如果播放時flash文件不能顯示,請下載最新版Adobe Flash Player安裝。
在“視圖”-“工具欄”中打開“控件工具箱”,選擇“命令按鈕”,在幻燈片中拖動,調(diào)整好大小和位置,在“屬性”面板中的“名稱”中輸入“cmd_play”,在“caption”中輸入“播放”.其它按鈕用同樣的方法,只是在“屬性”面板中以上兩項設(shè)置不同,“暫?!卑粹o名稱為“cmd_pause”, “caption”中輸“暫?!保扒斑M”按鈕名稱為“cmd_forward”, “caption”中輸“前進”,“后退”按鈕名稱為“cmd_back”, “caption”中輸“后退”,“返回”按鈕名稱為“cmd_start”, “caption”中輸“返回”,“結(jié)束”按鈕名稱為“cmd_end”, “caption”中輸“結(jié)束”.
雙擊各個按鈕就可以進入VBA編輯窗口,
在“播放”按鈕上輸入:
Private Sub cmd_play_Click ( )
ShockwaveFlash1.Playing = True(ShockwaveFlash1是FLASH的默認名稱,在第一步中可以修改,但注意這里必須與你修改后的名稱一致,這里我就用默認的吧)
End Sub
(其實需要我們輸入的只有第二行)
在“暫?!卑粹o上輸入:
Private Sub cmd_pause_Click ( )
ShockwaveFlash1.Playing = False
End Sub
在“前進”按鈕上輸入:
Private Sub cmd_forward_Click ( )
ShockwaveFlash1.Num = ShockwaveFlash1.Num + 30
ShockwaveFlash1.Playing = True
End Sub
在“后退”按鈕上輸入:
Private Sub cmd_back_Click ( )
ShockwaveFlash1.Num = ShockwaveFlash1.Num -30
ShockwaveFlash1.Playing = True
End Sub
在“返回”按鈕上輸入:
Private Sub cmd_start_Click ( )
ShockwaveFlash1.Num = 1
ShockwaveFlash1.Playing = True
End Sub
在“結(jié)束”按鈕上輸入:
Private Sub cmd_end_Click ( )
ShockwaveFlash1.Num = ShockwaveFlash1.Totals
End Sub
以上工作完成后我們還要做一件事,單擊“工具/宏/安全性”,將“安全級”設(shè)為“低”.保存幻燈片,關(guān)閉文件重新打開(不可少喲),是不是一切OK了.
最后說明一下,以上按鈕只能控制FLASH主場景時間軸動畫,對MC(動畫元件)不起作用.