Forum

Playing a Window Me...
 
Notifications
Clear all

Playing a Window Media Player's playlist in Excel

21 Posts
4 Users
0 Reactions
753 Views
(@sunnykow)
Posts: 1417
Noble Member
 

Hi Julian

I can get the SubRip file format to run with the VLC media player (not from Excel) but not on WMP.

I think I need to download some codec. I will set this as my 2017 new year resolution to learn more about SubRip file format.

Sunny

 
Posted : 17/12/2016 3:12 am
(@julian)
Posts: 82
Estimable Member
Topic starter
 

Hi Sunny,

Just came out two more findings for your reference: Both simplified Chinese characters and m4a file extensions could not be recognized when you Set sMedia = WindowsMediaPlayer2.mediaCollection.Add(SelVideo). And it's very nice to hear your new year resolution. I believe you must have had a very fruitful year 2016. I also wish you Merry Christmas and a happy new year soon in next two weeks. Thank you very much again for the wonderful gift you gave me.

 

Best regards,

 

Julian

 
Posted : 17/12/2016 10:17 am
(@julian)
Posts: 82
Estimable Member
Topic starter
 

Hi Sunny,

Regarding the script as listed below you provided for me last time, could you please do me one more favor by adding a loop to restart the playlist when it comes to the end? Tahnks advance.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
SelVideo = "Start"
    Set sPlayList = WindowsMediaPlayer2.playlistCollection.newPlaylist("MyPlayList")
    WindowsMediaPlayer2.currentPlaylist = sPlayList
   
    '1 row above the playlist
    ctr = 32
    Do While SelVideo <> ""
        ctr = ctr + 1
       
        'Add the song/video name from the current row
        SelVideo = Worksheets("Media").Cells(ctr, 1).Value
       
        'Exit if end of playlist
        If SelVideo = "" Then Exit Do
       
        Set sMedia = WindowsMediaPlayer2.mediaCollection.Add(SelVideo)
        WindowsMediaPlayer2.currentPlaylist.insertItem (WindowsMediaPlayer2.currentPlaylist.Count), sMedia
    Loop
   
    'Play the playlist
    WindowsMediaPlayer2.fullScreen = False
    'WindowsMediaPlayer2.Width = 550 '400 '260
    'WindowsMediaPlayer2.Height = 380 '355 '220
    WindowsMediaPlayer2.Controls.Play
End Sub

Julian

 
Posted : 31/01/2017 5:14 pm
(@sunnykow)
Posts: 1417
Noble Member
 

Hi Julian

Add this to your code:

'Play the playlist
WindowsMediaPlayer2.settings.setMode "Loop", True
WindowsMediaPlayer2.fullScreen = False

BTW I have learned that WMP does not support .srt (subtitle) but WMP Classic does. Since I don't have WMP Classic, I am now using VLC instead and it looks OK although I don't use subtitle myself. (My 2017 New Year resolution completed Cool).

Hope this helps.

Sunny

 
Posted : 01/02/2017 11:22 am
(@julian)
Posts: 82
Estimable Member
Topic starter
 

Hi Sunny,

Thanks again for your great support. Furthermore, to my surprise you were that serious to make your commitment and completed it so quickly. You are really awesome. I do admire your resolution.

Best regards,

Julian

 
Posted : 01/02/2017 5:47 pm
(@mediaplayer)
Posts: 1
New Member
 

when windows media player not working you can export the playlist from the media library to export your file, click the export playlist to file on the file menu. and save the file as save as button then type the descriptive name of the file and then click to ok.

 
Posted : 21/11/2017 5:05 am
Page 2 / 2
Share: