C# 、VB 在Excel中添加直线线条形状
以下经验内容介绍通过C#及VB程序在Excel文档中添加线条形状。这里添加线条形状通过两点来连接的直线形状，可通过两种方法来添加：1. 相对位置添加2. 绝对位置添加
工具/原料
Spire.XLS for .NET（版本10.11.7）
Visual Studio
dll文件下载及添加引用：
1、可通过E-iceblue中文官网下载10.11.7版本的Spire.XLS for .NET hotfix，下载后，解压到指定路径，完成解压后，将文件夹Bin下的Spire.Xls.dll文件添加引用到VS程序（如下图）：
C#
1、using Spire.Xls;using Spire.Xls.Core.Spreadsheet.Shapes;using System.Drawing;namespa艘早祓胂ce AddLineThroung2Points{ class Program { static void Main(string[] args) { //新建workbook工作簿，并获取第一个工作表（创建的工作簿默认已包含三个工作表） Workbook workbook = new Workbook(); Worksheet worksheet = workbook.Worksheets[0]; //通过相对位置添加线条 XlsLineShape line1 = worksheet.TypedLines.AddLine() as XlsLineShape; //设置线条起点位置 line1.LeftColumn = 2; line1.LeftColumnOffset = 2; line1.TopRow = 5; line1.TopRowOffset = 10; //设置线条终点位置 line1.RightColumn = 6; line1.RightColumnOffset = 10; line1.BottomRow = 5; line1.BottomRowOffset = 10; //设置线条颜色、宽度、名称 line1.Color = Color.Red; line1.Weight = 5; line1.SetName("相对位置线条"); //通过绝对位置添加线条，单位为像素 XlsLineShape line2 = worksheet.TypedLines.AddLine() as XlsLineShape; //设置线条起点和终点位置 line2.StartPoint = new Point(140, 12); line2.EndPoint = new Point(280,120); //设置线条颜色、宽度、名称 line2.Color = Color.Blue; line2.Weight = 5; line2.SetName("绝对位置线条"); //保存文档 workbook.SaveToFile("Addlines.xlsx", ExcelVersion.Version2013); System.Diagnostics.Process.Start("Addlines.xlsx"); } }}
2、直线形状绘制效果图：
VB.NET
1、Imports Spire.XlsImports Spire.Xls.Core.Spreadsheet.ShapesImports System.DrawingNamespace AddLineThroung2Points Class Program Private Shared Sub Main(args As String()) '新建workbook工作簿，并获取第一个工作表（创建的工作簿默认已包含三个工作表） Dim workbook As New Workbook() Dim worksheet As Worksheet = workbook.Worksheets(0) '通过相对位置添加直线线条 Dim line1 As XlsLineShape = TryCast(worksheet.TypedLines.AddLine(), XlsLineShape) '设置线条起点位置 line1.LeftColumn = 2 line1.LeftColumnOffset = 2 line1.TopRow = 5 line1.TopRowOffset = 10 '设置线条终点位置 line1.RightColumn = 6 line1.RightColumnOffset = 10 line1.BottomRow = 5 line1.BottomRowOffset = 10 '设置线条颜色、宽度、名称 line1.Color = Color.Red line1.Weight = 5 line1.SetName("相对位置线条") '通过绝对位置添加线条，单位为像素 Dim line2 As XlsLineShape = TryCast(worksheet.TypedLines.AddLine(), XlsLineShape) '设置线条起点和终点位置 line2.StartPoint = New Point(140, 12) line2.EndPoint = New Point(280, 120) '设置线条颜色、宽度、名称 line2.Color = Color.Blue line2.Weight = 5 line2.SetName("绝对位置线条") '保存文档 workbook.SaveToFile("Addlines.xlsx", ExcelVersion.Version2013) System.Diagnostics.Process.Start("Addlines.xlsx") End Sub End ClassEnd Namespace