鼠标点击饼图扇形偏离中心点代码移植到下图中

此主题相关图片如下：2011-6-15 15-50-11.png

部分代码
........................

 Chart= Forms("数据分析").Controls("Chart3") \' 引用窗口中的图表
                Chart.DataSource = "交叉统计1" \'设置绑定表
                Chart.SeriesList.Clear() \'清除图表原来的图系
                Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
                Chart.ChartType = ChartTypeEnum.Pie \'图表1类型改为Pie(饼形)
                If cmb.Value IsNot Nothing Then
                    For Each r As Row In t.Rows
                        Series = Chart.SeriesList.Add() \'增加一个图系
                        Series.Length = 1 \'一个系列只能包括一个值
                        Series.Text = r("村名") & "(" & r("设计面积_1") & ")" \'设置图系的标题
                        Series.Y(0) = r("设计面积_1") \'指定值
                        Series.DataLabelText = "{#YVAL}"
                        \' Series.DataLabelBackColor = Color.Blue \'蓝底
                        Series.DataLabelForeColor = Color.Red \'White \'白字
                       
                    Next
                Else
                    For Each r As Row In t.Rows
                        Series = Chart.SeriesList.Add() \'增加一个图系
                        Series.Length = 1 \'一个系列只能包括一个值
                        Series.Text = r("乡名") & "(" & r("设计面积_1") & ")" \'设置图系的标题
                        Series.Y(0) = r("设计面积_1") \'指定值
                        Series.DataLabelText = "{#YVAL}"
                        \' Series.DataLabelBackColor = Color.Blue \'蓝底
                        Series.DataLabelForeColor = Color.Red \'白字
                    Next
                End If
                Chart.LegendVisible = True \'显示图列
                Chart.LegendCompass= CompassEnum.East \'图列显示在东方(右方)

..............................

内置就有这个功能了啊。

没有办法移植。