2016-01-14 3 views
0

Я изо всех сил пытаюсь найти правильный синтаксис для экспорта диаграммы из листа диаграмм, а не встроенного в рабочий лист. Раньше я использовал встроенную диаграмму, но передал ее на свой листок по просьбе пользователя, и я не могу найти ничего подходящего. Вот код, который стоит со встроенной диаграммой, может ли кто-нибудь дать мне подсказку относительно синтаксиса?Excel 2010 VBA - Экспорт диаграммы из листа диаграмм

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 

Заранее спасибо

ответ

2

Вам нужно только это в начале:

Set varChart = Charts("chart sheet name") 
+0

Unbelieveable. Я искал это в течение нескольких дней и тестировал все разные синтаксисы. Спасибо за вашу помощь. – AranDG

Смежные вопросы