大家好！
我用控件MSChart1做一动态图型，请问如何修改、添加下列语句来更改生成动态曲线的颜色？谢谢！
With MSChart1
.chartType = VtChChartType2dLine
.TitleText = "强度控制趋势折线图"
.RowCount = rs_xingneng1.RecordCount
For i = 1 To rs_xingneng1.RecordCount
.Row = i
.Column = 1
.ColumnLabel = "σb"
.ColumnCount = 1
.Data = rs_xingneng1.Fields("kl")
.RowLabel = rs_xingneng1.Fields("rq")
rs_xingneng1.MoveNext
Next
End With
End If
End If
rs_xingneng1.Close
Exit Sub

来源于网络 你参考 ， 以后自己baidu google

在窗体上放一个mschart(名字为：MSChart1)和一个CommonDialog(名字为：dlgChart)
写如下代码：之后你可以双击曲线，改变其颜色


Public Function RedFromRGB(ByVal rgb As Long) _
As Integer
' &HFF 后的“&”符号将数字强制
'为长整型，防止 Visual Basic
'将其视为负值。逻辑 And 操作用
'来返回位值。
RedFromRGB = &HFF& And rgb
End Function

Public Function GreenFromRGB(ByVal rgb As Long) _
As Integer
' And 操作的结果是除以 256 ，
' 以便返回中部字节的值。
' 注意整型除数的用法。
GreenFromRGB = (&HFF00& And rgb) \ 256
End Function

Public Function BlueFromRGB(ByVal rgb As Long) _
As Integer
' 此函数和上面的 GreenFromRGB 函数
' 功能相似，除了不需要使用“&”符号。
' 数字已经是长整型了。结果除以 65536
' 以便得到最高的几位字节。
BlueFromRGB = (&HFF0000 And rgb) \ 65536
End Function

Private Sub MSChart1_SeriesActivated(Series As _
Integer, MouseFlags As Integer, Cancel As Integer)
' CommonDialog 控件被命名为 dlgChart
Dim red, green, blue As Integer
With dlgChart ' CommonDialog 对象
.ShowColor
red = RedFromRGB(.Color)
green = GreenFromRGB(.Color)
blue = BlueFromRGB(.Color)
End With

' 注意：只有 2D 和 3D 线图使用 Pen 对象。
' 所有其它类型均使用 Brush。

If MSChart1.chartType <> VtChChartType2dLine Or _
MSChart1.chartType <> VtChChartType3dLine Then
MSChart1.Plot.SeriesCollection(Series). _
DataPoints(-1).Brush.FillColor. _
Set red, green, blue
Else
MSChart1.Plot.SeriesCollection(Series).Pen. _
VtColor.Set red, green, blue
End If
End Sub