............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Insetar gif en excel

Ver el tema anterior Ver el tema siguiente Ir abajo

Insetar gif en excel

Mensaje por moises melgar el Lun Ago 23, 2010 7:42 pm

Hola foro, hace un rato, bueno en la mañana me vi a la necesidad de colocar una imagen gif animada en excel...... y por fin la encotre en esta pagina me resulto la recomiendo:

[Tienes que estar registrado y conectado para ver este vínculo]

Para insertar una imagen gif animada en una hoja Excel, probablemente lo primero que hagamos es ir al menú Insertar / Imagen, pero eso no funciona. Esto se debe a que la animación está hecha para varias imágenes y la importación solo se limita a la primera.
Para que la animación funcione, hay que insertar la imagen en un Control.

Para insertar el control, vamos al menú Ver / Barra de herramientas / Cuadro de controles ( de hecho es la ficha de programador donde se localiza esta barra de herraminetas, boton de inicio/opciones de excel/mas frecuentes/mostrar ficha de programador en la cinta de opciones)

Activa el primer botón “Modo diseño” ( puede activarse despues, sirve para modificar el area donde insertamo sel gif)

Elige el último botón (el del martillo), luego selecciona "Navegador Web Microsoft" (lo encontre como Microsoft web browser)

Luego delimita un área para insertar la imagen.

Desactiva el primer botón “Modo diseño” y la barra de herramientas.

Finalmente, en el editor VBA y en la ventana de la hoja concernida pegar el siguiente código:


Private Sub Worksheet_Activate()
WebBrowser1.Navigate "X:\ruta completa de la imagen.GIF"
End Sub

(en mi caso fue C:\Documents and Settings\Usuario\Escritorio\cargando.gif)

Cambia la página activa de la hoja Excel, luego regresa a la hoja de animación para ver la imagen animada. (logicamente hay que desactivar el boton de modo diseño)

Para insertar otras animaciones, debemos seguir el mismo procedimiento, agregando cada vez una línea con el código de arriba, teniendo en cuenta el número del control atribuido.


WebBrowser2.Navigate "X:\ruta completa de la imagen.GIF"

Para insertar otras animaciones en otras páginas, debemos proceder de la misma manera agregando el procedimiento VBA en cada página concernida.



Si el tamaño no cuadra con la imagen, debemos corregir:

* Activamos el primer botón ”Modo diseño”
* Redimensionamos el marco y sus parámetros.
* Desactivar el primer botón ”Modo diseño” y la barra de herramientas.

Origen:
[Tienes que estar registrado y conectado para ver este vínculo]

Si encuentran algo interesante como esto publiquenlo para que todos tengamos la oportunidad de aprender

gracias...

moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 512
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por GalileoGali el Lun Ago 23, 2010 8:40 pm

Muy buen aporte, moises, complementas muy bien algunos tópicos que tiempo atras dedicamos a
este control: WebBrowser

[Tienes que estar registrado y conectado para ver este vínculo]

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por moises melgar el Lun Ago 23, 2010 8:50 pm

gracias gali por el link al ver el tema me di cuenta de lo grande que es esta herramieta y ademas que se nota que es un tema ya antes dicutido por pali y usted (gali) y eso ya en si es un nivel muy por encima lo analizare con calma en mi casa ya que estoy en el trabajo


moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 512
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por dya8378x1d el Mar Ago 24, 2010 12:35 pm

Buen dia,

Gracias, por el aporte son geniales.
Saludos.

dya8378x1d

Masculino Cantidad de envíos : 11
Edad : 33
Ciudad - Pais : mexico
Version de Excel : xp
Fecha de inscripción : 10/07/2009

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por meade el Mar Ago 24, 2010 12:58 pm

fantastico si cada uno de los que aprende compartiera lo que sabe estariamos mejor capacitados

gracias por este aporte de verdad muchoas gracias por compartir

meade

Masculino Cantidad de envíos : 1
Edad : 32
Ciudad - Pais : mexico
Version de Excel : todas las versiones
Fecha de inscripción : 12/09/2009

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por hecfran el Mar Ago 24, 2010 8:08 pm

Realmente espectacular y sencillo. Pero al querer insertar dos gif en la misma hoja me sale este cartel al querer visualizarlo:



¿Alguien sabe por qué?


hecfran

Masculino Cantidad de envíos : 11
Edad : 55
Ciudad - Pais : Rosario - Argentina
Version de Excel : 2007-2010
Fecha de inscripción : 10/08/2009

http://www.hectorfrancovig.com

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por moises melgar el Mar Ago 24, 2010 8:17 pm

hola eso es la nombre de tu macro dentro de la private sub van las dos
mira:
Private Sub Worksheet_Activate()
WebBrowser1.Navigate "C:\Documents and Settings\Usuario\Escritorio\shaka00191qx.gif"
WebBrowser2.Navigate "C:\Documents and Settings\Usuario\Escritorio\shaka24hk.gif"
End Sub

y esto hace que en mi hoja se visualizen los dos gif
al insertar tu WebBrowser, checa bien el numero que le corresponde a cada uno por que por accidente una vez se me fue el numero jajaajaja.
ahh y si soy un super fanatico de shaka de virgo, ya que es mi signo zodiacal
cuidate mucho

moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 512
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por hecfran el Mar Ago 24, 2010 8:28 pm

¡Así de fácil!! Gracias moises!! asunto terminado y repito: Espectacular aporte y re-sencillo.

hecfran

Masculino Cantidad de envíos : 11
Edad : 55
Ciudad - Pais : Rosario - Argentina
Version de Excel : 2007-2010
Fecha de inscripción : 10/08/2009

