VBA For Loop для форматирования диаграмм

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

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

Я хочу создать цикл for для циклического перебора всех серий с помощью четного тега, т.е.

FullSeriesCollection(x) Where x is an even number.

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


for-loop excel vba excel-charts
person dnaylor93    schedule 15.04.2020    source источник
comment
Спасибо @BigBen, это отлично сработало.   -  person dnaylor93    schedule 15.04.2020

Ответы (1)


arrow_upward
1
arrow_downward

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

For x = 2 to ActiveChart.FullSeriesCollection.Count Step 2
person BigBen    schedule 15.04.2020