VBA 用于图表格式化的 For 循环

Question

我开始编写一些 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.

直到返回错误，因为没有更多的偶数系列。有人可以帮我指明正确的方向吗？

Answer 1

已在评论中回答...但使用 Step 2:

循环到 .Count

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

VBA 用于图表格式化的 For 循环

VBA For Loop for Chart Formatting

excel

vba

for-loop

excel-charts