Question: I have several charts on one of my sheets (charts) and I only want to export 6 specific charts. When I select a chart and go to the `Layout` tab I see something called `Chart Name` which I assume lets me choose the chart name. I've tried changing the name to "ChartA" for one of the charts. Please help with this simple VBA code.

```
Sub SaveJPGTest()
Chart("ChartA").Export "Z:\specialChart.jpg"
End Sub

```

Answer: 
Added `basePath` to save the jpg in the same directory as the excel file. Saved as a PNG because it seems to be better quality and smaller file size than JPG. Not sure if this is the best file format to use though. 

This code sets sheet `charts` and chart `ChartA` active, then saves the active chart.

```
Sub SaveAreaPowerJPGs()
  Dim basePath As String
  basePath = ThisWorkbook.Path & "\"
  ActiveWorkbook.Sheets("charts").Activate

  ActiveSheet.ChartObjects("ChartA").Activate
  ActiveChart.Export Filename:=basePath & "ChartA.jpg", Filtername:="PNG"
End Sub

```
Copied from: <http://windowssecrets.com/forums/showthread.php/129693-Export-charts-from-Excel-into-any-image-format> with minor adaptation.

```
Sub ChartToJPG()
Dim Chrt As Chart
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("ChartA").Activate
ActiveChart.ChartArea.Copy
Set Chrt = Charts.Add
Chrt.Paste
Chrt.Export Filename:="C:\Users\Maudibe\Desktop\MyChart.jpg", Filtername:="JPG"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

```

Choose path to suit.