注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

在PPT中实现Flash播放控制  

2010-01-15 16:24:12|  分类: 电脑知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

在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动画影片呢?
  下面我来教你四种方法:
  方法一
  将扩展名为. SWFFlash动画文件插入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,点击文件按钮,选择到想插入的动画,点击确定完成。播放动画时只要单击设置的超链接对象即可。


  评论这张
 
阅读(2034)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017