Excel 2010 VBA - 從圖表工作表導出圖表

Question

我很努力地找到正確的語法來從圖表工作表中導出圖表，而不是嵌入在工作表中。我曾經嵌入過圖表，但是根據用戶的要求將它轉移到它自己的表格中，我似乎無法找到任何適合的圖表。這是代碼，因爲它與一個嵌入式圖表，可有人給我一個提示語法？

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")