在做PPT做展示時往往可能要嵌入視頻文件，若直接將視頻文件插入PPT中，一般要求視頻文件與PPT放置同一個文件夾，拷貝到其他電腦上做展示時也要整個文件夾一同拷過去。如何將視頻內(nèi)嵌到PPT中，拷貝時只需要拷PPT即可？有一種方法供大家參考。

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

二、在PPT中將開發(fā)工具選項卡打開；

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

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

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

以上五步基本上視頻內(nèi)嵌工作就完成了，但如何控制視頻呢？如果在展示時需要快退或暫?；蛑匦虏シ旁趺崔k呢？可以利用開發(fā)工具里的ActiveX控件來完成。

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

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

Private Sub cmd_play_Click()

ShockwaveFlash1.Play '動畫開始播放

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

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 '繼續(xù)播放動畫

End Sub

Private Sub cmd_backward_Click()

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

ShockwaveFlash1.Playing = True '繼續(xù)動畫播放

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

另外，可將按鈕排版一下，點擊格式，對齊，左對齊；再點擊格式，對齊，縱向分布。

歡迎交流與指正。