Thanks, it work brilliant. I have been struggle a lot to find the right
syntax and I see now that I was close.

Cheers
Paal

"Paal" wrote:

> Hi, I have the following code which generate a chart with three series. I'm
> struggling with solving how I can set the color of the different series. So
> any suggestion.
>
> Sub addchart()
> With ActiveSheet
> Set objChart = .ChartObjects.Add(Left:=1, Width:=720, Top:=1,
> Height:=425)
> objChart.Chart.ChartType = xlXYScatterSmoothNoMarkers
> PT001 = FinnSlutt("M")
> Xrange = "=Data!R12C13:R" & PT001 & "C13"
> Yrange = "=Data!R12C14:R" & PT001 & "C14"
> Result = NySerie(objChart, Xrange, Yrange, "=Data!R11C14", 1)
> PT002 = FinnSlutt("R")
> Xrange = "=Data!R12C18:R" & PT002 & "C18"
> Yrange = "=Data!R12C19:R" & PT002 & "C19"
> Result = NySerie(objChart, Xrange, Yrange, "=Data!R11C19", 2)
> If (Worksheets("Data").Range("AB12").Value <> "") Then
> TT001 = FinnSlutt("W")
> Xrange = "=Data!R12C23:R" & TT001 & "C23"
> Yrange = "=Data!R12C24:R" & TT001 & "C24"
> Result = NySerie(objChart, Xrange, Yrange, "=Data!R11C24", 3)
> End If
> With objChart.Chart
> .PlotArea.Interior.ColorIndex = xlNone
> .Refresh
> .Axes.MinimumScale = 0
> .ax .MaximumScale = 370
> End With
> end sub
> Function NySerie(objChart, Xvalues, Yvalues, Name, x)
> objChart.Chart.SeriesCollection.NewSeries
> objChart.Chart.SeriesCollection(x).Xvalues = Xvalues
> objChart.Chart.SeriesCollection(x).Values = Yvalues
> objChart.Chart.SeriesCollection(x).Name = Name
> End Function
>
> I have tried with this but get only error.
> objChart.Chart.SeriesCollection(1).Interior.ColorIndex = 5
>
> Thanks
> Paal
>
>