1、啟動PowerPoint 2013，創建演示文稿。在“開發工具”選項卡的“控件”組中單擊“其他控件”按鈕

，如圖1所示。此時打開“其他控件”對話框，選擇“Shockwave Flash Object”控件，如圖2所示，然后單擊“確定”按鈕關閉“其他控件”對話框。

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

　　圖2　“其他控件”對話框

2、此時，鼠標指針變為

形狀，按住左鍵拖動鼠標在幻燈片中繪制控件，如圖3所示。按住左鍵拖動控件能改變其在幻燈片中的位置，拖動控件上的控制柄可以調整控件的大小。

　　圖3　繪制控件

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

　　圖4　單擊“屬性”按鈕

　　圖5　輸入Flash文件地址

　　4、在“開發工具”選項卡的“控件”組中單擊“命令按鈕”按鈕，然后按住左鍵拖動鼠標在幻燈片中添加一個命令按鈕，如圖6所示。然后在“屬性”對話框中設置按鈕的“Caption”屬性更改按鈕上顯示的標題，如圖7所示。

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

　　圖7　設置控件的“Caption”屬性

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

　　圖8　選擇“縱向分布”選項

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

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

　　01 Private Sub CommandButton1_Click()

　　02 ShockwaveFlash1.Play'動畫開始播放

　　03 ShockwaveFlash1.Loop=True'允許動畫循環播放

　　04 End Sub

　　注意

　　控件是一種模塊化的對象，在編寫程序時，如果需要添加某個功能，可以直接通過使用具有這種功能的控件來實現，而無需為這種功能另外編寫程序。控件的屬性是控件自身具有的特征，可以在“屬性”面板中進行設置，也可以通過編程來進行設置。對控件的編程是基于事件的編程，所謂的事件是控件對某個操作的反應，如，這里為按鈕添加Click事件代碼后，當單擊控件時，控件的Click事件被觸發，其事件代碼將被執行。

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

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

　　01 Private Sub CommandButton2_Click()

　　02 ShockwaveFlash1.Stop'動畫停止播放

　　03 End Sub

　　注意

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

　　8、在代碼窗口中為“快進”按鈕添加Click事件代碼，如圖11所示。該段代碼的作用是實現在單擊該按鈕時，動畫播放跳轉到當前幀前面10幀的位置，然后繼續播放。詳細的事件代碼如圖11所示。

　　圖11　為“快進”按鈕添加Click事件代碼

　　01 Private Sub CommandButton3_Click()

　　02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'動畫前進10幀

　　03 ShockwaveFlash1.Play'繼續播放動畫

　　04 End Sub

　　9、在代碼窗口中為“快退”按鈕添加Click事件代碼，如圖12所示。該段代碼的作用是實現在單擊該按鈕時，動畫播放跳轉到當前幀后面10幀的位置，然后繼續播放。詳細的事件代碼如圖12所示。

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

　　01 Private Sub CommandButton4_Click()

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

　　03 ShockwaveFlash1.Play'繼續動畫播放

　　04 End Sub

　　10、至此，本實例制作完成，將演示文稿保存為啟動宏的文件格式(擴展名為*.pptm)。再放映演示文稿時，單擊幻燈片中的按鈕能夠對Flash動畫的播放進行控制，如圖13所示。