vba to copy all charts on worksheet at larger size, export then delete

[reece1984]

Hi All,

I have a dashboard of over 20 small charts that I would like to export as png images at a larger resolution.
The macro that I have at the moment exports the charts but does not resize them. In order to export larger charts I think that my code needs to make a copy of each chart at a larger resolution (say 1200x1200), export it, and then delete the copy and move onto the next chart.

Could anybody please help me improve the code below to do this?

Sub ExportCharts()

Dim objCht As ChartObject
For Each objCht In ActiveSheet.ChartObjects
objCht.Chart.Export "H:\desktopxp\charts\" & objCht.Name & ".png", "PNG"
Next objCht
End Sub

Thank you.

Reece

 

[reece1984]

Hi All,

Please consider this thred closed. I have figured out that by zooming in on the excel dashboard before running the export macro then the images all export at a higher resolution.