exports the active chart as a GIF file:
Sub ExportChart() Dim myChart As Chart Set myChart = ActiveChart myChart.Export Filename:="C:\Chart.gif", Filtername:="GIF" End Sub