Excel Charts

[burger]

LocoDarwin offered to convert VBA chart code to someone on an old post and was never responded to. If the offer still stands, I would like to be able to generate charts and here is the VBA code to create a chart and then save it as a GIF file.

Sub Chart()
'
' Chart Macro
'

'
    Range("E5:E7").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$E$5:$E$7")
    ActiveChart.ChartType = xlPie
    Fname = "c:\test.gif"
    ActiveChart.Export Filename:=Fname, FilterName:="GIF"
End Sub