C# 、VB 在Excel中添加直线线条形状

1、可通过E-iceblue中文官网下载10.11.7版本的Spire.XLS for .NET hotfix，下载后，解压到指定路径，完成解压后，将文件夹Bin下的Spire.Xls.dll文件添加引用到VS程序（如下图）：

1、using Spire.Xls;

using Spire.Xls.Core.Spreadsheet.Shapes;

using System.Drawing;

namespace 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、直线形状绘制效果图：

1、Imports Spire.Xls

Imports Spire.Xls.Core.Spreadsheet.Shapes

Imports System.Drawing

Namespace 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 Class

End Namespace