如何在ppt中實現(xiàn)flash播放控制器?

首先確保系統(tǒng)中已經(jīng)安裝了Shockwave Flash Object插件（只要IE中可以播放Flash動畫就表明已經(jīng)安裝）。

　　啟動PowerPoint 2002/2003，用控件工具將需要插入的Flash動畫插入進來。

　　在控件工具箱中將命令按鈕拖動兩個到幻燈片中，其名稱分別為CommandButton1和CommandButton2，分別用右鍵點擊它們，在屬性窗口中將Caption改為“暫?！薄ⅰ安シ拧?。

　　雙擊“暫?！卑粹o，在代碼窗口中輸入”Slide1.shockwaveFlash1.Stop”，保存后雙擊“播放”按鈕，在代碼窗口中輸入“Slide1.shockwaveFlash1.Play”。

　　關(guān)閉代碼編寫返回幻燈片中，播放幻燈片，檢查一下，按鈕是不是起作用了?

　　問題：在powerpoint中，通過添加“shockwave flash object”控件，可以播放swf格式文件(flash制作的動畫文件)[1]，能大大增強了powerpoint的表現(xiàn)力。但如果想在播放過程中想 “暫?！薄ⅰ昂笸恕?、“快進”等，需要右擊控件，用彈出菜單來實現(xiàn)比較麻煩，能不能自已制作一些控制swf文件的播放按鈕呢？

　　答：可以。方法如下：

　　(1) 在“控件工具箱”單擊“命令按鈕”，然后在“shockwave flash object”控件下畫出添加六個命令按鈕。

　　(2) 右擊其中一個按鈕，從彈出菜單單擊“屬性”，打開屬性對話框，依次把這些按鈕的“Caption”屬性分別改為“播放”、“暫?！?、“最前”、“向前”、“向后”、“最后”。

　　(3) 雙擊“播放”按鈕，在代碼對話框的Private Sub CommandButton1_Click()和End Sub之間輸入以下代碼：ShockwaveFlash1.Playing = true(4) 雙擊“暫?！卑粹o，輸入代碼：ShockwaveFlash1.Playing = False(5) 雙擊“最前”按鈕，輸入代碼：ShockwaveFlash1.FrameNum = 1(6) 雙擊“向前”按鈕，輸入代碼：ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum – 50(7) 雙擊“向后”按鈕，輸入代碼：ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum +50(8) 雙擊“最后”按鈕，輸入代碼：

　　Dim a As Integer

　　For a = 1 To 1000

　　ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 1If a > ShockwaveFlash1.FrameNum Then ShockwaveFlash1.Playing = False Else ShockwaveFlash1.Playing = TrueNext

　　做好這些按鈕后，在powerpoint的播放狀態(tài)下控制swf文件的播放就方便多了。不足的是，按下“最后”按鈕時，執(zhí)行起來要較長的時間，原因 “最后”按鈕執(zhí)行了一個循環(huán)語句，是當無法獲知swf文件的總楨數(shù)時，只好如此。當執(zhí)行完這個命令后，退出powerpoint播放狀態(tài)，打開 “shockwave flash object”控件的“屬性”對話框(單擊“shockwave flash object”控件，按F4鍵)，查看“Frame”右邊的數(shù)字(如圖3)，就是swf文件的總楨數(shù)，本例是670，這時把“最后”按鈕原來輸入的代碼刪除，換為代碼：ShockwaveFlash1.FrameNum = 670，再到powerpoint播放狀態(tài)下播放時，“最后”按鈕中命令的執(zhí)行起來就快多了。

　　很多時候，我們需要添加一些flash動畫來使我們的幻燈片更加生動、美觀和具有說服力。但是Powerpoint中沒有提供類似插入圖片那樣直接的功能。那么如何在PPT中插入flash動畫影片呢？

　　下面我來教你四種方法：

　　方法一

　　將擴展名為. SWF的Flash動畫文件插入PPT

　　---插入一個由文件創(chuàng)建的對象

　　---在“動作設置”中的“對象動作”選項中選擇“激活內(nèi)容”

　　方法二

　　將Flash生成的. exe動畫文件插入PPT

　　1、先插入一圖片

　　2、該圖片“動作設置”中的“單擊鼠標”選項中選擇“運行程序”，并指定文件路徑和文件名注意：用這個方法時，一定要把在PPT菜單“工具”－>“選項”—>“安全性”－>“宏安全性”的“安全級”選項變?yōu)椤暗汀薄２蝗坏脑?，每次演示都會彈出個警告框。

　　方法三

　　利用Active X控件插入動畫

　　---選擇“視圖”－>“工具欄”－>“控件工具箱”

　　---點擊“其它工具圖標”，從下拉列表中選擇“ShockWave Flash Object”選項，鼠標變成“＋”形狀，將其拖動即出現(xiàn)Flash控件圖形。

　　---單擊“控件工具箱”上的“屬性”按鈕，打開屬性對話框。

　　---選擇“自定義”，單擊“瀏覽”按鈕，在彈出的對話框中的“Movie URL”中輸入. swf文件路徑及名稱，并調(diào)整“play”，“quality”，“l(fā)oop”等其它屬性。

　　方法四

　　利用插入超鏈接

　　1. 運行PowerPoint程序，打開要插入動畫的幻燈片。

　　2. 在其中插入任意一個對象，比如一段文字、一個圖片等。目的是對它設置超鏈接。最好這個對象與鏈接到的動畫的內(nèi)容相關(guān)。

　　3. 選擇這個對象，點擊“插入”菜單，在打開的下拉菜單中單擊“超級鏈接”。

　　4. 彈出的窗口中，“鏈接到”中選擇“原有文件或Web頁”，點擊“文件”按鈕，選擇到想插入的動畫，點擊“確定”完成。播放動畫時只要單擊設置的超鏈接對象即可。