Revisar este codigo de una macro
Estimados
Tengo el siguinete problema con una macro que me guardar un rango como imagen pero generar un error, puede que este haciendo algo el excel utilizado es 2010, favor su ayuda, el error lo marca en chart.paste
ActiveWindow.Zoom = 120 'Reduce la hoja para que la imagen quede ajustada al mail
With Range("BN1:BY43") 'Rango a guardar como imagen
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "D:\Resumen Atm_" & fec & ".jpg" 'directorio en donde guarda la imagen
.Delete
1 respuesta
Respuesta de Dante Amor
1
Tal vez es por la versión 2010, en la versión 2007 me funciona bien.
Prueba con la siguiente macro:
Sub imagen2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWindow.Zoom = 120 'Reduce la hoja para que la imagen quede ajustada al mail
Set h1 = ActiveSheet
Set h2 = Sheets.Add
With h1.Range("BN1:BY43") 'Rango a guardar como imagen
Izq = .Left: Arr = .Top: ancho = .Width: alto = .Height: .CopyPicture
End With
h2.Shapes.AddChart
h2.ChartObjects(1).Select
With Selection
.Width = ancho
.Height = alto
.Chart.Paste
.Chart.Export "D:\Resumen Atm_" & fec & ".jpg" 'directorio en donde guarda la imagen
.Delete
End With
h2.Delete
End SubSaludos.Dante Amor
Si es lo que necesitas.
