Excel 2010 VBA – 从图表工具中导出图表

我很努力地find正确的语法来从图表中导出图表，而不是embedded在工作表中。 我曾经有embedded的图表，但应用户的要求转移到它自己的工作表，我似乎无法find任何适合的。 这里是代码，因为它与一个embedded式图表，可有人给我一个提示语法？

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 

提前致谢

Answer 1

你一开始只需要这个：

 Set varChart = Charts("chart sheet name")