Excel VBA Player Tocar 2ª Musica

[deejaywesley]

Boa Noite amigos!

Procurei na net, mas nao achei o que to querendo!

eu fiz duas planilhas, em uma, o José Maria escolhe as musicas que vai rodar no programa de domingo que ele deixa gravado!

e eu tenho uma outra que pega as musicas que ele escolheu nessa planilha,

e nela coloquei 2 Player pra tocalas pela planilha mesmo...

vamos ao problema, qundo eu aperto o botao 1 ele exculta esse codigo

Private Sub CommandButton1_Click()

'Play 1

On Error Resume Next

ActiveCell.Interior.Color = RGB(0, 0, 255)

WindowsMediaPlayer1.URL = "\\Reservaam\D\W&SL&Y\ARQUiVOMUSiCAL\Roberto Carlos\" & ActiveCell

End Sub

esse codigo muda a cor da celula ativa, e no Player1 ele uni a URL com o nome da musica que esta na celula ativa!

ate aqui ta funfando beleza....

qundo eu clico duas vezes no player ele vai nesse codigo

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

linha de codigo aqui

End Sub

tem como eu adicionar uma linha de codigo pra quando a musica que ele ta tocando ele executar o outro pra rodar a seguda musica....

algo mais ou menos assim

Private Sub WindowsMediaPlayer1_StopChange(ByVal NewState As Long)

WindowsMediaPlayer2.URL = "\\Reservaam\D\W&SL&Y\ARQUiVOMUSiCAL\Roberto Carlos\" & ActiveCell

End Sub

porque tem que rodar 2as musicas, e ficar esperando a musica acaba pra tocar a outra, te triste...

alguem sabe?

[jeffsilveira]

Wesley, tentou usar o comando Call para chamar a sub do botão?

Tiro no escuro, mas numa dessas funciona.

[deejaywesley]

hummmm

tentei nao, mas so pra confirmar, ai ficaria assim?????

Call CommandButton1_Click()

Boa Tarde!

tive uma ideia pra fazer o que quero!

alguem sabe como eu coloco o tempo da musica em uma celula,

e que ele seja regrecivo, porque ai eu coloco uma linha, de quando o valor

da celula q esta o tempo da musica for igual a 00:00:07 ele dar play

no segundo player....?

[jeffsilveira]

Wesley, tenho esse arquivo de contagem regressiva.

Talvez se na macro você buscar pelo tempo da música e adaptar... tenta aí!

http://www.sendspace.com/file/s0x55p

Abração.

[ricardorjbr]

Umas dúvidas ae amigo.

Este código, é só abrir o excel e colá-lo ou tem que criar um VBA ou o que?

Esta lista da pra colocar;

01 => Capas e contracapa?

02 => Botão player?

03 => Lista das músicas ficam ocultas ou amostras?

04 => Gráfico das ondas musicais aparecem ou ficam ocultas?

05 => Dá pra anexar isto num site/blog caso um internauta entre player toque automaticamente? (Tipo assim; abrir uma aba lateral ou horizontal contendo a lista, lógico que a mesma deverá está armazenada num servidor).

06 = Dá pra por uma sinopse atualizada com Wikipedia?

 

Obs: Desculpa se fiz muitas perguntas, é que sou muito curioso!

qualquer coisa pode me responder neste e-mail [ [email protected] ] Obg!