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

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


--
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