Excel VBA：操纵Shockwave Flash属性

Question

我正在开展一个小项目，用Excel视频在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”的嵌入式Shockwave Flash相得益彰，我将非常感激。我用来尝试让它运行的行是：

Memeplayer.SetVariable（“Movie”，sLookupValue）

但它只返回'Object required'错误（运行时错误424）。我还没有使用过形状和物体，我也不知道如何解决它。请帮帮我！

Answer 1

我已经解决了这个问题。我只是没有正确设置对象 - 无法找出它的heirachy。代码如下：

Set MemePlayer = Sheets(1).MemePlayer

MemePlayer.Movie = sLookupValue

Answer 2

VBA有很多限制，尝试在Excel中做这样的事情可能不是最好的方法。但是，这里有2个网站可能会对您的问题有所了解：

1. http://chandoo.org/wp/2011/01/11/embed-youtube-videos-excel/ - 这应该对我认为最有帮助
2. http://www.cpearson.com/excel/DownloadFile.aspx（来自网站：http://www.pcreview.co.uk/forums/do-use-vba-play-sound-clip-website-t3893819.html）

希望这有帮助。