在各類PPT演示文稿中經常需要使用Flash動畫。在PowerPoint 2013幻燈片中,可以使用Shockwave Flash Object控制項來插入Flash動畫,通過對控制項進行編程,用戶能夠方便地對動畫的播放進行控制。本文將介紹在PowerPoint 2013幻燈片中插入Flash動畫以及對動畫播放進行控制的方法。
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 Commanon1_Click()
02 ShockwaveFlash1.Play'動畫開始播放
03 ShockwaveFlash1.Loop=True'允許動畫循環播放
04 End Sub
注意
控制項是一種模塊化的對象,在編寫程序時,如果需要添加某個功能,可以直接通過使用具有這種功能的控制項來實現,而無需為這種功能另外編寫程序。控制項的屬性是控制項自身具有的特徵,可以在「屬性」面板中進行設置,也可以通過編程來進行設置。對控制項的編程是基於事件的編程,所謂的事件是控制項對某個操作的反應,如,這裡為按鈕添加Click事件代碼後,當單擊控制項時,控制項的Click事件被觸發,其事件代碼將被執行。
7、切換到PowerPoint 2013程序窗口,在幻燈片中右擊「暫停」按鈕,選擇快捷菜單中的「查看代碼」命令,在打開的代碼窗口中輸入程序代碼,如圖10所示。這段程序代碼的作用是實現單擊該按鈕時動畫播放將暫停,再單擊將使動畫播放停止。詳細的事件代碼如圖10所示。
圖10 為「暫停」按鈕添加事件代碼
01 Private Sub Commanon2_Click()
02 ShockwaveFlash1.Stop'動畫停止播放
03 End Sub
注意
這裡,Play和Stop都是Flash控制項的方法。控制項的方法實際上是控制項的內部函數,VBA程序調用這些控制項方法,能夠完成不同的動作,實現需要的操作,並對控制項的狀態進行修改。在程序中使用控制項的方法十分簡單,在輸入控制項後鍵入「.」,Visual Basic編輯器會給出控制項方法和屬性的代碼提示,用戶可以直接在列表中選擇並應用到程序中。
8、在代碼窗口中為「快進」按鈕添加Click事件代碼,如圖11所示。該段代碼的作用是實現在單擊該按鈕時,動畫播放跳轉到當前幀前面10幀的位置,然後繼續播放。詳細的事件代碼如圖11所示。
圖11 為「快進」按鈕添加Click事件代碼
01 Private Sub Commanon3_Click()
02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'動畫前進10幀
03 ShockwaveFlash1.Play'繼續播放動畫
04 End Sub
9、在代碼窗口中為「快退」按鈕添加Click事件代碼,如圖12所示。該段代碼的作用是實現在單擊該按鈕時,動畫播放跳轉到當前幀後面10幀的位置,然後繼續播放。詳細的事件代碼如圖12所示。
圖12 為「快退」按鈕添加事件代碼
01 Private Sub Commanon4_Click()
02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'動畫後退10幀
03 ShockwaveFlash1.Play'繼續動畫播放
04 End Sub
10、至此,本實例製作完成,將演示文稿保存為啟動宏的文件格式(擴展名為*.pptm)。再放映演示文稿時,單擊幻燈片中的按鈕能夠對Flash動畫的播放進行控制,如圖13所示。
圖13 幻燈片播放效果
來源: 晴耕雨讀的博客
【特別聲明】
本公眾號部分文章素材來源於網絡,謹代表作者的觀點,版權歸原作者所有!經編者收集整理後,與大家一同分享學習!
如您認為某些內容侵犯了您的權益,請與編者聯繫!我們核實後將立即改正!