На линейном графике, как я могу изменить последний ряд в активной диаграмме на вторичную ось?

Question

Текущий код предполагает 4 серии

Sub Macro1() 

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

End Sub

Answer 1

Как предположил BigBen, вы можете использовать свойство Count для ссылки на последнюю серию.Соответственно, ваш макрос можно переписать следующим образом ...

Sub Macro1()

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


End Sub