在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页”，点击“文件”按钮，选择到想插入的动画，点击“确定”完成。播放动画时只要单击设置的超链接对象即可。