Gif animado
AgerGaston
Se puede poner un archivo GIF animado en una hoja ??? y que funcione como
tal. ?
Si es positivo me indican como.
Gracias
Abraham
AgerGaston
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/microsoft.public.es.excel/search?hl=es&group=microsoft.public.es.excel&q=gif+animado
>
> Abraham
>
>
Héctor Miguel
> ... 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.
AgerGaston
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ó:
Héctor Miguel
> 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/struct/objects.html#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:\ruta 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.