位置:首页 > 软件操作教程 > 其它 > 其它 > 问题详情

如何在ppt中实现flash播放控制器?

提问人:周丽平发布时间:2021-08-17

首先确保系统中已经安装了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页”,点击“文件”按钮,选择到想插入的动画,点击“确定”完成。播放动画时只要单击设置的超链接对象即可。

继续查找其他问题的答案?

相关视频回答
回复(0)
返回顶部