https://profwillianexcel.forumeiros.com/t1107-criar-playlist-em-wmplayer-via-vba#4321Estou precisando executar uma playlist criada no WMPlayer fora do Excel
O problema tá ai, pois os códigos que achei na internet mais próximo com algumas pequenas adaptações que fiz, criou a Playlist, mas não executa o WMPlayer com essa playlist.
Sub listaWMPlayer()
Set WindowsMediaPlayer1 = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")
WindowsMediaPlayer1.currentPlaylist = WindowsMediaPlayer1.playlistCollection.newPlaylist("MinhaLista")
WindowsMediaPlayer1.currentPlaylist.Clear
WindowsMediaPlayer1.currentPlaylist.insertItem 0, WindowsMediaPlayer1.newMedia("C:\graficos\arquivoentrada.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 1, WindowsMediaPlayer1.newMedia("C:\graficos\novoarquivo.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 2, WindowsMediaPlayer1.newMedia("C:\graficos\replaysaida.mp4")
WindowsMediaPlayer1.Controls.Play
End Sub
Tony