在Excel中播放电影

Question

我试图在Excel中播放Youtube视频中的菜单命令，但找不到要传递该网址的参数。有人知道吗？我知道文件名是一个选项，但我需要能够传递属性中的电影参数。另外，任何人都知道如何自动播放和自动删除表格一旦电影结束？

Option Explicit 
Sub movie() 
Sheets.Add After:=ActiveSheet 
ActiveSheet.Name = "Instructions" 
ActiveSheet.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.11", _ 
    Link:=False, DisplayAsIcon:=False, Left:=99.75, Top:=38.25, Width:= _ 
    953.25, Height:=461.25).Select 
End Sub 

Answer 1

我不知道播放电影，但你可以在小组的最后放置一些代码，通过使用该行的关闭活动工作表

ActiveSheet.Delete 

希望这有助于，

lewisthegruffalo