2013-10-04 2 views
2

Я пытаюсь найти способ встраивания видео в пользовательскую форму в Excel VBA, но проблема, с которой сталкивается im, заключается в том, что, согласно некоторым сайтам, вам нужно добавьте элемент управления Shockwave Flash Object и используйте его для встраивания видео YouTube в пользовательскую форму, но я не могу найти Shockwave Flash Object в списке дополнительных элементов управления. Есть ли какая-то ссылка, которую мне нужно добавить? Или есть ли более простой способ встраивать видео в YouTube в форму пользователя?excel 2010 vba user form embed youtube video

+1

Would [THIS LINK] (http://stackoverflow.com/questions/6073260/excel-vba-manipulate-shockwave-flash-property) помощь ? –

+0

ссылка попросите добавить в ударную волну объект, но его нет в моем списке дополнительных элементов управления – user974047

ответ

3

Ну я нашел, что контроль в списке, а затем он работает так же, как что:

Private Sub CommandButton1_Click() 
    With Me.ShockwaveFlash1 
     .LoadMovie 0, "http://www.youtube.com/v/jmHkMsrycBw" 
    End With 
End Sub 

Но если вам нужна альтернатива, вы можете отобразить внедренный объект на элемент управления веб-браузера ("Web-браузер Microsoft 'в списке элементов управления).

Private Sub CommandButton2_Click() 
    With WebBrowser1 
     .Navigate2 "about:" & _ 
      "<body style=""margin:0px;padding:0px"">" & _ 
      "<object width=""100%"" height=""100%"" type=""application/x-shockwave-flash"" data=""http://www.youtube.com/v/jmHkMsrycBw&amp;hl=de&amp;fs=1&amp;color1=0x3a3a3a&amp;color2=0x999999&amp;border=1"">" & _ 
      "<param name=""movie"" value=""http://www.youtube.com/v/jmHkMsrycBw&amp;hl=de&amp;fs=1&amp;color1=0x3a3a3a&amp;color2=0x999999&amp;border=1"" />" & _ 
      "<param name=""allowFullScreen"" value=""true"" />" & _ 
      "</object></body>" 
    End With 
End Sub 

Дополнительная информация о вложении кода:
https://developers.google.com/youtube/player_parameters

+0

+ 1 Для подсказки веб-браузера! –

Смежные вопросы