花落谁家，你作主！	盛大widget设计大赛英雄榜

高手求救！！！vba程序中指定flash文件名称，插入到ppt中播放

楼主haonan9869（“好难”）2006-03-30 14:31:00 在 VB / VBA 提问

如果在ShockwaveFlash控件的属性movie中填入要播放的flash路径，这样播放就只能固定的播放这一个flash了！
我想在vb程序中，给出flash的路径，用vba程序打开ppt，并插入一个ShockwaveFlash控件，播放我指定的flash

在ppt中录制宏，
ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=127.5, Top:=258.625, Width:=311.875, Height:=181.5, ClassName:="ShockwaveFlash.ShockwaveFlash.1", FileName:="", Link:=msoFalse).Select

AddOLEObject这个方法里面有FileName参数，可是这个参数我一旦给出flash的完整路径，就提示我
Invalid request, 设置这个参数为空和去掉这个参数都没有问题！问题点数：100、回复次数：12Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-30 15:30:44 得分 50

MSDN:

AddOLEObject Method

......
ClassName Optional String. The OLE long class name or the ProgID for the object that's to be created. You must specify either the ClassName or FileName argument for the object, but not both.

FileName Optional String. The file from which the object is to be created. If the path isn't specified, the current working folder is used. You must specify either the ClassName or FileName argument for the object, but not both.

不要同时指定ClassName和FileName
Top

2 楼haonan9869（“好难”）回复于 2006-03-30 15:48:08 得分 0

兄台!那我的需求不会因此而实现不了了吧!有没有好办法啊!Top

3 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-30 15:48:25 得分 10

换个思路，用下面的方法：
http://www.ntyt.net/html/2005-12/89.htmTop

4 楼haonan9869（“好难”）回复于 2006-03-30 16:06:22 得分 0

楼上的，你的换种思路不适合我啊！我是要在vb程序中给出flash路径，然后插入到ppt中播放的，而且现在遇到的关键问题就是flash路径的问题，这种换种思路的程序，也是手动在ppt中给出要播放的路径的！我的问题也就处在这里！不能改成手动的Top

5 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-30 16:08:26 得分 0

那就只好帮你顶咯Top

6 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-30 16:38:37 得分 10

能不能直接指定Movie属性？？ShockwaveFlash1.Movie = "......"Top

7 楼junki（『.NET技术争霸天下』）回复于 2006-03-30 17:09:49 得分 10

快下班了,回去试一试.Top

8 楼haonan9869（“好难”）回复于 2006-03-31 08:28:54 得分 0

通过指定movie属性的方法，我也是这么想的，但是加不上去，不知道怎么写代码！因为
这个Flash控件是通过AddOLEObject方法动态加上去的，其一名称，不能确定就是ShockwaveFlash1，其次即时知道这个名称，又怎么找到他的movie属性阿Top

9 楼hot1kang1（网站制作,系统开发,记得-http://3q2008.Com）回复于 2006-03-31 09:39:51 得分 10

只是一个思路

你应该可以得到flash的路径是吧
vba程序调用你的PPP 在后台打开然后根据PP上已经设定好的域找到对应的位置,然后讲你的FASH插入
下面是插入图片的相信宏代码 ..

ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="C:\Documents and Settings\cc.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=324, Top:=235, Width:=73, Height:=71).Select
Top

10 楼haonan9869（“好难”）回复于 2006-03-31 10:12:23 得分 0

flash路径通过vb程序提供！
你说的方法插入图片没有问题，因为插入图片调用的方法是AddPicture
,而插入Flash调用的是AddOLEObject，这个方法中，ClassName，和FileName是不能同时
出现的，而我又需要在ppt上建立这个对象后，不需要用户手动输入Flash的路径，而直接
就能浏览到Flash!Top

11 楼haonan9869（“好难”）回复于 2006-04-03 09:14:24 得分 0

求助啊!!!!!Top

12 楼hot1kang1（网站制作,系统开发,记得-http://3q2008.Com）回复于 2006-04-04 15:49:51 得分 10

你不可以使用 Shockwave Flash 来播放你的flash 吗? 试试用这个空件Flash.Movie ="c:\aa.swf"Top