Hej Alla Pellesoftare!

Jag sitter och jobbar med en MSChart där jag vill styra färgerna på staplarna med egen kod.

tex;
MSChart1.row = 1
MSChart1.Column = 1
MSChart1.color = rs.Fields("Color1").Value & vbNullString

Är det någon som vet om det går eller ett exempel?

Hälsningar
Tobbe

Löste det med detta

MSChart1.ColumnCount = 6
MSChart1.RowCount = 6
With MSChart1.Plot.SeriesCollection(CInt(1)).DataPoints(-1)

.Brush.Style = VtBrushStyleSolid
.Brush.FillColor.Red = CInt(255)
.Brush.FillColor.Green = CInt(0)
.Brush.FillColor.Blue = CInt(0)

End With

With MSChart1.Plot.SeriesCollection(CInt(2)).DataPoints(-1)

.Brush.Style = VtBrushStyleSolid
.Brush.FillColor.Red = CInt(0)
.Brush.FillColor.Green = CInt(0)
.Brush.FillColor.Blue = CInt(255)

End With
With MSChart1.Plot.SeriesCollection(CInt(3)).DataPoints(-1)

.Brush.Style = VtBrushStyleSolid
.Brush.FillColor.Red = CInt(255)
.Brush.FillColor.Green = CInt(255)
.Brush.FillColor.Blue = CInt(0)

End With
With MSChart1.Plot.SeriesCollection(CInt(4)).DataPoints(-1)

.Brush.Style = VtBrushStyleSolid
.Brush.FillColor.Red = CInt(192)
.Brush.FillColor.Green = CInt(192)
.Brush.FillColor.Blue = CInt(192)

End With
With MSChart1.Plot.SeriesCollection(CInt(5)).DataPoints(-1)

.Brush.Style = VtBrushStyleSolid
.Brush.FillColor.Red = CInt(192)
.Brush.FillColor.Green = CInt(0)
.Brush.FillColor.Blue = CInt(192)

End With

With MSChart1.Plot.SeriesCollection(CInt(6)).DataPoints(-1)

.Brush.Style = VtBrushStyleSolid
.Brush.FillColor.Red = CInt(64)
.Brush.FillColor.Green = CInt(0)
.Brush.FillColor.Blue = CInt(0)

End With