-1

我有生成此 Excel 图表的简单虚假数据:

在此处输入图像描述

这是代码:

object misValue = System.Reflection.Missing.Value;
//add data 
_xlSheet.Cells[11, 11] = "";
_xlSheet.Cells[11, 12] = "Student1";
_xlSheet.Cells[11, 13] = "Student2";
_xlSheet.Cells[11, 14] = "Student3";

_xlSheet.Cells[12, 11] = "Term1";
_xlSheet.Cells[12, 12] = "80";
_xlSheet.Cells[12, 13] = "65";
_xlSheet.Cells[12, 14] = "45";

_xlSheet.Cells[13, 11] = "Term2";
_xlSheet.Cells[13, 12] = "78";
_xlSheet.Cells[13, 13] = "72";
_xlSheet.Cells[13, 14] = "60";

_xlSheet.Cells[14, 11] = "Term3";
_xlSheet.Cells[14, 12] = "82";
_xlSheet.Cells[14, 13] = "80";
_xlSheet.Cells[14, 14] = "65";

_xlSheet.Cells[15, 11] = "Term4";
_xlSheet.Cells[15, 12] = "75";
_xlSheet.Cells[15, 13] = "82";
_xlSheet.Cells[15, 14] = "68";

Excel.Range chartRange;

Excel.ChartObjects xlCharts = (Excel.ChartObjects)_xlSheet.ChartObjects(Type.Missing);
Excel.ChartObject myChart = (Excel.ChartObject)xlCharts.Add(468, 160, 348, 268); //10, 80, 300, 250);
Excel.Chart chartPage = myChart.Chart;

chartRange = _xlSheet.get_Range("K11", "O15");
chartPage.SetSourceData(chartRange, misValue);
chartPage.ChartType = Excel.XlChartType.xlPieExploded; // xl3DPie; xlPie; xlColumnClustered;

我需要做什么才能将标签添加到足够大以包含它们的馅饼块上,并在那些没有的馅饼块旁边添加标签,箭头指向适当的馅饼块?

4

1 回答 1

0

添加标签就像这样简单:

chart.ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowPercent, Excel.XlDataLabelsType.xlDataLabelsShowLabel, true, false, false, true, false, true);

在上下文中:

object misValue = System.Reflection.Missing.Value;

_xlSheet.Cells[12, 11] = "John";
_xlSheet.Cells[12, 12] = "80";
_xlSheet.Cells[12, 13] = "165";
_xlSheet.Cells[12, 14] = "45";

_xlSheet.Cells[13, 11] = "Paul";
_xlSheet.Cells[13, 12] = "78";
_xlSheet.Cells[13, 13] = "72";
_xlSheet.Cells[13, 14] = "6";

_xlSheet.Cells[14, 11] = "George";
_xlSheet.Cells[14, 12] = "182";
_xlSheet.Cells[14, 13] = "180";
_xlSheet.Cells[14, 14] = "165";

_xlSheet.Cells[15, 11] = "Ringo";
_xlSheet.Cells[15, 12] = "7";
_xlSheet.Cells[15, 13] = "8";
_xlSheet.Cells[15, 14] = "6";

Excel.Range chartRange;

Excel.ChartObjects xlCharts = 
(Excel.ChartObjects)_xlSheet.ChartObjects(Type.Missing);
Excel.ChartObject chartObj = (Excel.ChartObject)xlCharts.Add(468, 160, 348, 268);
Excel.Chart chart = chartObj.Chart;

chartRange = _xlSheet.Range[_xlSheet.Cells[12, 11], _xlSheet.Cells[15, 14]];
chart.SetSourceData(chartRange, misValue);
chart.ChartType = Excel.XlChartType.xlPieExploded; 
chart.ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowPercent, 
Excel.XlDataLabelsType.xlDataLabelsShowLabel, true, false, false, true, false, true);

它制作了这个精美的图形,值得毕加索的弟子:

在此处输入图像描述

于 2016-03-21T18:23:40.223 回答