用vba怎样将excel表格中的多个图表以图片格式导出到电脑桌面上？

Question

1、利用vba工具，怎样写宏
2、导出路径为桌面（或某个文件夹中）
3、图表为多个，可以一键自动全部导出
4、导出为图片格式（jpg/png）

Answer 1

Sub a图标另存转换()

    Dim i As Byte

    For i = 1 To ActiveSheet.ChartObjects.Count

        ActiveSheet.ChartObjects(i).Chart.Export ("D:\第" & i & "个图表.jpg")

    Next

End Sub