http://www.hectorfrancovig.com

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por kurupc el Mar Ago 24, 2010 9:44 pm

Muchas gracias a moises melgar por el aporte
(este usuario va a ser un Grande, acuérdense tiene la chispa)
y muchas gracias a GalileoGali por avisarnos de este tema
(este usuario ya es un GRANDE entre los Grandes)

Sigan así aunque sean temas ya vistos que nos nutrimos todos de los conocimientos que se exponen.

Saludos.

kurupc

Masculino Cantidad de envíos : 20
Edad : 46
Ciudad - Pais : Argentina
Version de Excel : 2003-2007
Fecha de inscripción : 12/04/2010

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por moises melgar el Jue Ago 26, 2010 7:04 pm

Hola y complementando el tema para insertar el gif en un userform igualmente se buscan en el cuadro de herramientas que apacer junto al userfom el microsoft web browser ( si no con el userform seleccionado menu ver/cuadr de herramientas, seleccionamos el cuadro de herramienta y click derecho/controles adicionales/ microsoft webbrowser y esto hara que apresca en el cuadro de controles...)

1. se inserta el microsoft webbrowser en el userform.
2. selecciona todo el userform y click derecho/ver codigo......
3. inserten en esa nueva ventana que aparecio la siguente intruccion:

' en el userform aparecera el gif deseado lo que esta entre parentesis es la ruta de tu gif

Private Sub UserForm_Initialize()
WebBrowser1.Navigate "C:\Documents and Settings\Usuario\Escritorio\wait_progress.gif"
End Sub

es exactamente igual que en las hojas de excel solo cambia la primera fila

cuidense y gracias

se pueden complementar con muchas de sus macros y no he visto que me arroje error en cualquiera de las macros que he colocado

por kurupc el Mar Ago 24, 2010 9:44 pm

Muchas gracias a moises melgar por el aporte
(este usuario va a ser un Grande, acuérdense tiene la chispa)

Gracias kurupc muchas gracias en serio tu mensaje me motiva a seguir adelante como una vez se comento en este foro la practica hace el maestro y al igual que muchos he aprendido mucho en este foro.

moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 512
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por kurupc el Vie Ago 27, 2010 12:39 am

De nada moises melgar y nuevamente muchas gracias por complementar el aporte.

Estuve practicando un poco con este tema y ocupé un led rojo que parpadeaba y me sirvió de mucho todo lo que exponés como así también lo expuesto por los Maestros GalileoGali y P@li en el ya mencionado link

[Tienes que estar registrado y conectado para ver este vínculo]

De ese link ocupé el siguiente código para tratar de posicionar bien arriba y a la izquierda el gif dentro del WebBrowser...

Código:
pDisp.Document.body.innerHTML = "<img style=""position:absolute;top:0px;left:0px;width:" & Fix(pDisp.Width * 1.33333333333333) & "px;height:" & Fix(pDisp.Height * 1.33333333333333) & "px"" src=""" & rutaUrl & """/>"

pero si tengo que insertar ese WebBrowser sobre algo que no sea blanco (ya que el WebBrowser es de fondo blanco por default) allí se vé el rectángulo del WebBrowser y sus bordes en bisel y no queda muy bien.

Resumiendo adjunto un archivo de excel

>>>Descarga LibroDeEjemploGIF.rar

y un Screen Shot de la hoja de dicho libro




Con el que estoy trabajando y lo que quiero lograr es que...

1.- el WebBrowser que contiene al GIF del Led Rojo que parpadea tenga fondo transparente o poder poner el color del fondo en este caso es un casi negro y

2.- que desaparezcan los bordes en bisel del WebBrowser para tratar de imitar al LedRojoChico de la derecha del GIF y que se vea natural como (por ejemplo) el LedRojo (que encontré googleando) de esta página que se encuentra a la derecha de la palabra audiovisual

[Tienes que estar registrado y conectado para ver este vínculo]

y por último si se puede
3.- Ocultar (por programación) el WebBrowser para ver una imágen estática de una AutoForma (por ejemplo el LedRojoChico de la derecha del GIF) y cuando estoy procesando Datos Muestro el WebBrowser con el GIF parpadenado encima de la Autoforma anterior, para indicar que está procesando datos.

Muchas gracias a todos.

kurupc

Masculino Cantidad de envíos : 20
Edad : 46
Ciudad - Pais : Argentina
Version de Excel : 2003-2007
Fecha de inscripción : 12/04/2010

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por Invitado el Vie Sep 24, 2010 9:58 pm

a mi no me sale el gif en excel, hice todo el procedimiento pero no sale

Invitado
Invitado


Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por moises melgar el Sáb Sep 25, 2010 12:21 pm

hola he encontrado que en ocasiones algo , no se, seguro los expertos si , pero el codigo de private sub no ejecuta el gif asi que para responder a skylug y la respuesta 3 de kurup, cito:
a mi no me sale el gif en excel, hice todo el procedimiento pero no sale
3.- Ocultar (por programación) el WebBrowser para ver una imágen estática de una AutoForma (por ejemplo el LedRojoChico de la derecha del GIF) y cuando estoy procesando Datos Muestro el WebBrowser con el GIF parpadenado encima de la Autoforma anterior, para indicar que está procesando datos.

les envio este archivo con dos botones



cuidense y espero que sea de gran utilidad


Última edición por moises melgar el Sáb Sep 25, 2010 5:02 pm, editado 1 vez

moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 512
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Insetar gif en excel

Mensaje por Contenido patrocinado Hoy a las 3:15 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.