Excel 将jpeg图像的导出从工作表更改为图表名称

我在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，而我的图表在表1中命名为Hydralaz 20，在表2中命名为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

---

谢谢你的帮助

将

sht.Name

更改为

cht.Chart.ChartTitle.Text