Guardar hoja de excel como imagen

hola, !

Necesito cuardar una hoja de excel como imagen... con una macro. saben si existe alguna forma de hacerlo...

una manera +/- rapida seria como la que te expongo al final.
suponiendo que deseas copiar el rango [B6:D16] de la hoja activa

saludos,
hector.

en un modulo de codigo 'normal' ==Sub CopiarUnRangoAGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Range("b6:d16")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "c:\mis documentos\miArchivo.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub

Muchas Gracias, Funciono perfectamente.

"Héctor Miguel" wrote:

hola, !

> Necesito cuardar una hoja de excel como imagen... con una macro. saben si existe alguna forma de hacerlo...

una manera +/- rapida seria como la que te expongo al final.
suponiendo que deseas copiar el rango [B6:D16] de la hoja activa

saludos,
hector.

en un modulo de codigo 'normal' ==> Sub CopiarUnRangoAGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Range("b6:d16")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "c:\mis documentos\miArchivo.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub


.