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

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

1 голос
/ 17 августа 2011

Я пытаюсь установить значение для свойства 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 Ответ

0 голосов
/ 17 августа 2011

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

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