禁用Windows Media Playervideo自动播放，同时打开XLSM文件

我试图在我的XLSM文件中embeddedmp4video，并将任务分配给一些button，以便在需要时播放文件。

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

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

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

（如果需要调整纸张参考）。