............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Obtener imagen rango de celdas.

Ver el tema anterior Ver el tema siguiente Ir abajo

Obtener imagen rango de celdas.

Mensaje por JGautierM el Miér Nov 27, 2013 5:45 pm

Hola amigos, soy nuevo en este foto.
Acá les voy con mi duda: que realicé un modulo que de un rango de celdas genera un jpg, funciona bien, pero resulta que la calidad de la imagen es malisima, quisiera saber si alguien puede apoyarme con el código.

Sub test()
Dim cht As Chart
With Range("A1:IU39")
.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set cht = ActiveSheet.ChartObjects.Add(10, 10, .Width,
.Height).Chart
End With
cht.Paste
cht.ChartArea.Border.LineStyle = 0
On Error Resume Next
Kill "testChart.jpg"
On Error GoTo 0
cht.Export "testChart.jpg", "jpg"
cht.Parent.Delete
End Sub

JGautierM

Masculino Cantidad de envíos : 1
Edad : 34
Ciudad - Pais : Antofagasta
Version de Excel : 2007
Fecha de inscripción : 27/11/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.