设定值FlashVars属性不起作用

Question

我试图插入的Shockwave Flash电影到PowerPoint 2010时，使用这样的VBA值设置为属性的FlashVars：

Dim s As Shape 
Set s = ActivePresentation.Slides(1).Shapes.AddOLEObject(0, 0, -1, -1, ClassName:="ShockwaveFlash.ShockwaveFlash") 

With s.OLEFormat.Object 
    .FlashVars = "parm1 = val1" 
    .EmbedMovie = True 
    .Movie = "D:\Samples\test.swf" 
End With 

但是，在执行设置命令后（s.OLEFormat.Object.FlashVars =“parm1 = val1”），FlashVars的值保持为空。你对这种奇怪的行为有什么想法吗？

感谢，

Answer 1

我不知道以这种方式嵌入闪存的想法，但在浏览器中定义Flash变量对象的替代可以将变量追加到SWF文件名。如果没有适当的解决方案，这可能值得一试。

.Movie = "D:\Samples\test.swf?parm1=var1"