vba - 将值设置为 flashvars 属性不起作用

Question

在使用 vba 将冲击波 Flash 电影插入 PowerPoint 2010 时，我正在尝试为属性 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，但在浏览器中定义 FlashVars 对象的替代方法是将变量附加到 SWF 文件名。如果没有合适的解决方案，这可能值得一试。

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