Sub ExportChart()
Dim myChart As Chart
Dim myFileName As String
Set myChart = Sheet1.ChartObjects(1).Chart
myFileName = "myChart.jpg"
On Error Resume Next
Kill ThisWorkbook.Path & "/" & myFileName
myChart.Export Filename:=ThisWorkbook.Path & "/" & myFileName, Filtername:="JPG"
MsgBox "OK"
Set myChart = Nothing
End Sub