Excel VBA:操纵Shockwave Flash属性

Question

我正在做一个小项目，在Excel中制作一个带有YouTube视频的'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(“电影”，sLookupValue)

但它只返回一个'Object required‘错误(运行时错误424)。到目前为止，我还没有处理过太多的形状和对象，我不知道如何修复它。请帮帮我！

Answer 1

我已经解决了这个问题。我只是没有正确地设置对象--不知道它的继承权。代码如下：

Set MemePlayer = Sheets(1).MemePlayer

MemePlayer.Movie = sLookupValue

Answer 2

VBA有很多限制，尝试在Excel中做这样的事情可能不是最好的方法。然而，这里有两个网站可能会对你的问题有所帮助：

1. http://chandoo.org/wp/2011/01/11/embed-youtube-videos-excel/ -这应该对大多数I think
2. http://www.cpearson.com/excel/DownloadFile.aspx有帮助(来自网站：http://www.pcreview.co.uk/forums/do-use-vba-play-sound-clip-website-t3893819.html)

希望这能有所帮助。