在各類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所示。此時打開“其他控件”對話框，選擇“Shockwave Flash Object”控件，如圖2所示，然后單擊“確定”按鈕關(guān)閉“其他控件”對話框。

圖1　單擊“其他控件”按鈕

圖2　“其他控件”對話框

2、此時，鼠標(biāo)指針變?yōu)?img doc360img-src='http://image95.360doc.com/DownloadImg/2016/03/1712/67913766_4.jpg' alt="在幻燈片中控制Flash動畫的播放" src="http://image95.360doc.com/DownloadImg/2016/03/1712/67913766_4.jpg" style="width: 37px; height: 37px;">形狀，按住左鍵拖動鼠標(biāo)在幻燈片中繪制控件，如圖3所示。按住左鍵拖動控件能改變其在幻燈片中的位置，拖動控件上的控制柄可以調(diào)整控件的大小。

圖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

注意

控件是一種模塊化的對象，在編寫程序時，如果需要添加某個功能，可以直接通過使用具有這種功能的控件來實現(xiàn)，而無需為這種功能另外編寫程序?？丶膶傩允强丶陨砭哂械奶卣鳎梢栽凇皩傩浴泵姘逯羞M(jìn)行設(shè)置，也可以通過編程來進(jìn)行設(shè)置。對控件的編程是基于事件的編程，所謂的事件是控件對某個操作的反應(yīng)，如，這里為按鈕添加Click事件代碼后，當(dāng)單擊控件時，控件的Click事件被觸發(fā)，其事件代碼將被執(zhí)行。

7、切換到PowerPoint 2013程序窗口，在幻燈片中右擊“暫?！卑粹o，選擇快捷菜單中的“查看代碼”命令，在打開的代碼窗口中輸入程序代碼，如圖10所示。這段程序代碼的作用是實現(xiàn)單擊該按鈕時動畫播放將暫停，再單擊將使動畫播放停止。詳細(xì)的事件代碼如圖10所示。

圖10　為“暫停”按鈕添加事件代碼

01 Private Sub CommandButton2_Click()

02 ShockwaveFlash1.Stop'動畫停止播放

03 End Sub

注意

這里，Play和Stop都是Flash控件的方法。控件的方法實際上是控件的內(nèi)部函數(shù)，VBA程序調(diào)用這些控件方法，能夠完成不同的動作，實現(xiàn)需要的操作，并對控件的狀態(tài)進(jìn)行修改。在程序中使用控件的方法十分簡單，在輸入控件后鍵入“.”，Visual Basic編輯器會給出控件方法和屬性的代碼提示，用戶可以直接在列表中選擇并應(yīng)用到程序中。

8、在代碼窗口中為“快進(jìn)”按鈕添加Click事件代碼，如圖11所示。該段代碼的作用是實現(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所示。該段代碼的作用是實現(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、至此，本實例制作完成，將演示文稿保存為啟動宏的文件格式(擴(kuò)展名為*.pptm)。再放映演示文稿時，單擊幻燈片中的按鈕能夠?qū)lash動畫的播放進(jìn)行控制，如圖13所示。

圖13　幻燈片播放效果

本文已經(jīng)收錄至：《Office 2013應(yīng)用技巧實例大全》 - Office2013高級應(yīng)用篇