graficos gif

05/08/2005 - 19:37 por alberto corrales | Informe spam

HOLA...
Alguien me puede ayudar, quisiera saber si se puede, insertar graficos con
extension GIF en una hoja de excel y que se vea que tiene moviemiento dentro
de la hoja.

Se los agradecere

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Daniel S.L.

06/08/2005 - 02:46 | Informe spam

Hola Alberto corrales.

creo que si se puede, mira estando en una hoja nueva de Excel dale ha la pestaña de la hoja
donde dice Hoja1 un clic con el botón izq. y selecciona la opción Ver código, y pega el
siguiente, no recuerdo bien quien me lo dio pero esta muy bueno te lo paso por si te ayuda en
algo, bueno pégalo

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$5" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
De_donde = "C:\imagenes\" & [a5] & ".gif" 'Aquí va la ruta donde están las imágenes
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f5:k24")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub

si no mal recuerdo fue el buen amigo Hector Miguel, bien debes de tener tus archivos en un
directorio o carpeta llamada Imagenes si ves el código en la linea "8" ahi le puede combiar de
gif a jpg, pero son imagenes fijas, una vez hecho esto cierra la ventana donde pusiste el
código y en la celda "A5" escribe el nombre"solo el nombre" y veras la imagen.
Un saludo,
Daniel.

Responder a este mensaje

#2 Daniel S.L.

06/08/2005 - 02:50 | Informe spam

Hola :-)

Corrección:

donde dice Hoja1 un clic con el botón izq. y selecciona la opción Ver código, y pega el

es de lado derecho. y selecc...

Un saludo,
Daniel

Responder a este mensaje

#3 Héctor Miguel

06/08/2005 - 04:33 | Informe spam

hola, alberto !

... se puede, insertar... GIF en una hoja de excel y que se vea que tiene moviemiento [...]

1) necesitaras incrustar en la hoja un objeto WebBrowser [Explorador del Web de Microsoft]
-> selecciona la herramienta/boton 'mas controles...' de la barra de dibujo [por orden alfabetico]
[te propongo este objeto porque es -casi- seguro que lo encontraras instalado en todo sistema] ;)

2) puedes establecer el objeto [p.e. un GIF animado] que se mostrara en el control con codigo como...
en un modulo de codigo 'normal' ==Sub AnimandoWebBrowser()
Worksheets("Hoja1").WebBrowser1.Navigate _
"C:\Ruta y\Carpetas donde esta\miGIFanimado.gif"
End Sub

3) 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.]
Worksheets("Hoja1").WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
"C:\Ruta y\Carpetas donde esta\miGIFanimado.gif" & _
"'></img></body></html>"

4) seguramente necesitaras hacer pruebas con mas 'propiedades/eventos/condiciones/...
incluso con otros controles [como el windowsmediaplayer -entre otros-] segun versiones instaladas -?-

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

Responder a este mensaje

#4 alberto corrales

08/08/2005 - 23:38 | Informe spam

GRACIAS MIGUEL

Pero me puedes orientar mas detalladamente lo que pasa es que no encuentro
como insertar de la bara de dibujo en mas controles... por fa si no es mucha
molestia...

También gracias a Daniel muy buena propuesta se me hizo interesante pero
quiero que tenga moviemiento gracias por lo mientras.

Responder a este mensaje

#5 Héctor Miguel

09/08/2005 - 01:26 | Informe spam

hola, alberto !

... lo que pasa es que no encuentro como insertar de la bara de dibujo en mas controles...

tienes razon... [disculpame] :)) [con relacion al boton para agregar 'mas controles...']
sucede que 'ese' control se encuentra por omision en la barra de herramientas 'cuadro de controles' :))
[solo que mis barras las he personalizado y lo agregue a la barra de herramientas de dibujo] :)

[creo que] por el resto de la propuesta no debiera haber mayores 'inconvenientes' -?-
-> pulsando ese boton [por orden alfabetico de la lista]...
-> localiza el control 'explorador del web de microsoft' [o microsofr webbrowser si en ingles]
-> incrustalo en una hoja de calculo
-> prueba con las lineas de codigo de la propuesta
[probablemente quieras que el comportamiento del gif animado 'obedezca' a otros eventos o situaciones] -?-

si cualquier duda... comentas?
saludos,
hector.

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida