Hur ändrar jag färg på en Diagramserie i MsChart?
(med programkod alltså!)

Hej,

Här följer ett exempel på din fråga:

Option Explicit

Private Sub Form_Load()

MSChart1.ColumnCount = 24
MSChart1.RowCount = 1
Label1.Caption = "Red Value:"
Label2.Caption = "Green Value:"
Label3.Caption = "Blue Value:"
Label4.Caption = "Bar Index (1-24):"
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "1"
Command1.Caption = "Change Bar Color"
Command1_Click

End Sub

Private Sub Command1_Click()
'This event changes the bar colors of the
graph.

With MSChart1.Plot.SeriesCollection(CInt(Text4.Text)).DataPoints(-1)

.Brush.Style = VtBrushStyleSolid
.Brush.FillColor.Red = CInt(Text1.Text)
.Brush.FillColor.Green = CInt(Text2.Text)
.Brush.FillColor.Blue = CInt(Text3.Text)

End With

End Sub

mvh
Nicholas