VBA将图表从excel选项卡导出到特定的文件夹，并根据不同工作表上单元格中的名称命名文件

Sub ExportCharts()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim chartName As String
    Dim exportPath As String
    
    ' 设置导出路径
    exportPath = "C:\Export\"
    
    ' 遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表中是否存在图表
        If ws.ChartObjects.Count > 0 Then
            ' 遍历每个图表
            For Each cht In ws.ChartObjects
                ' 获取图表名称
                chartName = cht.Name
                ' 导出图表为图片文件
                cht.Chart.Export Filename:=exportPath & chartName & ".png", Filtername:="PNG"
            Next cht
        End If
    Next ws
End Sub