Export with save as dialog

this will do it:

>>> CODE >>>>
sPath= Application.GetSaveAsFilename
<<< END CODE <<<<

HTH

Philip

"tommy_gtr" wrote:

>
> 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 own
> path.
>
> Could anyone help???
>
> Thanks...
>
> tommy
>
>
> --
> tommy_gtr
> ------------------------------------------------------------------------
> tommy_gtr's Profile: http://www.excelforum.com/member.php...o&userid=26089
> View this thread: http://www.excelforum.com/showthread...hreadid=487146
>
>

thanks a lot,

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

tommy