Here is the way to save the active chart in Excel 2007 to a JPG file. It is better to size the chart appropriately before exporting it as an image.
Dim oCht As Chart
Set oCht = ActiveChart
On erRROR GoTo Err_Chart
oCht.Export Filename:="C:\PopularICON.jpg", Filtername:="JPG"
If Err <> 0 Then
The code uses Export method to save the chart in graphics format