Automatizar carga de videos en control Windows Media Player, dependiendo del valor de un rango
publicado
¡Hola amigos !
En otro Libro tengo el siguiente código que me funciona perfectamente:
Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Range("Ak14:As18"), Target) Is Nothing Then
For Each celda In Range("w25:W34")
If celda.Value <> "" Then datos = datos + 1
Next
If datos > 0 Then
Iniciar
Else
Parar
End If
End If
'a partir de aquí quiero modificar el código para que, en lugar de ejecutar el WebBrowser4 y reproducir un GIF animado que tengo en una carpeta , dependiendo delcontenido del rango W25:W34,me ejecute el control Windows Media Player que tengo insertado en el rango S2:AE12 y reproduzca un video corto guardado en una carpeta. Es decir,en lugar de
¡Hola amigos !
En otro Libro tengo el siguiente código que me funciona perfectamente:
Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Range("Ak14:As18"), Target) Is Nothing Then
For Each celda In Range("w25:W34")
If celda.Value <> "" Then datos = datos + 1
Next
If datos > 0 Then
Iniciar
Else
Parar
End If
End If
'a partir de aquí quiero modificar el código para que, en lugar de ejecutar el WebBrowser4 y reproducir un GIF animado que tengo en una carpeta , dependiendo del contenido del rango W25:W34, me ejecute el control Windows Media Player que tengo insertado en el rango S2:AE12 y reproduzca un video corto guardado en una carpeta. Es decir, en lugar de
' WebBrowser4.Navigate "C:\fuegosartificiales.GIF"'
Hacer un código parecido a
' Windows Media Player1.Navigate "C:\videos\pulgoso.mp4"'
Lo he intentado pero no consigo que funcione. ¡¡Muchas gracias por ayudarme!!
Este es el código que quiero modificar para que reproduzca el video en lugar del GIF
Set Target = Range("W25")
If Target.Value = "Lunes llegué tarde" Then
WebBrowser4.Navigate "C:\GIF,s ANIMADOS\fuegosartificiales.GIF"
Set Target = Range("W25")
If Target.Value = "Viernes no computa antes de las 7:00 h" Then
WebBrowser4.Navigate "C:\GIF,s ANIMADOS\monito.GIF"
End If
End Sub
Reproducir videos en EXCEL con WMP.xlsm