Exporting Chart sheets as gifs

J

John G

I have this code and it works but creates two gifs for each chart sheet in my
workbook. For example: One gif has the following correct name but no gif:

1BUS-GDP-Graph.gif

Second gif file of the same chart, wrong name (old dos?) but contains the gif:

1BUS-G~1.GIF

Sub Chartexporter()
Dim Cht As Chart
Dim Fname As String
For Each Cht In ActiveWorkbook.Charts
Fname = ThisWorkbook.Path & "\" & Cht.Name & ".gif"
Cht.Export Filename:=Fname, Filtername:="gif"
Next Cht
End Sub
 
N

Nigel

Not sure what you want, but the first line of file creation does not create
a gif, saving a file by changing its extension is not going to work, all you
have done is save the workbook under a different extension name!

Cht.Export should work assuming that the FName is correctly formatted. But
I reckon the first lime create a files of the same name, hence the conflict.
 
J

John G

Hi Nigel,

I'm trying to loop through the workbook and export the chart sheets to gifs.

Thanks,

John
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top