VBA For Loop for Chart Formatting

Question

I have the start of some VBA code to format series within a chart. As shown below

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

What I want to do is create a for loop to cycle through all the series with an even tag i.e.

FullSeriesCollection(x) Where x is an even number.

Until an error is returned because there are no more even series. Could someone help point me in the right direction?

For x = 2 to ActiveChart.FullSeriesCollection.Count Step 2 — BigBen
– BigBen, Commented Apr 15, 2020 at 18:16

BigBen · Accepted Answer · 2020-04-15 18:27:29Z

1

Already answered in comments... but loop to the .Count using Step 2:

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

answered Apr 15, 2020 at 18:27

BigBen

50.4k7 gold badges29 silver badges45 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA For Loop for Chart Formatting

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related