Hello,

this is my code, which I use to expor my charts as gifs:

Sub export_charts()

Worksheets("Graphs").ChartObjects(1) _
.Chart.Export _
FileName:="Total_GRPs.gif", FilterName:="GIF"

Worksheets("Graphs").ChartObjects(2) _
.Chart.Export _
FileName:="Avr_months.gif", FilterName:="GIF"

Worksheets("Graphs").ChartObjects(3) _
.Chart.Export _
FileName:="Avr_weeks.gif", FilterName:="GIF"

MsgBox "Export complete", vbInformation, "TV Campaign Level"

End Sub

But I want export my charts with save as dialog to specify my ow
path.

Could anyone help???

Thanks...

tomm

--
tommy_gt
-----------------------------------------------------------------------
tommy_gtr's Profile: http://www.excelforum.com/member.php...fo&userid=2608
View this thread: http://www.excelforum.com/showthread.php?threadid=48714