一、绑定数据到MSChart控件
1.绑定两个系列数据到MSChart控件
Dim data(1 To 10, 1 To 2) As Integer
Dim i As Integer
For i = 1 To UBound(data)
data(i, 1) = i * 10 '第一系列
data(i, 2) = i * 20 '第二系列
Next i
MSChart1.ChartData = data效果图：
说明：系列的数目是由第二个维数决定的。
2.绑定两个系列数据到MSChart控件并设置x轴标签
Dim data(1 To 10, 1 To 3)
Dim i As Integer
For i = 1 To UBound(data)
data(i, 1) = i & "月" 'X轴标签
data(i, 2) = i * 10 '第一系列
data(i, 3) = i * 20 '第二系列
Next i
MSChart1.ChartData = data效果图：
说明：当第一系列赋值为字符串时，它即表示为x轴标签，注意此时数组data为Variant类型。
3.示例②的另一种实现方式
With MSChart1
.ColumnCount = 2
.RowCount = 10
For Column = 1 To .ColumnCount
For Row = 1 To .RowCount
.Column = Column
.Row = Row
.data = Column * Row * 10
.RowLabel = Row & "月"
Next Row
Next Column
End With效果图：
二、常见问题
问：怎么显示出图例？
答：设置MSChart1.ShowLegend = True。
问：图例中系列名称默认为C1,C2,...，可以修改吗？
答：可以修改，方法如下：
With MSChart1
.ShowLegend = True
For Column = 1 To .ColumnCount
.Column = Column
.ColumnLabel = "系列" & Column
Next Column
End With
问：怎么去掉x轴的网格？
答：鼠标右击MSChart控件，选择属性打开属性页，切换到"轴网格"选项卡，将x轴主网格行样式设置为NULL即可：
评论（0）
暂无评论。