一、PowerPoint中插入Flash文件（*.swf）
怎样把一个flash动画嵌入一个ppt文件中，从而使得播放时不在需要原来的flash文件
要在 PowerPoint 中播放 Flash 文件，必须将名为“Shockwave Flash Object”的 ActiveX 控件“注册”到您的计算机上。如果已注册，它将出现在从“控件工具箱”中打开的控件列表中（将在下面的步骤中详细说明）。如果未注册，请从 Macromedia Web 站点上下载 Macromedia Flash 播放器的最新版本；它将在您的计算机上注册该控件。
您的计算机上可能已注册了较早版本的 Shockwave Flash Object。为确保复杂动画能够正常运行，建议您安装 Macromedia Flash 播放器的最新版本。
要在演示文稿中播放 Flash 文件，请执行以下步骤：
1、在计算机上安装 Macromedia Flash 播放器；
2、在 PowerPoint 的普通视图下，显示要在其中播放动画的幻灯片；
3、在“视图”菜单上，指向“工具栏”，然后单击“控件工具箱”； 在“控件工具箱”上，单击“其他控件”（带有锤子和扳手图标的按钮）； 在列表中，向下滚动并单击“Shockwave Flash Object”，然后将其拖放到幻灯片上以绘制该控件。如果需要调节控件以适应动画的尺寸，则可以各个拖动尺寸柄以调节控件的大小；
4、在 Shockwave Flash Object 上单击鼠标右键，然后单击“属性”；
4.1、在“按字母序”选项卡中，单击 Movie 属性； 在取值栏（Movie 旁边的空白单元格）中，键入要播放的 Flash 文件的完整驱动路径（包括文件名在内。 例如，C\:My Documents\MyFile.swf）或统一资源定位器 (URL)；
4.2、要设置动画播放的特定选项，请执行以下操作，完成后关闭“属性”对话框：
a.确保 Playing 属性设为 True。该设置使幻灯片显示时自动播放动画文件。如果 Flash 文件内置有“开始/倒带”控件，则 Playing 属性可设为 False。
b.如果不想让动画反复播放，请在 Loop 属性中选择 False（单击单元格以显示向下的箭头，然后单击该箭头并选择 False）。
c.要嵌入 Flash 文件以便将该演示文稿传递给其他人，请在 EmbedMovie 属性中单击 True。（但是，要运行 Flash 文件，任何运行该演示文稿的计算机都必须注册 Shockwave Flash Object 控件。）
Movie Flash地址（相对/绝对/Url）
EmbedMovie 是否嵌入PPT中
Loop 是否重复播放
Playing 是否自动播放（PPT放映时）
二、 PowerPoint中控制Flash播放
在PowerPoint中插入Flash动画可以通过插入视频的方式来实现，这种插入flash方式虽然简单，但也存在一些问题，如果插入的Flash动画本身不包括控制按钮，而用户又想控制动画暂停或继续播放，这时候基本是无法解决的的难题，那么该如何实现呢？
这就需要使用插入控件法实现用vba代码来控制插入flash的播放。
启动PowerPoint，依次单击“插入”–“图片”–“来自文件”，打开“插入图片”对话框，选中需要的图片，单击“打开”按钮完成图片插入。此时图片右侧出现“图片”工具栏，单击其中第7个“裁剪”按钮，对图片进行适当裁剪适应窗口。
依次单击在“开发工具”-“控件”–“其他控件”命令，打开“其他控件”对话框，选中其中的Shockwave Flash Object项，单击“确定”按钮。
此时鼠标变成黒十字，按住鼠标左键向右下拖动，拖出一个flash的播放窗口，选中插入的Flash动画对象，将鼠标移到周围控制点上，左键拖动，调整大小和位置适当裁剪适应播放窗口。
右击此插入对象，单击快捷菜单中的“属性”选项，首先添加Movie项。要填写全路径和后缀名是.swf，修改EmbedMovie项为True，修改（名称）为Swf。
在“控件工具箱”单击“命令按钮”，在“shockwave flash object”控件下左键按住拖出一个命令按钮，然后按住组合键CTRL向右拖出五个同样的命令按钮。
右击第一个按钮，从弹出菜单中单击“属性”，打开“属性”对话框，修改“Caption”属性为“播放”，保持此“属性”对话框不关闭，依次选中其余按钮，分别把“Caption”属性修改为“暂停”、“最前”、“最后”、快进”、“快退”，最后关闭“属性”对话框。
按组合键ALT+F11，进入代码编辑窗口，单击“对象”右侧的下拉按钮，选择“CommandButton1”项，默认是Click事件，
在代码对话框的Private Sub CommandButton1_Click()和End Sub之间输入如下代码：
Swf.Playing = True
单击“对象”右侧的下拉按钮，选择“CommandButton2”项，在两句代码之间输入如下代码：
Swf.Playing = False
单击“对象”右侧的下拉按钮，选择“CommandButton3”项，在两句代码之间输入如下代码：
Swf.FrameNum = 1
Swf.Playing = True
单击“对象”右侧的下拉按钮，选择“CommandButton4”项，在两句代码之间输入如下代码：
Swf.FrameNum = Swf.TotalFrames
Swf.Playing = False
单击“对象”右侧的下拉按钮，选择“CommandButton5”项，在两句代码之间输入如下代码：
Swf.FrameNum = Swf.FrameNum+50
Swf.Playing = True
单击“对象”右侧的下拉按钮，选择“CommandButton6”项，在两句代码之间输入如下代码：
Swf.FrameNum = Swf.FrameNum -50
Swf.Playing = True
按键盘功能键F5，观看放映，满意后保存。
注意：
设置宏安全性中安全级为低或中，照此设置代码才会起作用
转自：http://47.98.145.144/notes/html/0d407044a1554cd48dc75e1055a4c3cb.html