Excel 2010 VBA - 从图表表导出图表答案

【问题标题】：Excel 2010 VBA - Export Chart from Chart SheetExcel 2010 VBA - 从图表表导出图表
【发布时间】：2016-01-14 20:38:31
【问题描述】：

我正在努力寻找正确的语法来从图表工作表中导出图表，而不是嵌入到工作表中。我曾经嵌入图表，但应用户的要求将其转移到自己的工作表中，我似乎找不到任何适合的东西。这是带有嵌入式图表的代码，有人可以给我关于语法的提示吗？

Public Sub ExportChart()

    Dim varChartObject As ChartObject
    Dim varChart As Chart
    Dim varFilename As String
    Dim varPath As String

    Set varChartObject = Sheets("Output Chart").ChartObjects(1)
    Set varChart = varChartObject.Chart
    varFilename = Format(ThisWorkbook.Sheets("Parameters").Range("C5").Value, "YYYYMMDD")
    varPath = "MyPath\" & Format(ThisWorkbook.Sheets("Parameters").Range("C5").Value, "MM. MMMM")

    On Error Resume Next
    Kill varPath & "\" & varFilename
    On Error GoTo 0

    varChart.Export Filename:=varPath & "\" & varFilename & ".png", Filtername:="PNG"

    Set varChartObject = Nothing
    Set varChart = Nothing

End Sub

提前致谢

【问题讨论】：

标签： vba excel charts

【解决方案1】：

你只需要在开始时这样做：

Set varChart = Charts("chart sheet name")

【讨论】：

难以置信。我一直在寻找这个并尝试了所有不同的语法。感谢您的帮助。