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

donis2017

各位大神，有没办法通过vba将工作簿中所有的图表，折线图柱形图这些，批量导出为png图片并命名？

雅致如诗的叶子

Set cha = Worksheets("工作表名").ChartObjects.Add(j, j, ae, ar)
cha.Chart.Export ThisWorkbook.Path & "\文件夹名\" & Format(Now, "yyyy-mm-dd_" & "文件名") & ".png", "png"

试试吧。多个图片就将语句放循环。

爱疯

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
导出图表.rar (10.85 KB, 下载次数: 16)

2017-2-16 16:11 上传

点击文件名下载附件

donis2017

爱疯 发表于 2017-2-16 16:04
Sub test()
    Dim p As String
    Dim sh As Worksheet

谢谢大神，能不能让生成的图片根据图表标题命名？

爱疯

donis2017 发表于 2017-2-17 11:20
谢谢大神，能不能让生成的图片根据图表标题命名？

上传你的附件，看看你说的图表标题

donis2017

爱疯 发表于 2017-2-17 11:25
上传你的附件，看看你说的图表标题

这个

爱疯

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


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

donis2017

爱疯 发表于 2017-2-17 15:03
Sub test()
    Dim path As String
    Dim co As ChartObject

谢谢大神！

donis2017

爱疯 发表于 2017-2-17 15:03
Sub test()
    Dim path As String
    Dim co As ChartObject

大神，为什么换了一张表就不无法找到路径了？