Export with save as dialog

[tommy_gtr]

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

 

[Guest]

this will do it:
sPath= Application.GetSaveAsFilename
<<< END CODE <<<<

HTH

Philip

 

[tommy_gtr]

thanks a lot,

I try to implement it, but I have a little problem with syntax in my
case.

tommy