在PPT中实现Flash播放控制

在PPT中实现Flash播放控制
在PowerPoint中插入Flash动画可以采用控件来实现，不过，如果插入的Flash动画本身不包括控制按钮，而你又想控制动画暂停或继续播放，该怎么实现呢？
首先确保系统中已经安装了Shockwave Flash Object插件（只要IE中可以播放Flash动画就表明已经安装）。

启动PowerPoint 2002/2003，用控件工具将需要插入的Flash动画插入进来。

在控件工具箱中将命令按钮拖动两个到幻灯片中，其名称分别为CommandButton1和CommandButton2，分别用右键点击它们，在属性窗口中将Caption改为“暂停”、“播放”。

双击“暂停”按钮，在代码窗口中输入”Slide1.shockwaveFlash1.Stop”，保存后双击“播放”按钮，在代码窗口中输入“Slide1.shockwaveFlash1.Play”。

关闭代码编写返回幻灯片中，播放幻灯片，检查一下，按钮是不是起作用了?
问题：在powerpoint中，通过添加“shockwave flash object”控件，可以播放swf格式文件(flash 制作的动画文件)[1]，能大大增强了powerpoint的表现力。

但如果想在播放过程中想“暂停”、“后退”、“快进”等，需要右击控件，用弹出菜单来实现比较麻烦，能不能自已制作一些控制swf文件的播放按钮呢？
答：可以。

方法如下：
(1)在“控件工具箱”单击“命令按钮”，然后在“shockwave flash object”控件下画出添加六个命令按钮。

(2)右击其中一个按钮，从弹出菜单单击“属性”，打开属性对话框，依次把这些按钮的“Caption”属性分别改为“播放”、“暂停”、“最前”、“向前”、“向后”、“最后”。

(3)双击“播放”按钮，在代码对话框的Private Sub CommandButton1_Click()和End Sub之间输入以下代码：ShockwaveFlash1.Playing = true
(4)双击“暂停”按钮，输入代码：ShockwaveFlash1.Playing = False
(5)双击“最前”按钮，输入代码：ShockwaveFlash1.FrameNum = 1
(6)双击“向前”按钮，输入代码：ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum – 50
(7)双击“向后”按钮，输入代码：ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum +50
(8)双击“最后”按钮，输入代码：
Dim a As Integer
For a = 1 To 1000
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 1
If a > ShockwaveFlash1.FrameNum Then ShockwaveFlash1.Playing = False Else ShockwaveFlash1.Playing = True
Next
做好这些按钮后，在powerpoint的播放状态下控制swf文件的播放就方便多了。

不足的是，按下“最后”按钮时，执行起来要较长的时间，原因“最后”按钮执行了一个循环语句，是当无法获知swf文件的总桢数时，只好如此。

当执行完这个命令后，退出powerpoint播放状态，打开“shockwave flash object”控件的“属性”对话框(单击“shockwave flash object”控件，按F4键)，查看“Frame”右边的数字(如图3)，就是swf文件的总桢数，本例是670，这时把“最后”按钮原来输入的代码删除，换为代码：ShockwaveFlash1.FrameNum = 670，再到powerpoint播放状态下播放时，“最后”按钮中命令的执行起来就快多了。

很多时候，我们需要添加一些flash动画来使我们的幻灯片更加生动、美观和具有说服力。

但是Powerpoint中没有提供类似插入图片那样直接的功能。

那么如何在PPT中插入flash动画影片呢？
下面我来教你四种方法：
方法一
将扩展名为. SWF的Flash动画文件插入PPT
---插入一个由文件创建的对象
---在“动作设置”中的“对象动作”选项中选择“激活内容”
方法二
将Flash生成的. exe动画文件插入PPT
1、先插入一图片
2、该图片“动作设置”中的“单击鼠标”选项中选择“运行程序”，并指定文件路径和文件名
注意：用这个方法时，一定要把在PPT菜单“工具”－>“选项”—>“安全性”－>“宏安全性”的“安全级”选项变为“低”。

不然的话，每次演示都会弹出个警告框。

方法三
利用Active X控件插入动画
---选择“视图”－>“工具栏”－>“控件工具箱”
---点击“其它工具图标”，从下拉列表中选择“ShockWave Flash Object”选项，鼠标变成“＋”形状，将其拖动即出现Flash控件图形。

---单击“控件工具箱”上的“属性”按钮，打开属性对话框。

---选择“自定义”，单击“浏览”按钮，在弹出的对话框中的“Movie URL”中输入. swf文件路径及名称，并调整“play”，“quality”，“loop”等其它属性。

方法四
利用插入超链接
1. 运行PowerPoint程序，打开要插入动画的幻灯片。

2. 在其中插入任意一个对象，比如一段文字、一个图片等。

目的是对它设置超链接。

最好这个对象与链接到的动画的内容相关。

3. 选择这个对象，点击“插入”菜单，在打开的下拉菜单中单击“超级链接”。

4. 弹出的窗口中，“链接到”中选择“原有文件或Web页”，点击“文件”按钮，选择到想插入的动画，点击“确定”完成。

播放动画时只要单击设置的超链接对象即可。