前面我们介绍了如何使用 Spire.XLS 插入图形到Excel 工作表，本文将介绍如何使用Spire.XLS插入常用的箭头如双箭头，肘形箭头和曲线箭头到Excel文档。

using Spire.Xls;
using System.Drawing;

namespace Add_Lines_to_Excel
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建workbook实例并获取第一张工作表
            Workbook workbook = new Workbook();
            Worksheet sheet = workbook.Worksheets[0];

            //插入双箭头并设置线条颜色
            var line = sheet.TypedLines.AddLine();
            line.Top = 10;
            line.Left = 20;
            line.Width = 100;
            line.Height = 0;
            line.Color = Color.Blue;
            line.BeginArrowHeadStyle = ShapeArrowStyleType.LineArrow;
            line.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow;
            
            //插入箭头并设置线条颜色
            var line_1 = sheet.TypedLines.AddLine();
            line_1.Top = 50;
            line_1.Left = 30;
            line_1.Width = 100;
            line_1.Height = 100;
            line_1.Color = Color.Red;
            line_1.BeginArrowHeadStyle = ShapeArrowStyleType.LineNoArrow;
            line_1.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow;

            //插入肘形箭头连接符
            Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape line3 = sheet.TypedLines.AddLine() as Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape;
            line3.LineShapeType = LineShapeType.ElbowLine;
            line3.Width = 30;
            line3.Height = 50;
            line3.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow;
            line3.Top = 100;
            line3.Left = 50;
            
            //插入肘形双箭头连接符
            Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape line2 = sheet.TypedLines.AddLine() as Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape;
            line2.LineShapeType = LineShapeType.ElbowLine;
            line2.Width = 50;
            line2.Height = 50;
            line2.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow;
            line2.BeginArrowHeadStyle = ShapeArrowStyleType.LineArrow;
            line2.Left = 120;
            line2.Top = 100;

            //插入曲线箭头连接符
            line3 = sheet.TypedLines.AddLine() as Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape;
            line3.LineShapeType = LineShapeType.CurveLine;
            line3.Width = 30;
            line3.Height = 50;
            line3.EndArrowHeadStyle = ShapeArrowStyleType.LineArrowOpen;
            line3.Top = 100;
            line3.Left = 200;

            //插入曲线双箭头连接符
            line2 = sheet.TypedLines.AddLine() as Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape;
            line2.LineShapeType = LineShapeType.CurveLine;
            line2.Width = 30;
            line2.Height = 50;
            line2.EndArrowHeadStyle = ShapeArrowStyleType.LineArrowOpen;
            line2.BeginArrowHeadStyle = ShapeArrowStyleType.LineArrowOpen;
            line2.Left = 250;
            line2.Top = 100;

            //Save the file
            workbook.SaveToFile("AddLines.xlsx", ExcelVersion.Version2013);

        }
    }
}

Imports Spire.Xls
Imports System.Drawing


Namespace Add_Lines_to_Excel
	Class Program
		Private Shared Sub Main(args As String())
			'创建workbook实例并获取第一张工作表
			Dim workbook As New Workbook()
			Dim sheet As Worksheet = workbook.Worksheets(0)

			'插入双箭头并设置线条颜色
			Dim line = sheet.TypedLines.AddLine()
			line.Top = 10
			line.Left = 20
			line.Width = 100
			line.Height = 0
			line.Color = Color.Blue
			line.BeginArrowHeadStyle = ShapeArrowStyleType.LineArrow
			line.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow

			'插入箭头并设置线条颜色
			Dim line_1 = sheet.TypedLines.AddLine()
			line_1.Top = 50
			line_1.Left = 30
			line_1.Width = 100
			line_1.Height = 100
			line_1.Color = Color.Red
			line_1.BeginArrowHeadStyle = ShapeArrowStyleType.LineNoArrow
			line_1.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow

			'插入肘形箭头连接符
			Dim line3 As Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape = TryCast(sheet.TypedLines.AddLine(), Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape)
			line3.LineShapeType = LineShapeType.ElbowLine
			line3.Width = 30
			line3.Height = 50
			line3.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow
			line3.Top = 100
			line3.Left = 50

			'插入肘形双箭头连接符
			Dim line2 As Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape = TryCast(sheet.TypedLines.AddLine(), Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape)
			line2.LineShapeType = LineShapeType.ElbowLine
			line2.Width = 50
			line2.Height = 50
			line2.EndArrowHeadStyle = ShapeArrowStyleType.LineArrow
			line2.BeginArrowHeadStyle = ShapeArrowStyleType.LineArrow
			line2.Left = 120
			line2.Top = 100

			'插入曲线箭头连接符
			line3 = TryCast(sheet.TypedLines.AddLine(), Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape)
			line3.LineShapeType = LineShapeType.CurveLine
			line3.Width = 30
			line3.Height = 50
			line3.EndArrowHeadStyle = ShapeArrowStyleType.LineArrowOpen
			line3.Top = 100
			line3.Left = 200

			'插入曲线双箭头连接符
			line2 = TryCast(sheet.TypedLines.AddLine(), Spire.Xls.Core.Spreadsheet.Shapes.XlsLineShape)
			line2.LineShapeType = LineShapeType.CurveLine
			line2.Width = 30
			line2.Height = 50
			line2.EndArrowHeadStyle = ShapeArrowStyleType.LineArrowOpen
			line2.BeginArrowHeadStyle = ShapeArrowStyleType.LineArrowOpen
			line2.Left = 250
			line2.Top = 100

			'Save the file
			workbook.SaveToFile("AddLines.xlsx", ExcelVersion.Version2013)

		End Sub
	End Class
End Namespace