Imagen animada en userform

13/05/2010 - 18:10 por Oszkar M^ | Informe spam
Hola amigos del foro,

Me gustaría saber como puedo poner una imagen animada (gif) en un userform,
y que al activar dicho userform, la imagen tenga movimiento. He visto algunas
respuestas, pero no logro verlo de forma clara. Si alguien tiene un ejemplo o
puede decirme cómo, de una forma relativamente fácil (no domino estos temas),
se lo agradecería enormemente.


Muchas gracias.


Saludos,

Oszkar M^
Sevilla - España
 

Leer las respuestas

#1 Héctor Miguel
14/05/2010 - 02:59 | Informe spam
hola, Oszkar !

Me gustaria saber como puedo poner una imagen animada (gif) en un userform
y que al activar dicho userform, la imagen tenga movimiento.
He visto algunas respuestas, pero no logro verlo de forma clara.
Si alguien tiene un ejemplo o puede decirme como, de una forma relativamente facil (no domino estos temas) ...



puedes mostrar gif-animados incrustados en tus hojas de excel o a traves de formularios...
-> prueba a incrustar en el formulario un objeto WebBrowser (Explorador del Web de Microsoft)
-> selecciona el boton 'mas controles...' de la barra de herramientas cuadro de controles
(te propongo este objeto porque es -casi- seguro que lo encontraras instalado en todo sistema)
y las instrucciones (siguientes) las pones p.e. en el evento '_initialize' o en el '_activate' del formulario

a) puedes establecer la imagen que se mostrara en el control con codigo como...
WebBrowser1.Navigate "c:uta y\carpetas donde esta\miGIFanimado.gif"

b) si vas a estar cambiando de imagenes en el mismo 'contenedor'... (probablemente)
necesitaras 'completar' sentencias html (por si las dimensiones del GIF exceden las del control (p.e.)
WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
"c:uta y\carpetas donde esta\miGIFanimado.gif" & _
"'></img></body></html>"

c) seguramente necesitaras hacer pruebas con mas 'propiedades/eventos/condiciones/...
incluso con otros controles (como el windowsmediaplayer -entre otros-) solo...
-> OJO: con las versiones instaladas

-> un ejemplo para el media player pudiera ser +/- como el siguiente:
MediaPlayer1.Filename = "c:uta y\carpetas donde esta\miAVIanimado.AVI"

o si la version del mediaplayer es posterior a la 9...
MediaPlayer1.URL = "c:uta y\carpetas donde esta\miAVIanimado.AVI"

si cualquier duda (o informacion adicional)... comentas?
saludos,
hector.

Preguntas similares