在做PPT做展示時往往可能要嵌入視頻文件，若直接將視頻文件插入PPT中，一般要求視頻文件與PPT放置同一個文件夾，拷貝到其他電腦上做展示時也要整個文件夾一同拷過去。如何將視頻內嵌到PPT中，拷貝時只需要拷PPT即可？

      一、將視頻文件轉化成SWF格式（常用的格式轉換軟件有“格式工廠”等）；

      二、在PPT中將開發工具選項卡打開；

      三、點擊開發工具，其他控件，選擇Shockwave Flash Object；

      四、按住鼠標左鍵不動，拖出一個合適的放映框；

      五、點擊放映框右鍵，屬性，將Playing改為Ture，Movie處填寫swf文件地址；

      以上五步基本上視頻內嵌工作就完成了，但如何控制視頻呢？如果在展示時需要快退或暫停或重新播放怎么辦呢？可以利用開發工具里的ActiveX控件來完成。

      六、點擊開發工具，ActiveX控件，在PPT中拖動一個合適的按鈕；

      七、右鍵點擊屬性，以制作播放按鈕為例，可以將名稱改為cmd_play，Caption改為播放或Player，在Font處選擇合適的字體；按同樣的方法做好暫停、快進、快退、結束、返回按鈕。可依次將名稱命名為：cmd_pause、cmd_forward、cmd_backward、cmd_end、cmd_back；

      八、點擊查看代碼，將下面代碼復制進去即可。

      Private Sub cmd_play_Click()

      ShockwaveFlash1.Play '動畫開始播放

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

      End Sub

      Private Sub cmd_pause_Click()

      ShockwaveFlash1.Playing = Faulse '動畫停止播放

      End Sub

      Private Sub cmd_forward_Click()

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

      ShockwaveFlash1.Playing = True '繼續播放動畫

      End Sub

      Private Sub cmd_backward_Click()

      ShockwaveFlash1.GotoFrame (ShockwaveFlash1.CurrentFrame - 100) '動畫后退100幀

      ShockwaveFlash1.Playing = True '繼續動畫播放

      End Sub

      Private Sub cmd_end_Click()

      ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames

      End Sub

      Private Sub cmd_back_Click()

      ShockwaveFlash1.FrameNum = 1

      ShockwaveFlash1.Playing = True

      End Sub

      注：尊重原創文章,轉載請注明出處和鏈接 http://www.dedgn.cn/news-id-19340.html 違者必究！部分文章來源于網絡由培訓無憂網編輯部人員整理發布,內容真實性請自行核實或聯系我們，了解更多相關資訊請關注辦公軟件頻道查看更多，了解相關專業課程信息您可在線咨詢也可免費申請試課。關注官方微信了解更多：150 3333 6050