Notifications
Clear all

Vídeo em VBA

2 Posts
2 Usuários
0 Reactions
798 Visualizações
(@brugnar0)
Posts: 1
New Member
Topic starter
 

Olá, boa noite a todos...

Estou criando um programa em vba que eu tenho varias opções de carros listados no meu UserForm1 e quando clicar no botão "Assistir vídeo" eu gostaria de abrir uma nova janela (um UserForm2) com um player de vídeo passando o vídeo sobre o determinado carro escolhido. Isto é possível? E como fazer?

Desde já agradeço...

 
Postado : 16/05/2016 7:58 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Você não expecificou se estes videos estão em alguma pasta no PC ou são da internet.

Se for de algum local da internet, você tem de adicionar o controle "Shockwave Flash Object" e nas propriedades colocar o caminho do video, geralmente do youtube.

Fonte: http://www.xtremevbtalk.com/excel/31162 ... -form.html
Se os videos estão em alguma pasta no PC, faça o seguinte:
Abra o Editor do Visual Basic e selecione o seu formulário, e se a caixa de ferramentas dos controles não estiver aparecendo, clique no icone | Caixa de ferramentas para exibi-la.

Com o Botão direito do mouse clique na caixa de ferramentas e selecione "Controles adicionais". Procure na lista de controle disponíveis até encontrar o Windows Media Player ou Shockwave Flash Object se for com endereço da internet.
Selecione e, em seguida, clique em OK.

Na caixa de ferramentas de controles selecione o controle WindowsMediaPlayer e insira em seu formulário. Este processo irá adicionar automaticamente uma referência para a biblioteca do Windows Media Player (wmp.dll). Você pode ver isso em Ferramentas | Referências.

Insira um CommandButton no formulário, de dois cliques e adicione o código abaixo, lembre-se de alterar o caminho / e nome do arquivo.

Option Explicit

Const strPATHNAME As String = "C:MeusVideosAltereNome.wmv"

Private Sub CommandButton1_Click()
    With WindowsMediaPlayer1
        .URL = strPATHNAME
        .Controls.Play
    End With
End Sub

Pesquise no google por :"Embed a Video in userform excel vba" e encontrara varios links e alguns até com exemplos.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/05/2016 6:02 am