请问如何用mschart绘制饼图？显示各组成的比例？急！！！！！！！！！！！
如题，查了很多资料都没有。
着急ing!!!
问题点数：20、回复次数：2Top
1 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2003-08-02 16:10:49 得分 20
Private Sub Command1_Click()
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
With MSChart1
.ChartType = VtChChartType2dPie
.ColumnCount = 2
.RowCount = 1
Dim XXX As Double
XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
.TitleText = "饼图示例 完成百分比"
.Column = 1
.Row = 1
.Data = XXX
.ColumnLabel = "完成百分比" & str(XXX) & "%"
.Column = 2
.Row = 1
.Data = 100 - XXX
.ColumnLabel = "剩余百分比" & str(100 - XXX) & "%"
End With
' With MSChart1
' .ChartType = VtChChartType2dPie
' .ColumnCount = 2
' .RowCount = 1
' Dim XXX As Double
' XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
' .TitleText = "饼图示例 完成百分比"
' .Column = 1
' .Row = 1
' .Data = XXX
' .ColumnLabel = "完成百分比" & Str(XXX) & "%"
' .Column = 2
' .Row = 1
' .Data = 100 - XXX
' .ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%"
' End With
End If
End Sub
Private Sub Command2_Click()
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
With MSChart1
.ChartType = VtChChartType2dBar
.ColumnCount = 2
.RowCount = MSHFlexGrid1.Rows - 1
.RowCount = 1
.TitleText = "直方图示例 本旬出口数量与去年同期对比值"
Dim XXX, XXXX As Double
For I = 1 To MSHFlexGrid1.Rows - 1
XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
XXXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
.Column = 1
.Row = 1
.Data = XXX
.Column = 2
.Row = 1
.Data = XXXX
.RowLabel = MSHFlexGrid1.TextMatrix(I, 1)
.RowLabel = ""
Next I
.Column = 1
.ColumnLabel = "本旬出口数量"
.Column = 2
.ColumnLabel = "去年同期对比百分数"
End With
End If
End Sub
Top
2 楼lilaccjs（宠儿）回复于 2003-08-02 17:42:16 得分 0
为什麽饼图中每一块的标签说明无法显示？？
请赐教！！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
