Cómo Exportar rango como imagen jpg

Muchas gracias Francisco, haré pruebas sobre tu propuesta, ya que lo que
necesito es que lo guarde directamente como archivo en una carpeta.

Me gustaría poder marcar tu respuesta como útil pero no lo consigo ya que no
me aparece ni la pregunta ni los botones "SI" "NO" para valorarla.

Un saludo.

"Francisco Parrilla" escribió:

Hola revisa este codigo:

Sub gif2()
Sheets(1).Range("A1:C5").CopyPicture _
Appearance:=xlScreen, _
Format:=xlPicture
Sheets(2).Paste
End Sub
Te lo guarda como GIF


Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Alpepep

aqui puse u ejemplo con word art que se muestra automaticamente en un
formulario
creo que puedes obviar este ultimo y quedarte solo con la imagen
generada

(Exportar autoforma como gif.zip)

http://www.mooload.com/new/file.php...mo+gif.zip

pd.-no veo la manera de que se vea como un link normal ???

salu2

¿?
ya se dio respuesta en otra consulta semejante donde se expone un
complemento
Saludos

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France