Imagen animada en userform
Oszkar M^
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
H�ctor Miguel
> 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:\ruta 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:\ruta 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:\ruta y\carpetas donde esta\miAVIanimado.AVI"
o si la version del mediaplayer es posterior a la 9...
MediaPlayer1.URL = "c:\ruta y\carpetas donde esta\miAVIanimado.AVI"
si cualquier duda (o informacion adicional)... comentas?
saludos,
hector.
Oszkar M^
Antes de todo, muchas gracias.
Logré poner la imagen animada en el userform. Sin embargo, cuando se abre el
fichero en otro ordenador, me sale un error en esta línea:
WebBrowser1.Navigate "c:\ruta y\carpetas donde esta\miGIFanimado.gif"
Entiendo que es por que la imagen está grabada en mi ordenador y no en aquel
donde se abre el fichero excel.
Cómo puedo solucionar este error?, es decir, que el fichero se pueda abrir
en cualquier ordenador y que no haga falta grabar la imagen en cada uno de
ellos?.
Muchas gracias Héctor.
--
Saludos,
Oszkar M^
Sevilla - España
"Héctor Miguel" wrote:
> .
>
H�ctor Miguel
> Logre poner la imagen animada en el userform.
> Sin embargo, cuando se abre el fichero en otro ordenador, me sale un error en esta linea:
> WebBrowser1.Navigate "c:\ruta y\carpetas donde esta\miGIFanimado.gif"
> Entiendo que es por que la imagen esta grabada en mi ordenador y no en aquel donde se abre el fichero excel.
> Como puedo solucionar este error?, es decir
> que el fichero se pueda abrir en cualquier ordenador y que no haga falta grabar la imagen en cada uno de ellos?.
que te puedo decir ?, el archivo a mostrar debe estar "en algun lado", podrias p.e. ...
- ponerlo en alguna pagina web y que el codigo lo tome desde ahi ?
ejemplo (cuidado con los "saltos de linea"):
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "http://images.animationfactory.com/thm/thm14/AF/animations/people_m_z/mailman/mailman_scared_of_dog/mailman_scared_of_dog_lg_nwm.gif"
End Sub
saludos,
hector.