Saving A Chart As A Gif File

The following code demonstrates how to create a GIF file (named temp.gif) from a chart (in this case, the first chart object on the sheet named Data):

Set CurrentChart = Sheets("Data").ChartObjects(l).Chart Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF"

When this code is executed, you'll see a pop-up window that displays the progress. (In response to a question that I'm frequently asked, I'm not aware of any way to suppress this progress display.)

0 0

Post a comment