在PowerPoint中插入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”控件的“属性”对话框(单击“shockw

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