I created a macro to plot a number of series in a chart and want to color every data series with a predefined color.
This macro is used for many different files with different number of series input, so instead of the conventional way of writing code to assign color to every series respectively, I want to do it in a smarter way by using a loop.
However, I become stuck on how to implement this idea.

Here's a simplified version of my code:

Dim clr1, clr2, clr3, clr4, clr5, clr6 as long
Dim i, N as integer

'Predefining order of the colors to be used for each series
clr1 = RGB(0, 0, 255)
clr2 = RGB(0, 255, 0)
clr3 = RGB(255, 0, 0)
clr4 = RGB(0, 120, 0)
clr5 = RGB(0, 0, 120)
clr6 = RGB(120, 0, 0)

'Assign colors to selected series
For i=1 to N
Chart1.SeriesCollection(2*i+1).Format.Lin.ForeColor.RGB = clr(i)
Next i

I've tried several different approaches (e.g. using RGB (Long) or ColorIndex (string)) in the hope to use a common variable for both the series and the clri, but didn't succeed.
Not sure if an additional variable can be embedded in predefined Long variables or Strings.
Can anybody help me out?

Thanks very much in advance!