У меня есть начало некоторого кода 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.

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

0
dnaylor93 15 Апр 2020 в 21:15

1 ответ

Лучший ответ

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

For x = 2 to ActiveChart.FullSeriesCollection.Count Step 2
1
BigBen 15 Апр 2020 в 18:27