之前介绍过如何设置现有Excel图表的数据标签样式，今天本文将着重介绍如何使用Spire.XLS来自定义数据标签以及更改现有Excel文档中数据标签的一些其他设置，比如内容，位置等。

使用工作表里面其他单元格的数据自定义数据标签

代码如下：

//实例化一个Workbook对象并声明版本
Workbook wb = new Workbook();
wb.Version = ExcelVersion.Version2010;
//获取第一个工作簿
Worksheet ws = wb.Worksheets[0];

//在工作薄中加入数据
ws.Range["A1"].Style.Font.IsBold = true;
ws.Range["B1"].Style.Font.IsBold = true;
ws.Range["C1"].Style.Font.IsBold = true;
ws.Range["A1"].Text = "月份";
ws.Range["A2"].Text = "一月";
ws.Range["A3"].Text = "二月";
ws.Range["A4"].Text = "三月";
ws.Range["A5"].Text = "四月";
ws.Range["B1"].Text = "支出";
ws.Range["B2"].NumberValue = 251;
ws.Range["B3"].NumberValue = 515;
ws.Range["B4"].NumberValue = 454;
ws.Range["B5"].NumberValue = 874;
ws.Range["C1"].Text = "自定义DataLabel";
ws.Range["C2"].Text = "自定义DataLabel1";
ws.Range["C3"].Text = "自定义DataLabel2";
ws.Range["C4"].Text = "自定义DataLabel3";
ws.Range["C5"].Text = "自定义DataLabel4";
//设置表格列宽
ws.SetColumnWidth(3, 20);
Chart chart = ws.Charts.Add(ExcelChartType.ColumnClustered);
chart.DataRange = ws.Range["A1:B5"];

//指定系列
chart.SeriesDataFromRange = false;
chart.PrimaryValueAxis.HasMajorGridLines = false;

//设置图表的位置
chart.LeftColumn = 4;
chart.TopRow = 2;
chart.RightColumn = 11;
chart.BottomRow = 19;

//使用文档中其他单元格的数据自定义datalabel
chart.Series[0].DataPoints.DefaultDataPoint.DataLabels.ValueFromCell = ws.Range["C2:C5"];

//为数据标签设置楔形标注
chart.Series[0].DataPoints.DefaultDataPoint.DataLabels.HasWedgeCallout = true;
//保存文档到本地并打开
wb.SaveToFile("自定义数据标签.xlsx", ExcelVersion.Version2010);
System.Diagnostics.Process.Start("自定义数据标签.xlsx");

'实例化一个Workbook对象并声明版本
Dim wb As New Workbook()
wb.Version = ExcelVersion.Version2010
'获取第一个工作簿
Dim ws As Worksheet = wb.Worksheets(0)

'在工作薄中加入数据
ws.Range("A1").Style.Font.IsBold = True
ws.Range("B1").Style.Font.IsBold = True
ws.Range("C1").Style.Font.IsBold = True
ws.Range("A1").Text = "月份"
ws.Range("A2").Text = "一月"
ws.Range("A3").Text = "二月"
ws.Range("A4").Text = "三月"
ws.Range("A5").Text = "四月"
ws.Range("B1").Text = "支出"
ws.Range("B2").NumberValue = 251
ws.Range("B3").NumberValue = 515
ws.Range("B4").NumberValue = 454
ws.Range("B5").NumberValue = 874
ws.Range("C1").Text = "自定义DataLabel"
ws.Range("C2").Text = "自定义DataLabel1"
ws.Range("C3").Text = "自定义DataLabel2"
ws.Range("C4").Text = "自定义DataLabel3"
ws.Range("C5").Text = "自定义DataLabel4"
'设置表格列宽
ws.SetColumnWidth(3, 20)
Dim chart As Chart = ws.Charts.Add(ExcelChartType.ColumnClustered)
chart.DataRange = ws.Range("A1:B5")

