1

次のように 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 の値は空のままです。この奇妙な動作について何か考えがありますか?

ありがとう、

4

1 に答える 1

0

この方法で Flash を埋め込む方法についてはわかりませんが、ブラウザーでは、FlashVars オブジェクトを定義する代わりに、変数を SWF ファイル名に追加することができます。適切な解決策が見つからない場合は、試してみる価値があります。

.Movie = "D:\Samples\test.swf?parm1=var1"
于 2011-08-17T08:12:52.700 に答える