Visual Basic video em excel com vba

[Grazzhy]

Olá galerinha tudo bem? então meu uso no excel é meio basico pro intermediário, eu anexei video no excel atraves da guia  desenvolvedor  pelo VBA o video ta tudo ok repdoduziu normal tudo beleza. porém quando fecho o arquivo e abro novamente o video reproduz sem imagem apenas audio. ai se clico modo design e retiro modo design ele aparece. mas se eu fecho arquivo e abro novamente o video nao aparece a imagem. preciso muito de ajuda pois esse arquivo excel e para uma apresentação de trabalho na empresa. 

[Midori]

@Grazzhy  Tente usar as funções do controle no VBA para reproduzir ou recarregar o arquivo, p.ex no WMPlayer.

 

Worksheets("Planilha1").WindowsMediaPlayer1.URL = "C:\Video.mp4"
...
Worksheets("Planilha1").WindowsMediaPlayer1.Controls.Play

 

[Grazzhy]

@Midori poderia escrever a funcao inteira, POR FAVOR ? eu nao sei.. deixa apenas espaco do link do video que é WMP

[Midori]

@Grazzhy  Se o controle não estiver em Planilha1 é só alterar para o nome correto da planilha. E se houver mais de um controle talvez você tenha que mudar o nome também que neste caso é WindowsMediaPlayer1.

 

Sub Macro()
    Dim WMP     As WindowsMediaPlayer
    Dim Arquivo As String
    
    Arquivo = "C:\Video.wmp"
    
    Set WMP = Worksheets("Planilha1").WindowsMediaPlayer1
        WMP.Url = Arquivo
        WMP.Controls.Play
End Sub

 

[Grazzhy]

@Midori

5 horas atrás, Midori disse:

Sub Macro() Dim WMP As WindowsMediaPlayer Dim Arquivo As String Arquivo = "C:\Video.wmp" Set WMP = Worksheets("Planilha1").WindowsMediaPlayer1 WMP.Url = Arquivo WMP.Controls.Play End Sub

 

devo ta fazendo algo errado, como como eu fiz; 

 

Sub Macro()
    Dim WMP     As WindowsMediaPlayer
    Dim Arquivo As String
    
    Arquivo = "\\svr-dc-001\Data\NOVA ESTRUTURA 2017\ENGENHARIA\P&D\PROJETOS\P&D\OLEX_DBO_AEROSSOL\Teste 15.05_forma aluminio_bolo\desmoldante.mp4"
    
    Set WMP = Worksheets("TESTE EM BOLO").WindowsMediaPlayer1
        WMP.Url = Arquivo
        WMP.Controls.Play
End Sub

 

onde estou errando? 

adicionado 0 minutos depois

ele fica preto quando abre arquivo depois que fecha.. 

[Midori]

7 minutos atrás, Grazzhy disse:

ele fica preto quando abre arquivo depois que fecha.. 

Sim, mas se rodar a macro novamente ele vai abrir/recarregar o vídeo corretamente.

 

Você pode rodar a macro manualmente ou deixar automática no evento Workbook Open para rodar sempre que abrir o arquivo.

[Grazzhy]

@Midori ele fica preto quando abre arquivo depois que fecha.. 

 

E como deixa automatico por gentileza?? pleasee

[Midori]

@Grazzhy Para funcionar o arquivo do Excel tem que estar salvo com a extensão xlsm.

 

Copie e cole a macro abaixo no módulo EstaPastaDeTrabalho.

 

Após salvar, fechar e abrir o arquivo novamente o vídeo deve rodar corretamente.

 

 

Private Sub Workbook_Open()
    Dim WMP     As WindowsMediaPlayer
    Dim Arquivo As String
    
    Arquivo = "\\svr-dc-001\Data\NOVA ESTRUTURA 2017\ENGENHARIA\P&D\PROJETOS\P&D\OLEX_DBO_AEROSSOL\Teste 15.05_forma aluminio_bolo\desmoldante.mp4"
    
    Set WMP = Worksheets("TESTE EM BOLO").WindowsMediaPlayer1
        WMP.Url = Arquivo
        WMP.Controls.Play
End Sub