VBA для L oop для форматирования диаграммы

Question

У меня есть начало кода VBA для форматирования рядов в диаграмме. Как показано ниже

ActiveSheet.ChartObjects("Chart 31").Activate
ActiveChart.FullSeriesCollection(2).Select
With Selection.Format.Fill
    .Visible = msoTrue
    .Patterned msoPatternNarrowHorizontal
End With

Я хочу создать для l oop цикл по всем сериям с четным тегом, т.е.

FullSeriesCollection(x) Where x is an even number.

До тех пор, пока не будет возвращена ошибка. потому что нет более четных серий. Может ли кто-нибудь помочь направить меня в правильном направлении?

Answer 1

Уже ответили в комментариях ... но l oop до .Count, используя Step 2:

For x = 2 to ActiveChart.FullSeriesCollection.Count Step 2