Excel VisualBasic Script

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