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

Posted 2023-02-18

【中文标题】将值设置为 flashvars 属性不起作用

【英文标题】：Setting value to flashvars property doesn't work

【发布时间】：2011-10-28 17:04:25

【问题描述】：

当使用 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 的值仍然为空。你对这种奇怪的行为有什么想法吗？

谢谢，

【参考方案1】：

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

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