This article will show you how to add lines to Excel worksheets through two points. We could set the point’s location via relative location and Absolute location in pixels.
C#
using Spire.Xls; using Spire.Xls.Core.Spreadsheet.Shapes; using System.Drawing; namespace Word { class Program { static void Main(string[] args) { //Initiate a Workbook object and get the first worksheet Workbook workbook = new Workbook(); Worksheet worksheet = workbook.Worksheets[0]; //Add a line with relative location XlsLineShape line = worksheet.TypedLines.AddLine() as XlsLineShape; //set the column index of the starting point line.LeftColumn = 2; line.LeftColumnOffset = 2; line.TopRow = 5; line.TopRowOffset = 10; //set the column index of the end point line.RightColumn = 10; line.RightColumnOffset = 10; line.BottomRow =5; line.BottomRowOffset = 10; //Set the color line.Color = Color.Red; //Add a line with Absolute location in pixels XlsLineShape line1 = worksheet.TypedLines.AddLine() as XlsLineShape; //Set the start point and end point line1.StartPoint = new Point(20, 30); line1.EndPoint = new Point(200, 30); //Set the color line1.Color = Color.Blue; workbook.SaveToFile("Addlines.xlsx", ExcelVersion.Version2013); workbook.Dispose(); } } }
VB.NET
Imports Spire.Xls Imports Spire.Xls.Core.Spreadsheet.Shapes Imports System.Drawing Namespace Word Class Program Private Shared Sub Main(ByVal args() As String) 'Initiate a Workbook object and get the first worksheet Dim workbook As Workbook = New Workbook Dim worksheet As Worksheet = workbook.Worksheets(0) 'Add a line with relative location Dim line As XlsLineShape = CType(worksheet.TypedLines.AddLine,XlsLineShape) 'set the column index of the starting point line.LeftColumn = 2 line.LeftColumnOffset = 2 line.TopRow = 5 line.TopRowOffset = 10 'set the column index of the end point line.RightColumn = 10 line.RightColumnOffset = 10 line.BottomRow = 5 line.BottomRowOffset = 10 'Set the color line.Color = Color.Red 'Add a line with Absolute location in pixels Dim line1 As XlsLineShape = CType(worksheet.TypedLines.AddLine,XlsLineShape) 'Set the start point and end point line1.StartPoint = New Point(20, 30) line1.EndPoint = New Point(200, 30) 'Set the color line1.Color = Color.Blue workbook.SaveToFile("Addlines.xlsx", ExcelVersion.Version2013) workbook.Dispose End Sub End Class End Namespace
Effective screenshot: