Spire.XLS 组件为用户提供了多种图表类型选择，其中涵盖了 Excel 自带的各种图表。这些图表类型被定义在枚举 Spire.Xls.ExcelChartType 中，共有以下 74 种：

该节中我们将从以上表格中选取三种常见图表来进行创建：Clustered Column Chart（柱状图），Pie Chart （饼状图）及Doughnut Chart（环形图）。

Clustered Column Chart 柱状图

//加载Excel文档
Workbook workbook = new Workbook();
workbook.LoadFromFile("Sample.xlsx");

//获取工作表
Worksheet sheet = workbook.Worksheets[0];

//设置工作表的名称
sheet.Name = "柱状图";
sheet.GridLinesVisible = false;

//创建柱状图
Chart chart = sheet.Charts.Add(ExcelChartType.ColumnClustered);

//指定用于生成图表的数据区域
chart.DataRange = sheet.Range["A1:B5"];
chart.SeriesDataFromRange = false;

//指定图表所在的位置
chart.LeftColumn = 5;
chart.TopRow = 2;
chart.RightColumn = 15;
chart.BottomRow = 20;

//设置图表的名称以及x、y轴的名称
chart.ChartTitle = "部门信息";
chart.ChartTitleArea.IsBold = true;
chart.ChartTitleArea.Size = 12;

chart.PrimaryCategoryAxis.Title = "部门";
chart.PrimaryCategoryAxis.Font.IsBold = true;
chart.PrimaryCategoryAxis.TitleArea.IsBold = true;

chart.PrimaryValueAxis.Title = "人数";
chart.PrimaryValueAxis.HasMajorGridLines = false;
chart.PrimaryValueAxis.TitleArea.TextRotationAngle = 90;
chart.PrimaryValueAxis.MinValue = 0;
chart.PrimaryValueAxis.TitleArea.IsBold = true;

//5.设置图例的位置
chart.Legend.Position = LegendPositionType.Right;

//保存工作薄
workbook.SaveToFile("ColumnChart.xlsx", ExcelVersion.Version2013);

'加载Excel文档 Dim workbook As New Workbook() workbook.LoadFromFile("Sample.xlsx") '获取工作表
Dim sheet As Worksheet = workbook.Worksheets(0)

'设置工作表的名称 sheet.Name = "柱状图" sheet.GridLinesVisible = False '创建柱状图
Dim chart As Chart = sheet.Charts.Add(ExcelChartType.ColumnClustered)

'指定用于生成图表的数据区域 chart.DataRange = sheet.Range("A1:B5") chart.SeriesDataFromRange = False '指定图表所在的位置
chart.LeftColumn = 5
chart.TopRow = 2
chart.RightColumn = 15
chart.BottomRow = 20

'设置图表的名称以及x、y轴的名称 chart.ChartTitle = "部门信息" chart.ChartTitleArea.IsBold = True chart.ChartTitleArea.Size = 12 chart.PrimaryCategoryAxis.Title = "部门" chart.PrimaryCategoryAxis.Font.IsBold = True chart.PrimaryCategoryAxis.TitleArea.IsBold = True chart.PrimaryValueAxis.Title = "人数" chart.PrimaryValueAxis.HasMajorGridLines = False chart.PrimaryValueAxis.TitleArea.TextRotationAngle = 90 chart.PrimaryValueAxis.MinValue = 0 chart.PrimaryValueAxis.TitleArea.IsBold = True '5.设置图例的位置
chart.Legend.Position = LegendPositionType.Right

'保存工作薄 workbook.SaveToFile("ColumnChart.xlsx",ExcelVersion.Version2013)

Pie Chart 饼状图

//创建工作簿 Workbook workbook = new Workbook();//获取工作表 Worksheet sheet = workbook.Worksheets[0];//设置工作表的名称 sheet.Name = "饼状图";sheet.GridLinesVisible = false;//向工作表添加数据 sheet.Range["A1"].Value = "年份";sheet.Range["A2"].Value = "2002";sheet.Range["A3"].Value = "2003";sheet.Range["A4"].Value = "2004";sheet.Range["A5"].Value = "2005";sheet.Range["B1"].Value = "销售额";sheet.Range["B2"].NumberValue = 4000;sheet.Range["B3"].NumberValue = 6000;sheet.Range["B4"].NumberValue = 7000;sheet.Range["B5"].NumberValue = 8500;sheet.Range["A1:B1"].Style.Font.IsBold = true;sheet.Range["A2:B2"].Style.KnownColor = ExcelColors.LightYellow;sheet.Range["A3:B3"].Style.KnownColor = ExcelColors.LightGreen1;sheet.Range["A4:B4"].Style.KnownColor = ExcelColors.LightOrange;sheet.Range["A5:B5"].Style.KnownColor = ExcelColors.LightTurquoise;sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeTop].Color = Color.FromArgb(0,0,128);sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeTop].LineStyle = LineStyleType.Thin;sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeBottom].Color = Color.FromArgb(0,0,128);sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeBottom].LineStyle = LineStyleType.Thin;sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeLeft].Color = Color.FromArgb(0,0,128);sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeLeft].LineStyle = LineStyleType.Thin;sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeRight].Color = Color.FromArgb(0,0,128);sheet.Range["A1:B5"].Style.Borders[BordersLineType.EdgeRight].LineStyle = LineStyleType.Thin;sheet.Range["B2:C5"].Style.NumberFormat = "\"$\"#,##0";//创建饼状图表 Chart chart = sheet.Charts.Add(ExcelChartType.Pie);//指定用于生成图表的数据区域 chart.DataRange = sheet.Range["B2:B5"];chart.SeriesDataFromRange = false;//指定图表所在位置 chart.LeftColumn = 1;chart.TopRow = 7;chart.RightColumn = 9;chart.BottomRow = 26;//设置图表的名称 chart.ChartTitle = "年销售额";chart.ChartTitleArea.IsBold = true;chart.ChartTitleArea.Size = 12;//设置图表系列的值 Spire.Xls.Charts.ChartSerie cs = chart.Series[0];cs.CategoryLabels = sheet.Range["A2:A5"];cs.Values = sheet.Range["B2:B5"];cs.DataPoints.DefaultDataPoint.DataLabels.HasValue = true;chart.PlotArea.Fill.Visible = false;//保存工作薄 workbook.SaveToFile("PieChart.xls");

'创建工作簿
Dim workbook As New Workbook()

'获取工作表 Dim sheet As Worksheet = workbook.Worksheets(0) '设置工作表的名称
sheet.Name = "饼状图"
sheet.GridLinesVisible = False

'向工作表添加数据 sheet.Range("A1").Value = "年份" sheet.Range("A2").Value = "2002" sheet.Range("A3").Value = "2003" sheet.Range("A4").Value = "2004" sheet.Range("A5").Value = "2005" sheet.Range("B1").Value = "销售额" sheet.Range("B2").NumberValue = 4000 sheet.Range("B3").NumberValue = 6000 sheet.Range("B4").NumberValue = 7000 sheet.Range("B5").NumberValue = 8500 sheet.Range("A1:B1").Style.Font.IsBold = True sheet.Range("A2:B2").Style.KnownColor = ExcelColors.LightYellow sheet.Range("A3:B3").Style.KnownColor = ExcelColors.LightGreen1 sheet.Range("A4:B4").Style.KnownColor = ExcelColors.LightOrange sheet.Range("A5:B5").Style.KnownColor = ExcelColors.LightTurquoise sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeTop).Color = Color.FromArgb(0,0,128) sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeTop).LineStyle = LineStyleType.Thin sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeBottom).Color = Color.FromArgb(0,0,128) sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeBottom).LineStyle = LineStyleType.Thin sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeLeft).Color = Color.FromArgb(0,0,128) sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeLeft).LineStyle = LineStyleType.Thin sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeRight).Color = Color.FromArgb(0,0,128) sheet.Range("A1:B5").Style.Borders(BordersLineType.EdgeRight).LineStyle = LineStyleType.Thin sheet.Range("B2:C5").Style.NumberFormat = """$""#,##0" '创建饼状图表
Dim chart As Chart = sheet.Charts.Add(ExcelChartType.Pie)

'指定用于生成图表的数据区域 chart.DataRange = sheet.Range("B2:B5") chart.SeriesDataFromRange = False '指定图表所在位置
chart.LeftColumn = 1
chart.TopRow = 7
chart.RightColumn = 9
chart.BottomRow = 26

'设置图表的名称 chart.ChartTitle = "年销售额" chart.ChartTitleArea.IsBold = True chart.ChartTitleArea.Size = 12 '设置图表系列的值
Dim cs As Spire.Xls.Charts.ChartSerie = chart.Series(0)
cs.CategoryLabels = sheet.Range("A2:A5")
cs.Values = sheet.Range("B2:B5")
cs.DataPoints.DefaultDataPoint.DataLabels.HasValue = True

chart.PlotArea.Fill.Visible = False

'保存工作薄 workbook.SaveToFile("PieChart.xls")

Doughnut Chart 环形图

//创建工作薄 Workbook workbook = new Workbook();workbook.Version = ExcelVersion.Version2013;//获取工作表 Worksheet sheet = workbook.Worksheets[0];sheet.GridLinesVisible = false;//向工作表添加数据 sheet.Range["A1"].Value = "国家";sheet.Range["A1"].Style.Font.IsBold = true;sheet.Range["A2"].Value = "古巴";sheet.Range["A3"].Value = "墨西哥";sheet.Range["A4"].Value = "法国";sheet.Range["A5"].Value = "德国";sheet.Range["B1"].Value = "销售额";sheet.Range["B1"].Style.Font.IsBold = true;sheet.Range["B2"].NumberValue = 6000;sheet.Range["B3"].NumberValue = 8000;sheet.Range["B4"].NumberValue = 9000;sheet.Range["B5"].NumberValue = 8500;//创建环形图 Chart chart = sheet.Charts.Add();chart.ChartType = ExcelChartType.Doughnut;//指定用于生成图表的数据区域 chart.DataRange = sheet.Range["A1:B5"];chart.SeriesDataFromRange = false;//指定图表的位置 chart.LeftColumn = 4;chart.TopRow = 2;chart.RightColumn = 12;chart.BottomRow = 22;//设置图表的名称 chart.ChartTitle = "销售额百分比";chart.ChartTitleArea.IsBold = true;chart.ChartTitleArea.Size = 10;//设置图表系列的值 foreach (ChartSerie cs in chart.Series){cs.DataPoints.DefaultDataPoint.DataLabels.HasPercentage = true;}//设置图例的位置 chart.Legend.Position = LegendPositionType.Top;//保存工作薄 workbook.SaveToFile("DoughnutChart.xlsx");

'创建工作薄
Dim workbook As New Workbook()
workbook.Version = ExcelVersion.Version2013

'获取工作表 Dim sheet As Worksheet = workbook.Worksheets(0) sheet.GridLinesVisible = False '向工作表添加数据
sheet.Range("A1").Value = "国家"
sheet.Range("A1").Style.Font.IsBold = True
sheet.Range("A2").Value = "古巴"
sheet.Range("A3").Value = "墨西哥"
sheet.Range("A4").Value = "法国"
sheet.Range("A5").Value = "德国"
sheet.Range("B1").Value = "销售额"
sheet.Range("B1").Style.Font.IsBold = True
sheet.Range("B2").NumberValue = 6000
sheet.Range("B3").NumberValue = 8000
sheet.Range("B4").NumberValue = 9000
sheet.Range("B5").NumberValue = 8500

'创建环形图 Dim chart As Chart = sheet.Charts.Add() chart.ChartType = ExcelChartType.Doughnut '指定用于生成图表的数据区域
chart.DataRange = sheet.Range("A1:B5")
chart.SeriesDataFromRange = False

'指定图表的位置 chart.LeftColumn = 4 chart.TopRow = 2 chart.RightColumn = 12 chart.BottomRow = 22 '设置图表的名称
chart.ChartTitle = "销售额百分比"
chart.ChartTitleArea.IsBold = True
chart.ChartTitleArea.Size = 10

'设置图表系列的值 For Each cs As ChartSerie In chart.Series cs.DataPoints.DefaultDataPoint.DataLabels.HasPercentage = True Next '设置图例的位置
chart.Legend.Position = LegendPositionType.Top

'保存工作薄 workbook.SaveToFile("DoughnutChart.xlsx")