通过VBA将Excel中多幅图表保存为图片的技术求助

以下是满足需求的VBA代码，代码附带详细注释，适合新手理解使用：

Sub ExportGraphsAsImages()
    Dim i As Integer
    Dim targetChart As ChartObject ' 处理工作表中的嵌入图表
    Dim chartSheet As Chart ' 处理独立的图表工作表
    Dim savePath As String
    Dim imageName As String
    
    ' 设置保存路径为当前Excel文件所在文件夹
    savePath = ThisWorkbook.Path & "\"
    ' 若文件未保存过，路径为空时自动切换到桌面
    If savePath = "\" Then savePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
    
    ' 循环遍历graph_1到graph_100
    For i = 1 To 100
        ' 先尝试查找工作表中的嵌入图表
        On Error Resume Next ' 出错时跳过，避免程序崩溃
        Set targetChart = ActiveSheet.ChartObjects("graph_" & i)
        On Error GoTo 0
        
        If Not targetChart Is Nothing Then
            ' 获取图表标题，无标题则用图表名称替代
            imageName = IIf(targetChart.Chart.HasTitle, targetChart.Chart.ChartTitle.Text, targetChart.Name)
            ' 清理文件名中的Windows非法字符（\/:*?"<>|）
            imageName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(imageName, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "<", ""), ">", ""), "|", "")
            ' 导出为PNG格式，需JPG可修改为".jpg"和"JPEG"
            targetChart.Chart.Export Filename:=savePath & imageName & ".png", FilterName:="PNG"
            Set targetChart = Nothing ' 释放对象
        Else
            ' 嵌入图表不存在时，尝试查找独立图表工作表
            On Error Resume Next
            Set chartSheet = ThisWorkbook.Charts("graph_" & i)
            On Error GoTo 0
            
            If Not chartSheet Is Nothing Then
                imageName = IIf(chartSheet.HasTitle, chartSheet.ChartTitle.Text, chartSheet.Name)
                imageName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(imageName, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "<", ""), ">", ""), "|", "")
                chartSheet.Export Filename:=savePath & imageName & ".png", FilterName:="PNG"
                Set chartSheet = Nothing
            End If
        End If
    Next i
    
    MsgBox "图表导出完成！"
End Sub

关键细节说明： #

• 路径适配：自动识别当前文件路径，未保存的文件默认用桌面作为导出位置。
• 容错机制：跳过不存在的图表，同时处理无标题的图表，避免程序报错中断。
• 文件名合规：自动移除非法字符，保证导出的图片文件名符合Windows命名规则。
• 格式可选：默认导出PNG，修改代码中对应后缀和格式参数即可切换为JPG。

使用步骤： #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器。
2. 右键左侧项目浏览器中的工作簿名称，选择「插入」→「模块」。
3. 将代码粘贴到模块窗口，按下F5运行，或回到Excel界面通过「开发工具」→「宏」执行ExportGraphsAsImages。

内容的提问来源于stack exchange，提问作者63li