更改jpeg图像从图纸导出到图表名称

Question

我在VBA中找到了一个代码，可将工作簿中的所有图表导出到指定的文件夹中。它使用表格名称进行保存，但我希望使用图表名称保存。

我试图

cht.Chart.Export "C:\Users\----\Desktop\ExcelCharts\" & Range("A1").Value & ".jpg", "JPG" 

只产生一个文件，该代码，但是有我要

cht.Chart.Export "C:\Users\----\Desktop\ExcelCharts\" & cht.Name & ".jpg", "JPG" 

名字产生此代码图像1和图像10，而我的图表被命名为Hydralaz 20工作表1中的工作表1和Hydralaz 10.

以下是成功导出工作簿中所有图表的脚本。

Sub Test() 

Dim sht As Worksheet, cht As ChartObject 
Dim x As Integer 

    For Each sht In ActiveWorkbook.Sheets 
     x = 1 
     For Each cht In sht.ChartObjects 
      cht.Chart.Export "C:\Users\----\Desktop\ExcelCharts\" & sht.Name & ".jpg", "JPG" 
      x = x + 1 
     Next cht 

    Next sht 

End Sub 

谢谢你的帮忙！

Answer 1

变化sht.Name到cht.Chart.ChartTitle.Text