3

我正在尝试找出一种将视频嵌入 Excel VBA 中的用户表单的方法，但我面临的问题是，根据某些网站，您需要添加“Shockwave Flash Object”控件并使用它将 youtube 视频嵌入到用户表单中，但我似乎无法在附加控件列表中找到 Shockwave Flash 对象。我需要添加一些参考吗？或者有没有更简单的方法将 youtube 视频嵌入到用户表单中？

4

1 回答 1

5

好吧，我确实在列表中找到了该控件，然后它就像这样工作： 

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

但如果您需要替代方案，您可以在 Webbrowser 控件（控件列表中的“Microsoft Web Browser”）上显示嵌入对象。 

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

于 2013-10-04T20:43:47.713 回答