exporting multiple charts as images

[kmfdm515]

Hi,

I'm using the follwing code snippet to export the first chart in my workseheet as a gif file:

      Sub Create_GIF()
         Dim mychart As Chart
         Set mychart = ActiveSheet.ChartObjects(1).Chart
         mychart.Export FileName:="c:\Mychart.gif", FilterName:="GIF"
      End Sub

1) how can i edit this to use the chart name that is assigned in excel (under Layout->Properties in excel2007...the default is 'Chart 1' right now) to name the file? I noticed this is different from the actual chart Title.

2) how can i edit this to make it export every chart in the worksheet?

The goal would be to run the macro and have it export every chart on the worksheet, saving them with their chart names as their filenames.

Thanks

[Andy Pope]

Sub Create_GIF()
    
    Dim objCht As ChartObject
    Dim strPath As String
    
    strPath = "C:\"
    
    For Each objCht In ActiveSheet.ChartObjects
        objCht.Chart.Export strPath & objCht.Name & ".gif", filtername:="gif"
    Next

End Sub

[kmfdm515]

great, thanks!

[mr67]

Hi Andy,

New to the forum. I was looking at your solution for this question and was wondering how I would alter it to have all charts displayed on 1 file (gif). All charts will be on one worksheet prior to the creation of the .gif file. I also have a more involved question on charting but I will post that as a separate entry because I can't seem to find a similar question.

Thank you

[Andy Pope]

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread.