Установка значения для свойства flashvars не работает

Question

Установка значения для свойства flashvars не работает

Я пытаюсь установить значение для свойства FlashVars при вставке Flash-фильма Shockwave в PowerPoint 2010 с помощью vba следующим образом:

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

powerpoint powerpoint-vba shockwave

Источник

user497033 17 авг '11 в 08:09

1 ответ

Другие вопросы по тегам powerpoint powerpoint-vba shockwave

user665800 17 авг '11 в 08:12 2011-08-17 08:12 · Answer 1 · 2011-08-17 08:12

Я понятия не имею о встраивании Flash таким способом, но в браузере альтернативой определению объекта FlashVars может быть добавление переменных к имени SWF-файла. Это может стоить попробовать, если правильное решение не представляет себя.

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