excel 2010 vba用户表单嵌入了youtube视频

Question

excel 2010 vba用户表单嵌入了youtube视频

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

Answer 1

Kek*_*mau 5

好吧,我确实在列表中找到了控件,然后就像这样:

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

Run Code Online (Sandbox Code Playgroud)

但是,如果您需要替代方法,则可以在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

Run Code Online (Sandbox Code Playgroud)

有关嵌入代码的更多信息:https:
//developers.google.com/youtube/player_parameters

归档时间：	12 年，3 月前
查看次数：	3104 次
最近记录：	12 年，3 月前