Dim player as object ( windows media player )

[Stridhan]

Hi

Is there a way to declare the windows media player as an object or variant only by the default references?
Its not in a form.
If yes, how?
Im on excel 2010.

 

[mole999]

not sure if relevant, but this was a good media thread > https://www.mrexcel.com/forum/excel...wing-media-player.html?highlight=media+player this might give some ideas

 

[Stridhan]

Thank you mole999

Found below which would work if only the player closed afterwards, any idea why it wont work for me?

Sub test()
FileToPlay = """C:\Users\Public\Music\Sample Music\Kalimba.mp3"""
Shell "C:\Program Files\Windows Media Player\wmplayer /play /close " & FileToPlay
End Sub

 

[MrIfOnly]

If you insert the media player as an activeX control on worksheet 1 then try this:

Sub test()
With Worksheets(1).OLEObjects("WindowsMediaPlayer1").Object
    If .playState <> 3 Then
        .Enabled = True
        .Url = "C:\Users\Public\Music\Sample Music\Kalimba.mp3"
        .Settings.volume = 100
        .Controls.Play
    Else: .Controls.stop
    End If
End With
End Sub

You can find more settings for the media player in the Object Browser.

Also, you can setup another sub in your worksheet module to catch errors with the player. For example:

Private Sub WindowsMediaPlayer1_MediaError(ByVal pMediaObject As Object)
MsgBox "The media file was not found"
End Sub

Regards,

CJ

 

[Stridhan]

Thanks for sharing MrIfOnly.

Main goal is to not use a form or insert it in a sheet.
Using Shell work almost fine for me but from what Ive read in other posts /Play /Close should close the player when done but it stays open?