Solved: what's wrong with ActiveChart.Export code

[skaswani]

[VBA]
Sub ExportChartJPG()
For i = 1 To Sheets.Count

ActiveChart.Export Filename:="C:\mycharts\" & Sheets.Name & ".jpg", _
FilterName:="jpeg"


Next
End Sub

[/VBA]



hello


can anyone correct me where i am wrong, what i want to do is, that i want to export my all charts exists on my current sheets export as jpeg or gif" and with the sheet name


ie. if the sheet name is BOP then filename shouldbe bop.jpg or bop.gif


thankyou!

[Bob Phillips]

[vba]

For i = 1 To Sheets.Count

Worksheets(i).ChartObjects(1).Chart.Export _
Filename:="C:\mycharts\" & Worksheets(i).Name & ".jpg", _
FilterName:="jpeg"

Next
[/vba]

[skaswani]

r u a champ

thank u

[lucas]

skaswani,
be sure to mark your thread solved using the thread tools at the top of the page.

[skaswani]

ya, i am about to, just a quick question..

can i re-size the charts hight & Width??

thanks

[skaswani]

oh, i m done

Worksheets(i).ChartObjects(1).Width = 775
Worksheets(i).ChartObjects(1).Width = 675


thanks alot 4 helping