PPT如何内嵌视频文件

在做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

另外，可将按钮排版一下，点击格式，对齐，左对齐；再点击格式，对齐，纵向分布。

欢迎交流与指正。