En libro que se deja de ejemplo (al pie queda el enlace), se partió del Userform de la entrada publicada en el mes de marzo 2018: Interactuando con Userforms.
Lo que se ha hecho aquí es correr hacia abajo el frame o marco del formulario para insertar una especie de banner con un gif animado.
Previamente habrá que verificar si se tiene instalado el control llamado Microsoft Web Browser. Para ello desde la ficha Desarrollador o Programador se buscarán entre los controles tal como se muestra en la imagen.
Una vez ya verificado que se dispone del control correctamente instalado, procederemos a entrar al Editor de macros y trabajar con nuestro Userform.
Dependiendo del tamaño de nuestro gif extenderemos el formulario hacia abajo o a derecha y moveremos el frame para poder ubicar el gif.
Ahora nos resta incluir el código para mostrar la animación.
Las instrucciones las colocaremos en el evento Initialize ajustando nombre del archivo gif.
Private Sub UserForm_Initialize()
ruta = ThisWorkbook.Path 'la imagen se encuentra en el mismo directorio del libro
archivo = "feliz-navidad"
ext = ".gif"
WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
ruta & "\" & archivo & ext & "
'></img></body></html>"
End Sub
Descargar ejemplo desde aquí
Acceso al VIDEO N° 20.
No hay comentarios.:
Publicar un comentario