在使用 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 的值仍然为空。您对这种奇怪的行为有任何想法吗?
谢谢,