在各類PPT演示文稿中經(jīng)常需要使用Flash動(dòng)畫。在PowerPoint 2013幻燈片中，可以使用Shockwave Flash Object控件來(lái)插入Flash動(dòng)畫，通過(guò)對(duì)控件進(jìn)行編程，用戶能夠方便地對(duì)動(dòng)畫的播放進(jìn)行控制。本文將介紹在PowerPoint 2013幻燈片中插入Flash動(dòng)畫以及對(duì)動(dòng)畫播放進(jìn)行控制的方法。

1、啟動(dòng)PowerPoint 2013，創(chuàng)建演示文稿。在“開發(fā)工具”選項(xiàng)卡的“控件”組中單擊“其他控件”按鈕，如圖1所示。此時(shí)打開“其他控件”對(duì)話框，選擇“Shockwave Flash Object”控件，如圖2所示，然后單擊“確定”按鈕關(guān)閉“其他控件”對(duì)話框。

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

圖2　“其他控件”對(duì)話框

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

圖3　繪制控件

3、在“開發(fā)工具”選項(xiàng)卡的“控件”組中單擊“屬性”按鈕，如圖4所示。此時(shí)打開“屬性”對(duì)話框，在“Movie”右側(cè)的文本框中輸入需要播放的Flash文件的路徑地址和文件名，如圖5所示。然后按“F5”鍵播放幻燈片，插入的動(dòng)畫即開始播放。

圖4　單擊“屬性”按鈕

圖5　輸入Flash文件地址

4、在“開發(fā)工具”選項(xiàng)卡的“控件”組中單擊“命令按鈕”按鈕，然后按住左鍵拖動(dòng)鼠標(biāo)在幻燈片中添加一個(gè)命令按鈕，如圖6所示。然后在“屬性”對(duì)話框中設(shè)置按鈕的“Caption”屬性更改按鈕上顯示的標(biāo)題，如圖7所示。

圖6　添加“命令按鈕”控件

圖7　設(shè)置控件的“Caption”屬性

5、使用相同的方法在幻燈片中再添加3個(gè)“命令按鈕”控件，并將按鈕上顯示的標(biāo)題分別更改為“停止”、“快進(jìn)”和“快退”。在幻燈片中按住“Ctrl”鍵單擊控件同時(shí)選擇這些控件，然后在“格式”選項(xiàng)卡的“排列”組中單擊“對(duì)齊對(duì)象”按鈕，在打開的下拉列表中先選擇級(jí)聯(lián)列表中的“左對(duì)齊”選項(xiàng)使控件左對(duì)齊，然后再選擇其中的“縱向分布”選項(xiàng)使控件縱向分布放置，如圖8所示。

圖8　選擇“縱向分布”選項(xiàng)

6、在“播放”按鈕上右擊，選擇快捷菜單中的“查看代碼”命令打開Visual Basic編輯器窗口，此時(shí)在該控件的代碼窗口中將自動(dòng)添加“Click”事件。在代碼窗口中輸入控件的Click事件代碼，如圖20.77所示。這段代碼的作用是當(dāng)單擊“播放”按鈕時(shí)，F(xiàn)lash動(dòng)畫開始播放。詳細(xì)的事件代碼程序如圖9所示。

圖9　為“播放”按鈕添加Click事件代碼

01 Private Sub CommandButton1_Click()

02 ShockwaveFlash1.Play'動(dòng)畫開始播放

03 ShockwaveFlash1.Loop=True'允許動(dòng)畫循環(huán)播放

04 End Sub

注意

控件是一種模塊化的對(duì)象，在編寫程序時(shí)，如果需要添加某個(gè)功能，可以直接通過(guò)使用具有這種功能的控件來(lái)實(shí)現(xiàn)，而無(wú)需為這種功能另外編寫程序。控件的屬性是控件自身具有的特征，可以在“屬性”面板中進(jìn)行設(shè)置，也可以通過(guò)編程來(lái)進(jìn)行設(shè)置。對(duì)控件的編程是基于事件的編程，所謂的事件是控件對(duì)某個(gè)操作的反應(yīng)，如，這里為按鈕添加Click事件代碼后，當(dāng)單擊控件時(shí)，控件的Click事件被觸發(fā)，其事件代碼將被執(zhí)行。

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

圖10　為“暫?！卑粹o添加事件代碼

01 Private Sub CommandButton2_Click()

02 ShockwaveFlash1.Stop'動(dòng)畫停止播放

03 End Sub

注意

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

8、在代碼窗口中為“快進(jìn)”按鈕添加Click事件代碼，如圖11所示。該段代碼的作用是實(shí)現(xiàn)在單擊該按鈕時(shí)，動(dòng)畫播放跳轉(zhuǎn)到當(dāng)前幀前面10幀的位置，然后繼續(xù)播放。詳細(xì)的事件代碼如圖11所示。

圖11　為“快進(jìn)”按鈕添加Click事件代碼

01 Private Sub CommandButton3_Click()

02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'動(dòng)畫前進(jìn)10幀

03 ShockwaveFlash1.Play'繼續(xù)播放動(dòng)畫

04 End Sub

9、在代碼窗口中為“快退”按鈕添加Click事件代碼，如圖12所示。該段代碼的作用是實(shí)現(xiàn)在單擊該按鈕時(shí)，動(dòng)畫播放跳轉(zhuǎn)到當(dāng)前幀后面10幀的位置，然后繼續(xù)播放。詳細(xì)的事件代碼如圖12所示。

圖12　為“快退”按鈕添加事件代碼

01 Private Sub CommandButton4_Click()

02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'動(dòng)畫后退10幀

03 ShockwaveFlash1.Play'繼續(xù)動(dòng)畫播放

04 End Sub

10、至此，本實(shí)例制作完成，將演示文稿保存為啟動(dòng)宏的文件格式(擴(kuò)展名為*.pptm)。再放映演示文稿時(shí)，單擊幻燈片中的按鈕能夠?qū)lash動(dòng)畫的播放進(jìn)行控制，如圖13所示。

圖13　幻燈片播放效果

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