Question

我试图在单击菜单命令时在Excel中播放Youtube视频，但我找不到传递URL的参数。有谁知道吗？我知道filename是一个选项，但我需要能够在属性中传递movie参数。此外，有人知道如何在电影结束后自动播放和自动删除工作表吗？

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

我不知道播放电影，但您可以在Sub的末尾放置一些代码，通过使用该行来关闭活动工作表

ActiveSheet.Delete

希望这有帮助，

lewisthegruffalo

在Excel中播放电影

1 个答案: