excel - 在折线图中，如何将活动图表中的最后一个系列更改为辅助轴？

Question

当前代码假定 4 系列

Sub Macro1() 

    ActiveChart.FullSeriesCollection(4).Select
    ActiveChart.FullSeriesCollection(4).ChartType = xlArea
    ActiveChart.FullSeriesCollection(4).AxisGroup = 2

End Sub

标签： excelvba

Answer 1

正如 BigBen 所建议的，您可以使用 Count 属性来引用最后一个系列。因此，您的宏可以重写如下......

Sub Macro1()

    With ActiveChart
        With .FullSeriesCollection(.FullSeriesCollection.Count)
            .ChartType = xlArea
            .AxisGroup = 2
        End With
    End With


End Sub