export charts

[tommy_gtr]

hello,

I have code, which export charts as gif:

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

is there way how to specify the path for export?

I want to export it in same location, where my xls file is saved, but
in new folder "charts"....can I create a new folder with macro from
excel?

thanx

tommy

 

[Kaak]

Filename:="C:\testfolder\Total.gif", FilterName:="GIF"

 

[Kaak]

FileStr = Thisworkbook.path & "\Total.gif"

Filename:=FileStr, FilterName:="GIF"

 

[Kaak]

Sorry for the bad posts

Function CreateFolder(FilePath)

Dim FSObj As Object

Set FSObj = CreateObject("Scripting.FilesystemObject")

FSObj.CreateFolder FilePath

End Function

 

[tommy_gtr]

thank you for your answer, but I'm not sure how to use this function.

I'm not very experienced with using of function.

Can you more specify your solution, please

thanks

tomm