如何批量导出工作表中的柱状图/折线图等图表为单独图片

Fish.lol

于 2019-08-12 09:23:51 发布

阅读量1.2k

点赞数 1

分类专栏：学习Excel

原文链接：http://www.excelpx.com/thread-427814-1-1.html

版权

学习Excel 专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一种使用VBA宏自动将Excel工作簿中的所有图表导出为PNG图片的方法，包括按图表标题或序号命名文件，适用于批量处理图表导出需求。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如果图标有标题就输出标题；没有就输出序号

Sub test()
    Dim path As String
    Dim co As ChartObject
    Dim ch As Chart
    path = ThisWorkbook.path & "\"
    For Each co In ActiveSheet.ChartObjects
        Set ch = co.Chart
        ch.Export path & IIf(ch.HasTitle, ch.ChartTitle.Text, "Chart_" & co.Index) & ".png"
    Next
End Sub

Sub test()
    Dim p As String
    Dim sh As Worksheet
    Dim co As ChartObject

    p = ThisWorkbook.Path & "\"
    For Each sh In Sheets
        For Each co In sh.ChartObjects
            co.Chart.Export p & sh.Name & "_Chart" & co.Index & ".png"
        Next co
    Next sh
End Sub