Invoegen besturingselement Windows Media Player

[MrTinkertrain]

Hallo allemaal,

Ik ben met het volgende aan het stoeien:
Ik heb een sheet met daarop hyperlinks naar een map met playlists.
Dus als ik op een van die links klik, wordt de betreffende playlist afgespeeld met mijn default player (Billy)

Nu heb ik ontdekt dat je in een sheet ook de Windows Media Player als een besturingselement kunt invoegen.
Bij de eigenschappen van het besturingselement kun je dan de hyperlink neerzetten van het nummer of de playlist die je wilt afspelen.
Ik het het geprobeerd en dat werkt.

Wat ik nu graag zou willen is het volgende :
Is het mogelijk om nu elke keer dat ik op een hyperlink van een playlist klik, deze af te laten spelen met die ingesloten Windows Media Player ?

Ik hoop dat mijn vraag duidelijk genoeg is, anders hoor ik het wel
Alvast bedankt voor het meedenken.

 

[MrTinkertrain]

Ik ben er al uit

Blijkt vrij eenvoudig te zijn.

Sub Mediaplayer()
Dim strName As String
    strName = Range("C2").Value
    Blad1.WindowsMediaPlayer1.URL = strName
    Blad1.WindowsMediaPlayer1.Controls.Play
    End Sub

In cel C2 staat dan het volledige pad naar het m3u-bestand (playlist) of het losse nummer.

 

[Wigi]

Bedankt voor het antwoord.