Spire.XLS组件支持多达186种图形类型，这些图形类型涵盖了Excel自带的各种自选图形。本文将介绍如何使用Spire.XLS插入图形到Excel文档，添加文本到图形，以及给图形填充颜色和图片。

//创建workbook实例
Workbook workbook = new Workbook();
//获取第一张工作表
Worksheet sheet = workbook.Worksheets[0];

//添加一个三角形，并指定其位置、宽度和高度
IPrstGeomShape triangle = sheet.PrstGeomShapes.AddPrstGeomShape(2, 2, 100, 100, PrstGeomShapeType.Triangle);
//使用纯色填充三角形
triangle.Fill.ForeColor = Color.Yellow;
triangle.Fill.FillType = ShapeFillType.SolidColor;
//添加文本
triangle.Text = "文本";

//添加一个心形，并指定其位置、宽度和高度
IPrstGeomShape heart = sheet.PrstGeomShapes.AddPrstGeomShape(2, 5, 100, 100, PrstGeomShapeType.Heart);
//使用渐变色填充心形
heart.Fill.ForeColor = Color.Red;
heart.Fill.FillType = ShapeFillType.Gradient;

//添加一个箭头，使用默认颜色填充
IPrstGeomShape arrow = sheet.PrstGeomShapes.AddPrstGeomShape(10, 2, 100, 100, PrstGeomShapeType.CurvedRightArrow);

//添加一个云形，并指定其位置、宽度和高度
IPrstGeomShape cloud = sheet.PrstGeomShapes.AddPrstGeomShape(10, 5, 100, 100, PrstGeomShapeType.Cloud);
//使用自定义图片填充云形
cloud.Fill.CustomPicture(Image.FromFile("Hydrangeas.jpg"), "Hydrangeas.jpg");
cloud.Fill.FillType = ShapeFillType.Picture;

//保存文档                        
workbook.SaveToFile("添加形状.xlsx", ExcelVersion.Version2013);

'创建workbook实例
Dim workbook As New Workbook()
'获取第一张工作表
Dim sheet As Worksheet = workbook.Worksheets(0)

'添加一个三角形，并指定其位置、宽度和高度
Dim triangle As IPrstGeomShape = sheet.PrstGeomShapes.AddPrstGeomShape(2, 2, 100, 100, PrstGeomShapeType.Triangle)
'使用纯色填充三角形
triangle.Fill.ForeColor = Color.Yellow
triangle.Fill.FillType = ShapeFillType.SolidColor
'添加文本
triangle.Text = "文本"

'添加一个心形，并指定其位置、宽度和高度
Dim heart As IPrstGeomShape = sheet.PrstGeomShapes.AddPrstGeomShape(2, 5, 100, 100, PrstGeomShapeType.Heart)
'使用渐变色填充心形
heart.Fill.ForeColor = Color.Red
heart.Fill.FillType = ShapeFillType.Gradient

'添加一个箭头，使用默认颜色填充
Dim arrow As IPrstGeomShape = sheet.PrstGeomShapes.AddPrstGeomShape(10, 2, 100, 100, PrstGeomShapeType.CurvedRightArrow)

'添加一个云形，并指定其位置、宽度和高度
Dim cloud As IPrstGeomShape = sheet.PrstGeomShapes.AddPrstGeomShape(10, 5, 100, 100, PrstGeomShapeType.Cloud)
'使用自定义图片填充云形
cloud.Fill.CustomPicture(Image.FromFile("Hydrangeas.jpg"), "Hydrangeas.jpg")
cloud.Fill.FillType = ShapeFillType.Picture

'保存文档                        
workbook.SaveToFile("添加形状.xlsx", ExcelVersion.Version2013)