打开XLSM文件时禁用Windows Media Player视频自动播放

Question

我试图在我的XLSM文件中嵌入mp4视频，并将任务分配给某些按钮以在需要时播放该文件。

Private Sub CommandButton2_Click()
WindowsMediaPlayer1.URL = ThisWorkbook.Path & "\video\" & "video1.mp4"
Application.Wait (Now + TimeValue("0:00:02"))
WindowsMediaPlayer1.Controls.Play
End Sub

打开XLSM文件时如何从自动播放中停止媒体文件？

Answer 1

Media Player对象具有autostart属性作为其settings属性的一部分。您可以在启动时将此属性设置为false。在工作簿模块中输入代码：

Private Sub Workbook_Open()
    Sheet1.WindowsMediaPlayer1.settings.autoStart = False
End Sub

（如果需要，可以调整工作表参考）。