PPT文档中插入Flash影片是课件制作者经常使用的一种制作手段。但由于这两款软件分属于两个不同的大公司，它们的兼容性并不好，这给很多教师，尤其是初学课件制作的教师带来困扰。虽然相关的技术文章也很多。但介绍的方法千篇一律，都是将Flash影片和PPT文档分别同时保存，并且不能改变其相对路径和名称才能保证Flash影片在PPT文档中的正确播放。这给课件操作带来了诸多不便，经常因为拷贝时漏拷Flash影片或存储路径发生改变而导致Flash影片播不出来。而且对Flash插件的依赖也很强，如果Flash插件的版本不一样，属性框的设置项也不一样，这也无形中给初学者带来了设置上的难度。那么，能不能象在PPT文档中插入图片那样，让Flash影片和PPT文档融为一体，成为一个文件呢？下面我就给出一种方法，对这个困扰大家的问题进行解决，让Flash和PPT亲密无间。 此方法的基础是利用控件插入Flash影片。

 具体步骤如下： 1、运行PowerPoint 2003，切换到要插入Flash动画的幻灯片。

2、单击“视图”菜单，在弹出的下拉菜单中单击“工具栏”，再在弹出的子菜单中单击“控件工具箱”，便出现“控件工具箱” 。

3、单击“控件工具箱”中的“其他控件”，弹出ActiveX控件窗口，窗口中列出了系统已经安装的所有ActiveX控件。利用键盘上的光标控制键，在控件列表中找到“Shockwave Flash Object”并单击，此时系统会自动关闭控件窗口。

4、将光标移动到PowerPoint的编辑区域中，光标变成“十”字形，按下鼠标并拖动，画出适当大小的矩形框，这个矩形区域就是播放动画的区域。

 5、右单击矩形框，在出现的快捷菜单中单击“属性”，出现“属性”窗口。

6在设置控件属性时，如你的机器中安装的是Flashplayer9以前的版本，控件属性窗口中会有一个“自定义”选项，点击“自定义中的 … ”会出现属性页（如下图）。在这一步，影片URL(M) 中输入要插入的Flash影片的路径、名称及扩展名。并将“嵌入影片”选中，即可实现将Flash影片嵌入PPT文档中的效果。

7、必须说明的是，如果你机器中安装的是新版的Flash控件，根本没有“自定义”选项。那也不用急，直接使用控件属性窗口设置也可完成同样效果，只是属性都是英文，不像属性页中的中文易懂。属性页中影片URL(M) 对应的是控件属性窗口中的Movie（影片）属性。“嵌入影片”选项对应的是属性窗口中的EmbedMovie（嵌入）属性。我们只需在控件属性窗口，Movie属性后输入路径、文件名及扩展名，将“EmbedMovie（嵌入）”属性设置成“True” 即可。（如右图）

 8、放映该幻灯片，你所期待的画面就出现了。将设置好的文档保存并关闭，这样Flash就被包含到PPT文档中，成为一个文件了。我们只需拷贝这一个文件，再也不用担心Flash丢失了。

 9、在PPT中实现对Flash的播放控制。如果插入的Flash动画本身不包括控制按钮，而你又想控制动画暂停或继续播放，该怎么实现呢？插入命令按钮
1. 制作(播放)按钮
在“控件工具箱”中选择“命令按钮”，在幻灯片中拖动，即可拖出一个命令按钮。调整好大小，在“属性”面板中作如下设置：“名称”中输入“cmd_play”，“Caption”中输入“播放”。双击该按钮，进入VBA编辑窗口，输入如下内容：
Private Sub cmd_play_Click()
ShockwaveFlash1.Playing = True
End Sub
2. 制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮
按钮制作的方法同上。“属性”面板中分别作如下设置：暂停按钮的“名称”为“cmd_pause”，“Caption”为“暂停”；前进按钮按钮的“名称”为“cmd_forward”，“Caption”为“前进”；后退按钮的“名称”为“cmd_back”，“Caption”为“后退”；返回按钮的“名称”为“cmd_start”，“Caption”为“返回”；结束按钮的“名称”为“cmd_end”，“Caption”为“结束”。
分别为各个按钮加上VBA，命令依次如下：
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing = False
End Sub
Private Sub cmd_forward_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_back_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_start_Click()
ShockwaveFlash1.FrameNum = 1
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_end_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub
说明：在(前进)、(后退)、(返回)按钮中，后面均加上一条播放命令，是因为在实际应用时，发现后面如果没有播放命令的话，Flash影片会停止播放，所以这句是万万不可少的。
3. 播放幻灯片
看看按钮是不是可以控制影片了呢？什么？没反应，那一定是你的宏的安全性设得太高了，单击“工具/宏/安全性”，将“安全级”设为“低”。重新打开PowerPoint，可以了吧。
注意:如果是自己电脑上的flash作品,它的地址可以这样找出来:先打开flash（swf形式的）作品,再把鼠标放到“文件”上，就可以找到地址了。注意：必须是swf格式的。如:G:\何珠英\自制的flash作品\学习雷锋好榜样.swf