' Take look at following sample
Sub Chart_Sample()
Dim SeriesCollVal, SeriesCollXVal()
Dim ForeSchemeColor, BackSchemeColor, i As Integer
' Fill arrays
ForeSchemeColor = Array(11, 9, 51, 53, 49, 9)
BackSchemeColor = Array(5, 46, 43, 44, 42, 3)
ReDim SeriesCollVal(5)...