Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 2010 VBA-从图表表导出图表_Vba_Excel_Charts - Fatal编程技术网

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

Excel 2010 VBA-从图表表导出图表,vba,excel,charts,Vba,Excel,Charts,我正在努力找到正确的语法,以便从图表表中导出图表,而不是嵌入到工作表中。我曾经将图表嵌入其中,但在用户的要求下将其转移到自己的表格中,我似乎找不到任何适合的。这是嵌入图表的代码,有人能给我一个语法提示吗 Public Sub ExportChart() Dim varChartObject As ChartObject Dim varChart As Chart Dim varFilename As String Dim varPath As String

我正在努力找到正确的语法,以便从图表表中导出图表,而不是嵌入到工作表中。我曾经将图表嵌入其中,但在用户的要求下将其转移到自己的表格中,我似乎找不到任何适合的。这是嵌入图表的代码,有人能给我一个语法提示吗

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

提前感谢

您只需在开始时使用:

Set varChart = Charts("chart sheet name")

您只需要在开始时使用此选项:

Set varChart = Charts("chart sheet name")

难以置信。我已经找了好几天了,尝试了所有不同的语法。谢谢你的帮助,难以置信。我已经找了好几天了,尝试了所有不同的语法。谢谢你的帮助。