New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Private Sub Document_Open() Dim strName As String strName = strPATHNAME & "all.wmv" 'your file name WindowsMediaPlayer1.windowlessVideo = True WindowsMediaPlayer1.settings.autoStart = False 'stop it from automatically starting on load WindowsMediaPlayer1.URL = strName 'add the path to your file WindowsMediaPlayer1.settings.volume = 100 'here you can change initial volume WindowsMediaPlayer1.settings.setMode "loop", False 'stop it from looping End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.