题目内容

如何在ppt中实现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 + 1If a > ShockwaveFlash1.FrameNum Then ShockwaveFlash1.Playing = False Else ShockwaveFlash1.Playing = TrueNext

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