Olá pessoal !
Estou um pouco sumido, mas gostaria de uma ajuda.
Eu consegui um código que abre o arquivo de video (no meu caso) e toca no WMP que coloquei no excel.
Primeiro problema: as vezes o video fica do tamanho que eu quero (320x240) e as vezes não;
Segundo problema: gostaria que na hora de carregar o video, o mesmo ficasse pausado e eu só começasse a vê-lo quando apertasse o "play";
Terceiro problema: quando abro o arquivo e anteriormente, esse mesmo arquivo, tinha passado algum vídeo e foi salvo, ele abre com o video executando e no tamanho original e não no tamanho de 320x240.
Estou usando esse código abaixo e não sei mais aonde mexer.
Esse primeiro código é para ver se o player vem sem arquivo nele e do tamanho que eu quero.
Private Sub Auto_Open()
Me.WindowsMediaPlayer1.URL = "" ' Apaga o caminho no player
Me.WindowsMediaPlayer1.Width = 320 ' Atribui a largura do video
Me.WindowsMediaPlayer1.Height = 240 'Atribui a altura do video
Me.WindowsMediaPlayer1.fullScreen = False 'Atribui se o video vai ser visualizado em tela cheia
End Sub
Esse segundo código, abre uma janela para carregar o video e configura o player para as configurações que eu quero (pelo menos tentando querer. rsrs)
Private Sub btnAbrirArquivo()
Dim Caminho As String 'Caminho do arquivo
Dim fDialog As Office.FileDialog
'Configura caixa de seleção do arquivo
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False 'Habilita ou desabilita a seleção de múltiplos arquivos
.Title = "Selecionar arquivo..."
'.InitialFileName = 'Caminho inicial para seleção, não utilizado no exemplo
'Configura filtros da caixa de seleção
.Filters.Clear 'Limpa os filtros
.Filters.Add "Arquivos de video", "*.avi" 'Adiciona filtro para arquivos .avi
.Filters.Add "Arquivos de video", "*.mp4" 'Adiciona filtro para arquivos .mp4
.Filters.Add "Arquivos de video", "*.mpg" 'Adiciona filtro para arquivos .mpg
.Filters.Add "Arquivos de video", "*.mpeg4" 'Adiciona filtro para arquivos .mpeg4
.Filters.Add "Arquivos de video", "*.divx" 'Adiciona filtro para arquivos .divx
.Filters.Add "Arquivos de video", "*.mkv" 'Adiciona filtro para arquivos .mkv
.Filters.Add "Arquivos de video", "*.3gp" 'Adiciona filtro para arquivos .3gp
.Filters.Add "Todos os Arquivos", "*.*" 'Adiciona qualquer arquivo
If .Show = True Then 'Se o parâmetro .Show for igual à True significa
'que algum arquivo foi selecionado
Caminho = .SelectedItems.Item(1) 'Local + arquivo selecionados são passados para
'a variável chamada de "Caminho"
Else
MsgBox "Você clicou em cancelar"
End If
End With
Me.WindowsMediaPlayer1.URL = Caminho ' Atribui o caminho do arquivo diretamente no player
Me.WindowsMediaPlayer1.Width = 320 ' Atribui a largura do video
Me.WindowsMediaPlayer1.Height = 240 'Atribui a altura do video
Me.WindowsMediaPlayer1.fullScreen = False 'Atribui se o video vai ser visualizado em tela cheia
Me.WindowsMediaPlayer1.Controls.pause 'Atribui o valor de pausa ao video
End Sub
Postado : 05/10/2016 2:32 pm