PPT中flash的控制?

来源:百度知道 编辑:UC知道 时间:2024/06/17 08:10:47
我已经在PPT中插入了一段flash,是用控件中的shockwave flash object,插的,然后里面的属性一些属性参数。
我的问题是:我想鼠标单击才放flash,不让它一开就放,这样行吗、?

有三种方法:
1.你要在flash中就做好
2.如果是别人的flash,在ppt中控制,需要在属性中playing 设为false,播放ppt时,右击flash,然后选择"播放"
3.把ppt中flahs属性playing 设为false,在flahs旁边拉出一个按钮(VBA控件的),修改这个按钮的属性caption 为"播放",然后双击这个按钮,写入代码:
Private Sub CommandButton1_Click()
ShockwaveFlash1.Play
End Sub

直接实现比较困难,尤其flash不是你自己设计制作比较难,但有间接办法实现,其实宏控制,如下:

1、右击控件ShockwaveFlash1属性中Movie设置为空,先不加载flash,不然直接播放了。以后使用这个ppt文件都要置空。
2、右击控件ShockwaveFlash选择查看代码,复制粘贴以下代码到窗口并保存。
Private Sub ShockwaveFlash1_GotFocus()
ShockwaveFlash1.Movie = "C:\Documents and Settings\linjin0760\桌面\CAIDW3CB.swf"
End Sub
请修改文件路径成你的文件地址。鼠标左键点击控件ShockwaveFlash就会加载播放。
3、选择PowerPoint菜单工具——宏——安全性——选择中。下次打开该ppt文件点击启用宏就可以。

以后再使用这个ppt文件都要如下操作,右击控件ShockwaveFlash1属性中Movie设置为空。因为代码控制播放一次flash控件ShockwaveFlash1属性中Movie就被赋值了。

当然你可以使用两个按钮来控制加载和播放,道理一样,先选择Movie设置为空,其他代码比如
Private Sub CommandButton1_Click() '加载播放
ShockwaveFlash1.Movie = &