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

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

　　啟動(dòng)PowerPoint 2002/2003，用控件工具將需要插入的Flash動(dòng)畫(huà)插入進(jìn)來(lái)。

　　在控件工具箱中將命令按鈕拖動(dòng)兩個(gè)到幻燈片中，其名稱(chēng)分別為CommandButton1和CommandButton2，分別用右鍵點(diǎn)擊它們，在屬性窗口中將Caption改為“暫停”、“播放”。

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

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

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

　　答：可以。方法如下：

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

　　(2) 右擊其中一個(gè)按鈕，從彈出菜單單擊“屬性”，打開(kāi)屬性對(duì)話(huà)框，依次把這些按鈕的“Caption”屬性分別改為“播放”、“暫?！薄ⅰ白钋啊?、“向前”、“向后”、“最后”。

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

　　很多時(shí)候，我們需要添加一些flash動(dòng)畫(huà)來(lái)使我們的幻燈片更加生動(dòng)、美觀和具有說(shuō)服力。但是Powerpoint中沒(méi)有提供類(lèi)似插入圖片那樣直接的功能。那么如何在PPT中插入flash動(dòng)畫(huà)影片呢？

　　下面我來(lái)教你四種方法：

　　方法一

　　將擴(kuò)展名為. SWF的Flash動(dòng)畫(huà)文件插入PPT

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

　　---在“動(dòng)作設(shè)置”中的“對(duì)象動(dòng)作”選項(xiàng)中選擇“激活內(nèi)容”

　　方法二

　　將Flash生成的. exe動(dòng)畫(huà)文件插入PPT

　　1、先插入一圖片

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

　　方法三

　　利用Active X控件插入動(dòng)畫(huà)

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

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

　　---單擊“控件工具箱”上的“屬性”按鈕，打開(kāi)屬性對(duì)話(huà)框。

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

　　方法四

　　利用插入超鏈接

　　1. 運(yùn)行PowerPoint程序，打開(kāi)要插入動(dòng)畫(huà)的幻燈片。

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

　　3. 選擇這個(gè)對(duì)象，點(diǎn)擊“插入”菜單，在打開(kāi)的下拉菜單中單擊“超級(jí)鏈接”。

　　4. 彈出的窗口中，“鏈接到”中選擇“原有文件或Web頁(yè)”，點(diǎn)擊“文件”按鈕，選擇到想插入的動(dòng)畫(huà)，點(diǎn)擊“確定”完成。播放動(dòng)畫(huà)時(shí)只要單擊設(shè)置的超鏈接對(duì)象即可。