在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