With Sheets("file")
Set co = ActiveSheet.ChartObjects.Add(50, 50, .Shapes("Car1").Width, .Shapes("Car1").Height)
.Shapes("Car1").Copy
With co.Chart
.Paste
.ChartArea.Border.LineStyle = 0
.Export Filename:=ThisWorkbook.Path & "\temp.jpg"
End With
co.Delete
End With