Hola a todos;

-Estoy intentado programar un formulario para que reproduzca un video.

Lo reproduce a medias ya que me salta un error de script y me bloquea la macro.

Mi explorador predeterminado es Edge. 

A ver si sabéis donde me está el fallo.

Gracias anticipadas como siempre.

Adjunto macro ejemplo.

Video.xlsm

El fallo es pensar que WebBrowser usa el navegador Edge, que no genera errores de scripts.

El control WebBrowser forma parte de Internet Explorer y solo se puede usar en sistemas que tengan instalado Internet Explorer, como se explica en este enlace.

Lo que ocurre es que Internet Explorer no soporta las nuevas scripts de Edge y genera errores que hay que silenciar con este código:

Private Sub CommandButton1_Click()
    Dim ie As WebBrowser
    
    ' Pone WebBrowser
    Set ie = WebBrowser1
    
    ' Ignora errores de script
    ie.Silent = True
    
    ' Navega a la URL de la página Web
    ie.Navigate "https://youtu.be/njo-zPJZksM"
End Sub

No he probado esta macro pues en Microsoft 365 no está habilitado el control WebBrowser. Ya me contarás si a ti te funciona.

Salu2,

Pedro Wave

Hola Pegones;

Disculpa pero aún he visto hoy tú respuesta. 

Mañana pruebo y te comento. 

Muchas gracias por su interés.

Un saludo ?

Buenos días Pegones;

-He probado el código que me has propuesto y genial, ahora funciona de maravilla.

Ignoraba lo que comentas en el post.

Se lo agradezco mucho.

Un pequeño apunte, solo lo puede comprobar en  Excel 2019 - 64 bits

Que tenga buen día.