在各類PPT演示文稿中經(jīng)常需要使用Flash動畫。在PowerPoint 2013幻燈片中，可以使用Shockwave Flash Object控件來插入Flash動畫，通過對控件進(jìn)行編程，用戶能夠方便地對動畫的播放進(jìn)行控制。本文將介紹在PowerPoint 2013幻燈片中插入Flash動畫以及對動畫播放進(jìn)行控制的方法。
1、啟動PowerPoint 2013，創(chuàng)建演示文稿。在“開發(fā)工具”選項卡的“控件”組中單擊“其他控件”按鈕
圖1 單擊“其他控件”按鈕
圖2 “其他控件”對話框
2、此時，鼠標(biāo)指針變?yōu)?div id="fu8ihs5fyo3" class='imgcenter'>
圖3 繪制控件
3、在“開發(fā)工具”選項卡的“控件”組中單擊“屬性”按鈕，如圖4所示。此時打開“屬性”對話框，在“Movie”右側(cè)的文本框中輸入需要播放的Flash文件的路徑地址和文件名，如圖5所示。然后按“F5”鍵播放幻燈片，插入的動畫即開始播放。
圖4 單擊“屬性”按鈕
圖5 輸入Flash文件地址
4、在“開發(fā)工具”選項卡的“控件”組中單擊“命令按鈕”按鈕，然后按住左鍵拖動鼠標(biāo)在幻燈片中添加一個命令按鈕，如圖6所示。然后在“屬性”對話框中設(shè)置按鈕的“Caption”屬性更改按鈕上顯示的標(biāo)題，如圖7所示。
圖6 添加“命令按鈕”控件
圖7 設(shè)置控件的“Caption”屬性
5、使用相同的方法在幻燈片中再添加3個“命令按鈕”控件，并將按鈕上顯示的標(biāo)題分別更改為“停止”、“快進(jìn)”和“快退”。在幻燈片中按住“Ctrl”鍵單擊控件同時選擇這些控件，然后在“格式”選項卡的“排列”組中單擊“對齊對象”按鈕，在打開的下拉列表中先選擇級聯(lián)列表中的“左對齊”選項使控件左對齊，然后再選擇其中的“縱向分布”選項使控件縱向分布放置，如圖8所示。
圖8 選擇“縱向分布”選項
6、在“播放”按鈕上右擊，選擇快捷菜單中的“查看代碼”命令打開Visual Basic編輯器窗口，此時在該控件的代碼窗口中將自動添加“Click”事件。在代碼窗口中輸入控件的Click事件代碼，如圖20.77所示。這段代碼的作用是當(dāng)單擊“播放”按鈕時，F(xiàn)lash動畫開始播放。詳細(xì)的事件代碼程序如圖9所示。
圖9 為“播放”按鈕添加Click事件代碼
01 Private Sub CommandButton1_Click()
02 ShockwaveFlash1.Play'動畫開始播放
03 ShockwaveFlash1.Loop=True'允許動畫循環(huán)播放
04 End Sub
注意
控件是一種模塊化的對象，在編寫程序時，如果需要添加某個功能，可以直接通過使用具有這種功能的控件來實(shí)現(xiàn)，而無需為這種功能另外編寫程序?？丶膶傩允强丶陨砭哂械奶卣鳎梢栽凇皩傩浴泵姘逯羞M(jìn)行設(shè)置，也可以通過編程來進(jìn)行設(shè)置。對控件的編程是基于事件的編程，所謂的事件是控件對某個操作的反應(yīng)，如，這里為按鈕添加Click事件代碼后，當(dāng)單擊控件時，控件的Click事件被觸發(fā)，其事件代碼將被執(zhí)行。
7、切換到PowerPoint 2013程序窗口，在幻燈片中右擊“暫?！卑粹o，選擇快捷菜單中的“查看代碼”命令，在打開的代碼窗口中輸入程序代碼，如圖10所示。這段程序代碼的作用是實(shí)現(xiàn)單擊該按鈕時動畫播放將暫停，再單擊將使動畫播放停止。詳細(xì)的事件代碼如圖10所示。
圖10 為“暫停”按鈕添加事件代碼
01 Private Sub CommandButton2_Click()
02 ShockwaveFlash1.Stop'動畫停止播放
03 End Sub
注意
這里，Play和Stop都是Flash控件的方法。控件的方法實(shí)際上是控件的內(nèi)部函數(shù)，VBA程序調(diào)用這些控件方法，能夠完成不同的動作，實(shí)現(xiàn)需要的操作，并對控件的狀態(tài)進(jìn)行修改。在程序中使用控件的方法十分簡單，在輸入控件后鍵入“.”，Visual Basic編輯器會給出控件方法和屬性的代碼提示，用戶可以直接在列表中選擇并應(yīng)用到程序中。
8、在代碼窗口中為“快進(jìn)”按鈕添加Click事件代碼，如圖11所示。該段代碼的作用是實(shí)現(xiàn)在單擊該按鈕時，動畫播放跳轉(zhuǎn)到當(dāng)前幀前面10幀的位置，然后繼續(xù)播放。詳細(xì)的事件代碼如圖11所示。
圖11 為“快進(jìn)”按鈕添加Click事件代碼
01 Private Sub CommandButton3_Click()
02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'動畫前進(jìn)10幀
03 ShockwaveFlash1.Play'繼續(xù)播放動畫
04 End Sub
9、在代碼窗口中為“快退”按鈕添加Click事件代碼，如圖12所示。該段代碼的作用是實(shí)現(xiàn)在單擊該按鈕時，動畫播放跳轉(zhuǎn)到當(dāng)前幀后面10幀的位置，然后繼續(xù)播放。詳細(xì)的事件代碼如圖12所示。
圖12 為“快退”按鈕添加事件代碼
01 Private Sub CommandButton4_Click()
02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'動畫后退10幀
03 ShockwaveFlash1.Play'繼續(xù)動畫播放
04 End Sub
10、至此，本實(shí)例制作完成，將演示文稿保存為啟動宏的文件格式(擴(kuò)展名為*.pptm)。再放映演示文稿時，單擊幻燈片中的按鈕能夠?qū)lash動畫的播放進(jìn)行控制，如圖13所示。
圖13 幻燈片播放效果
本文已經(jīng)收錄至：《Office 2013應(yīng)用技巧實(shí)例大全》 - Office2013高級應(yīng)用篇
