Question

vb mschart控件

采用Mschart画直方图和饼图，怎么才能把查询的代码显示在图柱上的，望高手指教！！

Answer 1

下面的示例显示一个具有 8 行 8 列数据的三维图表，并设置了图例的参数。

Private Sub Command1_Click()
With MSChart1
'显示一个具有 8 行 8 列数据的三维图表。
.ChartType = VtChChartType3dBar
.ColumnCount = 8
.RowCount = 8
For column = 1 To 8
For row = 1 To 8
.Column = column
.Row = row
.Data = row * 10
Next row
Next column
'将图表作为图例的背景。
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste
End With
End Sub

Answer 2

With MSChart1
.RowCount = 横坐标显示的个数
.ChartData = 直方图的二位数组名
.Column = 1
.Refresh
End With