Guru do Excel e Power BI

http://profwillianexcel.forumeiros.com/ ... a-vba#4321

Estou 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

Se entendi; experimente criando uma playlist com extensão .m3u (http://www.planilhando.com.br/forum/vie ... 104#p94104)

Código: Selecionar todos

Sub listaWMPlayer()
'Altere aqui o caminho onde seu arquivo playlist estará
Caminho = ThisWorkbook.Path & Application.PathSeparator
'Altere aqui o nome de sua plalist
Arquivo = "mList.m3u"
Open Caminho & Arquivo For Output As #1

Cpo0 = "#EXTM3U" & vbCrLf

Cpo1 = "#EXTINF:0, arquivoentrada.mp4" & vbCrLf
Cpo2 = "C:\graficos\arquivoentrada.mp4" & vbCrLf
Cpo3 = "#EXTINF:0, novoarquivo.mp4" & vbCrLf
Cpo4 = "C:\graficos\novoarquivo.mp4" & vbCrLf
Cpo5 = "#EXTINF:0, replaysaida.mp4" & vbCrLf
Cpo6 = "C:\surfcore\Replay\graficos\replaysaida.mp4"
        
Dados = Cpo0 & Cpo1 & Cpo2 & Cpo3 & Cpo4 & Cpo5 & Cpo6
        
Print #1, Dados
        
Close #1
'Aqui o caminho de seu mplayer
Shell ("C:\Program Files (x86)\Windows Media Player\wmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
'Shell ("C:\Arquivos de programas\Windows Media Player\wmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
End Sub

Resolvido dessa forma.

Obrigado

Eu gero esta Playlist a cada 20 minutos com arquivos de vídeos curtos que variam de 4 a 8 arquivos com tempo total de 30 segundos a 1 minuto
Mais 2 perguntas:
1) Tem a possibilidade de definir um arquivo de áudio independente enquanto rodar os vídeos?
2) Tem como definir legenda para cada arquivo de vídeo que eu colocar nessa playlist?

Não entendi.
"Definir um audio independente", o que vem a ser isso??
Legendas podem ser arquivos "tipo texto"; normalmente com extensão srt; que se estiverem no mesmo diretorio do video, devem ser executadas pelo player, como não utilizo o wmplayer não sei se o mesmo as reconce

Legendas são, normalmente, arquivos estruturados com informação de tempo e dizeres, que utilizam basicamente a extensão .srt, que recebem o mesmo nome do arquivo de vídeo (só altera extensão) e se salvas no mesmo diretorio do arquivo de vídeo, são executadas/carregadas automaticamente pelos players.

O que entende por "um video independente"

Guru do Excel e Power BI

Executar PLaylist em WMPlayer via VBA

Executar PLaylist em WMPlayer via VBA

Re: Executar PLaylist em WMPlayer via VBA

Executar PLaylist em WMPlayer via VBA

Executar PLaylist em WMPlayer via VBA

Executar PLaylist em WMPlayer via VBA

Re: Executar PLaylist em WMPlayer via VBA