Private Sub SetzeFarbeLinie(Farbe As Long, Index As Integer)
 
Dim Rot As Integer, Grün As Integer, Blau As Integer
 
Rot = Farbe And &HFF
Grün = (Farbe \ &H100) And &HFF
Blau = (Farbe \ &H10000) And &HFF
With MSChart1.Plot.SeriesCollection(Index + 1)
.Pen.VtColor.Set Rot, Grün, Blau
.DataPoints(-1).Brush.FillColor.Set Rot, Grün, Blau
End With
 
End Sub