VBA export chart to JPEG

Sub ExportChart()
On Error Resume Next
Sheets("Sheet1").ChartObjects("Chart 1").Chart.Export "D:\Users\Ramneeks\Desktop\graph\c1.jpeg"

End Sub