通过循环将多个图表导出为单独的pdf文件 - VBA

Question

我正在尝试将以下图表导出为单独的pdf文件。我将如何为它创建一个宏/ vba循环。另外，如果我希望它们根据工作表中的列具有不同的名称，我将如何添加它。

我只有导出一个图表的代码，如下所示。有没有办法循环，所以它为其他图表。

Sub Macro9()

ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.ChartArea.Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "\\stchsfs\arboari$\Profile-Data\Desktop\Export Trial1\Graph Export.pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False

    End Sub

谢谢！

Answer 1

你很亲密：

i = 1
For Each myChart In ActiveSheet.ChartObjects
    myChart.Activate
    myPDF = "\\stchsfs\arboari$\Profile-Data\Desktop\Export Trial1\Graph Export_" & i & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    i = i + 1
Next myChart