'指定系列
chart.SeriesDataFromRange = False
chart.PrimaryValueAxis.HasMajorGridLines = False

'设置图表的位置
chart.LeftColumn = 4
chart.TopRow = 2
chart.RightColumn = 11
chart.BottomRow = 19

'使用文档中其他单元格的数据自定义datalabel
chart.Series(0).DataPoints.DefaultDataPoint.DataLabels.ValueFromCell = ws.Range("C2:C5")

'为数据标签设置楔形标注
chart.Series(0).DataPoints.DefaultDataPoint.DataLabels.HasWedgeCallout = True
'保存文档到本地并打开
wb.SaveToFile("自定义数据标签.xlsx", ExcelVersion.Version2010)
System.Diagnostics.Process.Start("自定义数据标签.xlsx")

效果图如下：

更改现有文档中数据标签的设置

代码如下：

//加载刚刚得到的文档
 Workbook workbook = new Workbook();
 workbook.LoadFromFile("自定义数据标签.xlsx");

 //获取第一个工作表以及表里面的第一个图表
 Worksheet sheet = workbook.Worksheets[0];
 Chart chart = sheet.Charts[0];

 //获取该图表的第一个系列
 ChartSerie chartSeries = chart.Series[0];

 //获取该系列的第一个DataPoint的数据标签
 ChartDataLabels cslabel = chartSeries.DataPoints[0].DataLabels;

 //修改数据标签内容并把设置内容文字的字体和颜色
 cslabel.Text = "已更改";
 cslabel.FontName = "楷体";
 cslabel.Color = Color.Red;

 //设置显示图例项标示
 cslabel.HasLegendKey = true;

 //设置数据标签的位置居中
 //cslabel.Position = DataLabelPositionType.Center;
 
 //自定义数据标签的位置，默认的原点在图表左上角
 cslabel.IsYMode = true;
 cslabel.IsXMode = true;
 cslabel.Y =1200;
 cslabel.X = 600;

 //设置显示引导线（任意设置一个DataPoint会对整个系列生效，
 //但是只有自定义数据标签位置之后才会显示效果）
 cslabel.ShowLeaderLines = true;

 //取消楔形标注（任意设置一个DataPoint会对整个系列生效）
 cslabel.HasWedgeCallout = false;

 //保存到本地并打开
 workbook.SaveToFile("更改数据标签设置.xlsx");
 System.Diagnostics.Process.Start("更改数据标签设置.xlsx");

'加载刚刚得到的文档
Dim workbook As New Workbook()
workbook.LoadFromFile("自定义数据标签.xlsx")

'获取第一个工作表以及表里面的第一个图表
Dim sheet As Worksheet = workbook.Worksheets(0)
Dim chart As Chart = sheet.Charts(0)

'获取该图表的第一个系列
Dim chartSeries As ChartSerie = chart.Series(0)

'获取该系列的第一个DataPoint的数据标签
Dim cslabel As ChartDataLabels = chartSeries.DataPoints(0).DataLabels

'修改数据标签内容并把设置内容文字的字体和颜色
cslabel.Text = "已更改"
cslabel.FontName = "楷体"
cslabel.Color = Color.Red

'设置显示图例项标示
cslabel.HasLegendKey = True

'设置数据标签的位置居中
'cslabel.Position = DataLabelPositionType.Center;

'自定义数据标签的位置，默认的原点在图表左上角
cslabel.IsYMode = True
cslabel.IsXMode = True
cslabel.Y = 1200
cslabel.X = 600

'设置显示引导线（任意设置一个DataPoint会对整个系列生效，
'但是只有自定义数据标签位置之后才会显示效果）
cslabel.ShowLeaderLines = True

'取消楔形标注（任意设置一个DataPoint会对整个系列生效）
cslabel.HasWedgeCallout = False

'保存到本地并打开
workbook.SaveToFile("更改数据标签设置.xlsx")
System.Diagnostics.Process.Start("更改数据标签设置.xlsx")

效果图如下：