主题：[求助]鼠标点击饼图扇形偏离中心点代码

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

此主题相关图片如下：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 '图列显示在东方(右方)

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

内置就有这个功能了啊。

没有办法移植。