Sub ExportChart() Dim myChart As Chart Set myChart = ActiveChart myChart.Export Filename:="C:\Chart.gif", Filtername:="GIF" End Sub