更改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