シート内にあるチャートオブジェクトをグラフタイトルの名前で全て画像化
For i = 1 To ActiveSheet.ChartObjects.Count
title = ActiveSheet.ChartObjects(i).Chart.ChartTitle.Text
ActiveSheet.ChartObjects(i).Chart.Export ThisWorkbook.Path & title & ".png"
Next i
For i = 1 To ActiveSheet.ChartObjects.Count
title = ActiveSheet.ChartObjects(i).Chart.ChartTitle.Text
ActiveSheet.ChartObjects(i).Chart.Export ThisWorkbook.Path & title & ".png"
Next i