Gif animado

27/06/2007 - 19:38 por AgerGaston | Informe spam

Hola a todos.
Se puede poner un archivo GIF animado en una hoja ??? y que funcione como
tal. ?

Si es positivo me indican como.

Gracias

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Abraham

27/06/2007 - 21:42 | Informe spam

Algunas respuestas:

http://groups.google.com/group/micr...if+animado

Abraham

Responder a este mensaje

#2 AgerGaston

29/06/2007 - 15:56 | Informe spam

Hola Abraham, gracias por responder.

Funciono ok lo que me mandaste, ahora viene las preguntas:
El tamaño del gif animado es estatico, no se puede cambiar ??
A la derecha de la venta del WebBrowser, aparece una barra de desplazamiento
vertical, se puede quitar ? se puede ocultar ??

Gracias.

"Abraham" escribió:

Algunas respuestas:

http://groups.google.com/group/micr...if+animado

Abraham

Responder a este mensaje

#3 Héctor Miguel

30/06/2007 - 07:57 | Informe spam

hola, (...) ?

... El tama#o del gif animado es estatico, no se puede cambiar ??

=> necesitaras ajustarlo *a mano* o preveer alguna dimension *sobrada* :-((

A la derecha de la venta del WebBrowser, aparece una barra de desplazamiento vertical
se puede quitar ? se puede ocultar ??

=> prueba con una instruccion del tipo:
WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
GIF_Animado & "'></img></body></html>"

saludos,
hector.

Responder a este mensaje

#4 AgerGaston

30/06/2007 - 20:10 | Informe spam

Hola Hector.
Hasta aqui todo funciona muy bien, ahora me surgen dos nuevas dudas.

1-Como quito las lineas que encuadran al WebBrowser ?
2-Como envio la planilla a los demas usuarios y que viaje el gif ???. Porque
al enviar la planilla por correo, al usuario, le aparece un recuadro con una
X (cruz) y no el gif.

Te copio el codigo tal como quedo:

Sub AnimandoWebBrowser()
Worksheets("Hoja2").WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src=' " & "C:\ftp\cd.gif" & "'"
End Sub

Gracias y saludos

"Héctor Miguel" escribió:

hola, (...) ?

> ... El tama#o del gif animado es estatico, no se puede cambiar ??

=> necesitaras ajustarlo *a mano* o preveer alguna dimension *sobrada* :-((

> A la derecha de la venta del WebBrowser, aparece una barra de desplazamiento vertical
> se puede quitar ? se puede ocultar ??

=> prueba con una instruccion del tipo:
WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
GIF_Animado & "'></img></body></html>"

saludos,
hector.

Responder a este mensaje

#5 Héctor Miguel

01/07/2007 - 04:31 | Informe spam

hola, !

Hasta aqui todo funciona muy bien, ahora me surgen dos nuevas dudas.
1-Como quito las lineas que encuadran al WebBrowser ?
2-Como envio la planilla a los demas usuarios y que viaje el gif ???.
Porque al enviar la planilla por correo, al usuario, le aparece un recuadro con una X (cruz) y no el gif.
Te copio el codigo tal como quedo:
Sub AnimandoWebBrowser()
Worksheets("Hoja2").WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src=' " & "C:\ftp\cd.gif" & "'"
End Sub

1) la opcion de *eliminar* [o administrar] los bordes del objeto webbrowser por codigos html...
[parece que se ha dejado a la discrecion del objeto mismo, poco/nada que hacer por htm] :-((
revisa: -> http://www.w3.org/TR/REC-html40/str...l#h-13.7.3

2) con relacion a que el gif animado *viaje* con tu archivo de excel... la opcion mas *barata* que te puedo conseguir...
a) es incluirlo en el envio junto con el archivo de excel [con instrucciones para que lo descarguen donde mismo]...
puedes instruir al codigo para que lo cargue [p.e.] desde un ThisWorkbok.Path & "\tu gif animado.gif"
b) ponerlo *disponible* desde una pagina web [lo que implicaria una conexion disponible al igual que la pagina]
y puedes indicar dicha direccion desde la macro que lo carga [sustituyendo "c:\ftp\..." por: -> "http://tuweb.com/.."
c) una tercera opcion es que en lugar del gif animado cargues un mensaje [con lo que necesites indicar al usuario] p.e.

Sub Animando_WebBrowser()
Dim Esta_imagen As String, Cargar_imagen As String
Esta_imagen = "c:uta y sub\carpetas donde esta\tu gif animado.gif"
Cargar_imagen = IIf(Dir(Esta_imagen) <> "", "", "Favor de cargar la imagen<br>" & _
"o que esperas ver<br>en este cuadro ???<br><\°|°/>") & "<img align='right' src='"
Worksheets("hoja2").WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & Cargar_imagen & Esta_imagen & "'></img></body></html>"
End Sub

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida