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

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

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.

Responder a este mensaje

#2 Oszkar M^

14/05/2010 - 17:45 | Informe spam

Hécto,

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:uta 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:

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.

.

Responder a este mensaje

#3 Héctor Miguel

15/05/2010 - 07:22 | Informe spam

hola, Oszkar !

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:uta 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/....gif"
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida