Question

我正在尝试使用vba将Shockwave 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"

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

1 个答案: