Excel VBA：操作Shockwave Flash属性
我正在开发一个小项目，使用YouTubevideo在Excel中制作“memeplayer” – 这里是电子表格的屏幕截图
我试图使用的代码如下：
Option Explicit Sub PlaySamsMemes() Dim sChosenTitle As String Dim rngVideoData As Range Dim lFinalRow As Long Dim sLookupValue As String lFinalRow = Range("C65536").End(xlUp).Row sChosenTitle = Range("F4").Value Set rngVideoData = Range("B2:C" & lFinalRow) sLookupValue = Application.VLookup(sChosenTitle, rngVideoData, 2, False) Memeplayer.SetVariable("Movie", sLookupValue) End Sub 如果您能告诉我如何让脚本与我在Excel界面中命名为“Memeplayer”的embedded式Shockwave Flash相得益彰，我会非常感激。 我正在使用的线路来尝试运行：
Memeplayer.SetVariable（“Movie”，sLookupValue）
但它只是返回一个“Object required”错误（运行时错误424）。 我还没有很多形状和对象的工作，我不知道如何解决它。 请帮帮我！
我已经解决了这个问题。 我只是没有正确的设置对象 – 无法找出它的heirachy。 代码如下：
Set MemePlayer = Sheets(1).MemePlayer MemePlayer.Movie = sLookupValue
VBA有很多限制，试图在Excel中做这样的事情可能不是最好的办法。 但是，这里有两个网站可能会对您的问题提供一些帮助：
- http://chandoo.org/wp/2011/01/11/embed-youtube-videos-excel/ – 这应该对大多数人都有帮助
- http://www.cpearson.com/excel/DownloadFile.aspx （来自网站： http : //www.pcreview.co.uk/forums/do-use-vba-play-sound-clip-website-t3893819。 html ）
希望这可以帮助。