PPT 2007幻灯片中嵌入.swf 格式Flash 动画

参加：http://gzxieyun.blog.163.com/blog/static/12122649200911237427572/

在Powerpoint 2007中插入此flash并在全屏时实时显示或者其它：

1 在幻灯片中嵌入.swf 格式Flash 动画
1.1 在功能区显示开发工具

（1）单击″Microsoft Office 按钮″，然后单击″PowerPoint 选项″；（2）单击″常用″， 然后在″PowerPoint 首选使用选项″下，选中″在功能区显示' 开发工具' 选项卡″复选框，单击″确定″。

1.2 在计算机上注册Shockwave Flash Object
必须在计算机上注册Shockwave Flash Object 才能够在演示文稿中播放Flash 文件。若要查看Shockwave Flash Object 是否已注册，请在″开发工具″选项卡上的″控件″组中，单击″其他控件″。如果Shockwave Flash Object显示在控件列表中，则表示它已在计算机上注册。如果尚未注册，则请
从Adobe 网站上下载最新版本的Flash Player， 以便在计算机上注册Shockwave Flash Object。
1.3 使用Shockwave Flash Object 的ActiveX 控件在幻灯片中添加.swf格式Flash动画

（1）打开或新建演示文稿，选择欲添加滚动文本框的幻灯片；

（2）在″开发工具″选项卡上的″控件″组中，单击″其他控件″；

（3）在控件列表中，单击″Shockwave Flash 对象″并单击″确定″，然后在幻灯片上拖动以绘制控件；

（4）通过拖动尺寸控点调整控件大小；

（5）右键单击Shockwave Flash
Object，然后单击″属性″；

（6）在″按字母顺序″选项卡上单击名称属性，在其右侧单元格中输入名称，本文使用缺省的ShockwaveFlash1；

（7）在″按字母顺序″选项卡上单击Movie 属性；

（8）在值列（″Movie″旁边的空白单元格）中，键入要播放的Flash 文件的完整驱动器路径，包括文件名（例如D/ 我的Flash 作品/ 小池.swf），或键入其统一资源定位器（URL）；

（9）若要设置有关如何播放动画的特定选项，请执行以下操作，然后关闭″属性″对话框：

①若要在显示幻灯片时自动播放文件，则请将Playing 属性设置为True。如果Flash 文件内置有″开始/倒带″控件，则可将Playing 属性设置为False（本文推荐设置）；

②如果不希望重复播放动画，则请将Loop属性设置为False；

③若要嵌入Flash文件以便与其他人共享演示文稿，请将EmbedMovie 属性设置为True。（要运行Flash 文件，必须在任何运行该演示文稿的计算机上注册Shockwave Flash Object 控件）；

（10）在″幻灯片放映″视图中预览动画：

①在″视图″选项卡的″演示文稿视图″组中，单击″幻灯片放映″或按F5；

②若要退出幻灯片放映并返回到″普通″视图，请按ESC。

2 在PowerPoinpt 中使用Actives 控件控制Flash动画播放

若要实现手动操作flash播放，则进行以下操作，否则以下操作不必要。
2.1 在幻灯片中添加″播放″“暂停”、“前进”、“后退”、“返回”、“结束”命令按钮
（1）激活″开发工具″选项卡；在控制功能组中点选″命令按钮″，然后在屏幕中拖画出按钮显示区域，调整命令按钮大小到合 适尺寸；（2）在右键菜单属性面板中按如下提示设置：①在″名称″单元格的值列中输入cmd_play；②在″Caption″单元格值列中输入″播放″ ；③关闭属性面板；（3）双击按钮，进入VBA 编辑窗口，输入如下内容：
Private Sub cmd_play_Click（）
ShockwaveFlash1.Playing=True
End Sub
Private Sub cmd_pause_Click（）
ShockwaveFlash1.Playing=False

End Sub
Private Sub cmd_forward_Click（）
ShockwaveFlash1.FrameNum = Shockwave-
Flash1.FrameNum+30
ShockwaveFlash1.Playing=True
End Sub
Private Sub cmd_back_Click
ShockwaveFlash1.FrameNum =Shockwave-
Flash1.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 = Shockwave-
Flash1.TotalFrames
End Sub

（4）关闭VBA 编辑窗口。
2.2 宏安全性设置
（1）激活″开发工具″选项卡；（2）点击″代码″功能组中的″宏安全性″按钮；（3）将宏安全设置为最低。

3 浏览、保存演示文稿
（1）放映演示文稿，分别点击各命令按钮对Flash 动画播放进行控制；（2） 单击″Microsoft Office 按钮″，单击″保存″；（3）在出现的″另保存″对话框中，根据提示，将演示文稿保存为″启
用宏的PowerPoint 演示文稿（W.pptm）。