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