PieInnerRadius

用于指定饼形图的中空比例,中空之后,饼形图就成了环形图。

示例

例如有下图的数据:

针对上面的数据表,执行下面的代码

Dim Chart As WinForm.Chart '定义一个图表变量
Dim
Series As WinForm.ChartSeries '定义一个图系变量
Dim
t As Table = Tables("统计1") '定义一个变量t引用数据表
Chart = Forms(
"窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect =
True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie
'图表1类型改为Bar(条形)
For
Each r As Row In t.Rows
    Series = Chart.SeriesList.Add()
'增加一个图系
    Series.Length = 1
'一个系列只能包括一个值
    Series.Text = r(
"产品") & "(" & r("数量") & ")" '设置图系的标题
    Series.Y(0) = r(
"数量") '指定值
Next

Chart.PieInnerRadius = 70
'中空比例为70%

生成的环形图如下:


 


本页地址:http://www.foxtable.com/webhelp/topics/6008.htm