Codigo para exportar un grupo de celdas

25/08/2004 - 00:30 por Alex | Informe spam
Conocen algun codigo para exportar un grupo de celdas a
una imagen con formato GIF o JPG?

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/08/2004 - 10:39 | Informe spam
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida