图表是指将数据用图形的形式表示出来，常见的图表类型有柱形图、饼状图、条形图、折线图和组合图等。Spire.Presentation支持多达70种不同样式的图表类型，本文将以柱形图、圆环图（饼状图）和组合图为例，介绍如何在幻灯片上创建图表。
创建柱形图
C#
//创建一个PowerPoint文档
Presentation presentation = new Presentation();
//插入柱形图
RectangleF rect = new RectangleF(40, 100, 550, 320);
IChart chart = presentation.Slides[0].Shapes.AppendChart(ChartType.ColumnClustered, rect);
//添加表名
chart.ChartTitle.TextProperties.Text = "部门信息";
chart.ChartTitle.TextProperties.IsCentered = true;
chart.ChartTitle.Height = 30;
chart.HasTitle = true;
//定义一个sting[,]数组
string[,] data = new string[,]
{
{"部门名称","男性员工","女性员工" },
{"开发部","25","15"},
{"测试部","5","10" },
{"销售部","7","3" },
{"技术支持部","20","5" }
};
//将数据写入图表后台数据表
for (int i = 0; i < data.GetLength(0); i++)
{
for (int j = 0; j < data.GetLength(1); j++)
{
//将数字类型的字符串转换为整数
int number;
bool result = Int32.TryParse(data[i, j],out number);
if (result)
{
chart.ChartData[i, j].Value = number;
}
else
{
chart.ChartData[i, j].Value = data[i, j];
}
}
}
//设置系列标签
chart.Series.SeriesLabel = chart.ChartData["B1", "C1"];
//设置类别标签
chart.Categories.CategoryLabels = chart.ChartData["A2", "A5"];
//为各个系列赋值
chart.Series[0].Values = chart.ChartData["B2", "B5"];
chart.Series[1].Values = chart.ChartData["C2", "C5"];
//应用内置图标样式
chart.ChartStyle = ChartStyle.Style11;
//设置系列重叠
chart.OverLap = -50;
//设置类别间距
chart.GapWidth = 200;
//保存文档
presentation.SaveToFile("柱形图.pptx", FileFormat.Pptx2010);VB.NET
'创建一个PowerPoint文档
Dim presentation As New Presentation()
'插入柱形图
Dim rect As New RectangleF(40, 100, 550, 320)
Dim chart As IChart = presentation.Slides(0).Shapes.AppendChart(ChartType.ColumnClustered, rect)
'添加表名
chart.ChartTitle.TextProperties.Text = "部门信息"
chart.ChartTitle.TextProperties.IsCentered = True
chart.ChartTitle.Height = 30
chart.HasTitle = True
'定义一个sting[,]数组
Dim data As String(,) = New String(,) {{"部门名称", "男性员工", "女性员工"}, {"开发部", "25", "15"}, {"测试部", "5", "10"}, {"销售部", "7", "3"}, {"技术支持部", "20", "5"}}
'将数据写入图表后台数据表
For i As Integer = 0 To data.GetLength(0) - 1
For j As Integer = 0 To data.GetLength(1) - 1
'将数字类型的字符串转换为整数
Dim number As Integer
Dim result As Boolean = Int32.TryParse(data(i, j), number)
If result Then
chart.ChartData(i, j).Value = number
Else
chart.ChartData(i, j).Value = data(i, j)
End If
Next
Next
'设置系列标签
chart.Series.SeriesLabel = chart.ChartData("B1", "C1")
'设置类别标签
chart.Categories.CategoryLabels = chart.ChartData("A2", "A5")
'为各个系列赋值
chart.Series(0).Values = chart.ChartData("B2", "B5")
chart.Series(1).Values = chart.ChartData("C2", "C5")
'应用内置图标样式
chart.ChartStyle = ChartStyle.Style11
'设置系列重叠
chart.OverLap = -50
'设置类别间距
chart.GapWidth = 200
'保存文档
presentation.SaveToFile("柱形图.pptx", FileFormat.Pptx2010)
创建圆环图
C#
//创建一个PowerPoint文件
Presentation presentation = new Presentation();
//插入圆环图
RectangleF rect = new RectangleF(40, 100, 550, 320);
IChart chart = presentation.Slides[0].Shapes.AppendChart(ChartType.Doughnut, rect, false);
//设置图表名
chart.ChartTitle.TextProperties.Text = "市场份额";
chart.ChartTitle.TextProperties.IsCentered = true;
chart.ChartTitle.Height = 30;
chart.HasTitle = true;
//定义数据
string[] countries = new string[] { "古巴", "墨西哥", "法国", "德国" };
int[] sales = new int[] { 1800, 3000, 5100, 6200 };
//将数据写入图表后台数据表
chart.ChartData[0, 0].Text = "国家";
chart.ChartData[0, 1].Text = "销售额";
for (int i = 0; i < countries.Length; ++i)
{
chart.ChartData[i + 1, 0].Value = countries[i];
chart.ChartData[i + 1, 1].Value = sales[i];
}
//设置系列标签
chart.Series.SeriesLabel = chart.ChartData["B1", "B1"];
//设置分类标签
chart.Categories.CategoryLabels = chart.ChartData["A2", "A5"];
//为系列赋值
chart.Series[0].Values = chart.ChartData["B2", "B5"];
//添加点到系列
for (int i = 0; i < chart.Series[0].Values.Count; i++)
{
ChartDataPoint cdp = new ChartDataPoint(chart.Series[0]);
cdp.Index = i;
chart.Series[0].DataPoints.Add(cdp);
}
//为系列里的个点添加背景颜色
chart.Series[0].DataPoints[0].Fill.FillType = FillFormatType.Solid;
chart.Series[0].DataPoints[0].Fill.SolidColor.Color = Color.LightBlue;
chart.Series[0].DataPoints[1].Fill.FillType = FillFormatType.Solid;
chart.Series[0].DataPoints[1].Fill.SolidColor.Color = Color.MediumPurple;
chart.Series[0].DataPoints[2].Fill.FillType = FillFormatType.Solid;
chart.Series[0].DataPoints[2].Fill.SolidColor.Color = Color.DarkGray;
chart.Series[0].DataPoints[3].Fill.FillType = FillFormatType.Solid;
chart.Series[0].DataPoints[3].Fill.SolidColor.Color = Color.DarkOrange;
//设置标签显示数值
chart.Series[0].DataLabels.LabelValueVisible = true;
//设置标签显示百分比
chart.Series[0].DataLabels.PercentValueVisible = true;
//设置圆环内径大小
chart.Series[0].DoughnutHoleSize = 60;
//保存文档
presentation.SaveToFile("圆环图.pptx", FileFormat.Pptx2013);VB.NET
'创建一个PowerPoint文件
Dim presentation As New Presentation()
'插入圆环图
Dim rect As New RectangleF(40, 100, 550, 320)
Dim chart As IChart = presentation.Slides(0).Shapes.AppendChart(ChartType.Doughnut, rect, False)
'设置图表名
chart.ChartTitle.TextProperties.Text = "市场份额"
chart.ChartTitle.TextProperties.IsCentered = True
chart.ChartTitle.Height = 30
chart.HasTitle = True
'定义数据
Dim countries As String() = New String() {"古巴", "墨西哥", "法国", "德国"}
Dim sales As Integer() = New Integer() {1800, 3000, 5100, 6200}
'将数据写入图表后台数据表
chart.ChartData(0, 0).Text = "国家"
chart.ChartData(0, 1).Text = "销售额"
For i As Integer = 0 To countries.Length - 1
chart.ChartData(i + 1, 0).Value = countries(i)
chart.ChartData(i + 1, 1).Value = sales(i)
Next
'设置系列标签
chart.Series.SeriesLabel = chart.ChartData("B1", "B1")
'设置分类标签
chart.Categories.CategoryLabels = chart.ChartData("A2", "A5")
'为系列赋值
chart.Series(0).Values = chart.ChartData("B2", "B5")
'添加点到系列
For i As Integer = 0 To chart.Series(0).Values.Count - 1
Dim cdp As New ChartDataPoint(chart.Series(0))
cdp.Index = i
chart.Series(0).DataPoints.Add(cdp)
Next
'为系列里的个点添加背景颜色
chart.Series(0).DataPoints(0).Fill.FillType = FillFormatType.Solid
chart.Series(0).DataPoints(0).Fill.SolidColor.Color = Color.LightBlue
chart.Series(0).DataPoints(1).Fill.FillType = FillFormatType.Solid
chart.Series(0).DataPoints(1).Fill.SolidColor.Color = Color.MediumPurple
chart.Series(0).DataPoints(2).Fill.FillType = FillFormatType.Solid
chart.Series(0).DataPoints(2).Fill.SolidColor.Color = Color.DarkGray
chart.Series(0).DataPoints(3).Fill.FillType = FillFormatType.Solid
chart.Series(0).DataPoints(3).Fill.SolidColor.Color = Color.DarkOrange
'设置标签显示数值
chart.Series(0).DataLabels.LabelValueVisible = True
'设置标签显示百分比
chart.Series(0).DataLabels.PercentValueVisible = True
'设置圆环内径大小
chart.Series(0).DoughnutHoleSize = 60
'保存文档
presentation.SaveToFile("圆环图.pptx", FileFormat.Pptx2013)
创建混合图表
C#
//新建一个PowerPoint文档
Presentation presentation = new Presentation();
//插入柱形图
RectangleF rect = new RectangleF(40, 100, 550, 320);
IChart chart = presentation.Slides[0].Shapes.AppendChart(ChartType.ColumnClustered, rect);
//添加表名
chart.ChartTitle.TextProperties.Text = "月销售报表";
chart.ChartTitle.TextProperties.IsCentered = true;
chart.ChartTitle.Height = 30;
chart.HasTitle = true;
//创建一个DataTable
DataTable dataTable = new DataTable();
dataTable.Columns.Add(new DataColumn("月份", Type.GetType("System.String")));
dataTable.Columns.Add(new DataColumn("销售额", Type.GetType("System.Int32")));
dataTable.Columns.Add(new DataColumn("同比增长率", Type.GetType("System.Decimal")));
dataTable.Rows.Add("1月", 200, 0.6);
dataTable.Rows.Add("2月", 250, 0.8);
dataTable.Rows.Add("3月", 300, 0.6);
dataTable.Rows.Add("4月", 150, 0.2);
dataTable.Rows.Add("5月", 200, 0.5);
dataTable.Rows.Add("6月", 400, 0.9);
//将DataTable数据导入图表后台数据表
for (int c = 0; c < dataTable.Columns.Count; c++)
{
chart.ChartData[0, c].Text = dataTable.Columns[c].Caption;
}
for (int r = 0; r < dataTable.Rows.Count; r++)
{
object[] datas = dataTable.Rows[r].ItemArray;
for (int c = 0; c < datas.Length; c++)
{
chart.ChartData[r + 1, c].Value = datas[c];
}
}
//设置系列标签
chart.Series.SeriesLabel = chart.ChartData["B1", "C1"];
//设置类别标签
chart.Categories.CategoryLabels = chart.ChartData["A2", "A7"];
//为系列赋值
chart.Series[0].Values = chart.ChartData["B2","B7"];
chart.Series[1].Values = chart.ChartData["C2","C7"];
//将系列2的图表类型改为折线图
chart.Series[1].Type = ChartType.LineMarkers;
//将系列2显示到第二根轴
chart.Series[1].UseSecondAxis = true;
//显示百分比数据
chart.SecondaryValueAxis.NumberFormat = "0%";
//不显示第二根轴的网格线
chart.SecondaryValueAxis.MajorGridTextLines.FillType = FillFormatType.None;
//设置系列重叠
chart.OverLap = -50;
//设置类别间距
chart.GapWidth = 200;
//保存文档
presentation.SaveToFile("混合图表.pptx", FileFormat.Pptx2010);VB.NET
'新建一个PowerPoint文档
Dim presentation As New Presentation()
'插入柱形图
Dim rect As New RectangleF(40, 100, 550, 320)
Dim chart As IChart = presentation.Slides(0).Shapes.AppendChart(ChartType.ColumnClustered, rect)
'添加表名
chart.ChartTitle.TextProperties.Text = "月销售报表"
chart.ChartTitle.TextProperties.IsCentered = True
chart.ChartTitle.Height = 30
chart.HasTitle = True
'创建一个DataTable
Dim dataTable As New DataTable()
dataTable.Columns.Add(New DataColumn("月份", Type.[GetType]("System.String")))
dataTable.Columns.Add(New DataColumn("销售额", Type.[GetType]("System.Int32")))
dataTable.Columns.Add(New DataColumn("同比增长率", Type.[GetType]("System.Decimal")))
dataTable.Rows.Add("1月", 200, 0.6)
dataTable.Rows.Add("2月", 250, 0.8)
dataTable.Rows.Add("3月", 300, 0.6)
dataTable.Rows.Add("4月", 150, 0.2)
dataTable.Rows.Add("5月", 200, 0.5)
dataTable.Rows.Add("6月", 400, 0.9)
'将DataTable数据导入图表后台数据表
For c As Integer = 0 To dataTable.Columns.Count - 1
chart.ChartData(0, c).Text = dataTable.Columns(c).Caption
Next
For r As Integer = 0 To dataTable.Rows.Count - 1
Dim datas As Object() = dataTable.Rows(r).ItemArray
For c As Integer = 0 To datas.Length - 1
chart.ChartData(r + 1, c).Value = datas(c)
Next
Next
'设置系列标签
chart.Series.SeriesLabel = chart.ChartData("B1", "C1")
'设置类别标签
chart.Categories.CategoryLabels = chart.ChartData("A2", "A7")
'为系列赋值
chart.Series(0).Values = chart.ChartData("B2", "B7")
chart.Series(1).Values = chart.ChartData("C2", "C7")
'将系列2的图表类型改为折线图
chart.Series(1).Type = ChartType.LineMarkers
'将系列2显示到第二根轴
chart.Series(1).UseSecondAxis = True
'显示百分比数据
chart.SecondaryValueAxis.NumberFormat = "0%"
'不显示第二根轴的网格线
chart.SecondaryValueAxis.MajorGridTextLines.FillType = FillFormatType.None
'设置系列重叠
chart.OverLap = -50
'设置类别间距
chart.GapWidth = 200
'保存文档
presentation.SaveToFile("混合图表.pptx", FileFormat.Pptx2010)
