Codigo para exportar un grupo de celdas

hola, Alex !

... codigo para exportar un grupo de celdas a una imagen con formato GIF o JPG?

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\RangoGIF.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub