Excel之VBA常用功能应用篇：Border对象线条属性介绍

Excel表格中的线条设置，如何操作，相信具有基本表格操作的人都会，本文将揭示一下其代码应用如何实现。

上图所示，包括表格、图形的边框均属于Border对象的设置范围。

Border对象可以返回如下属性，当然也可以进行设置。

总体来说就是对图形的边框线条进行样式设置，如样式，颜色，粗细等等。

特别是对表格的边框进行设置，可以增加工作表的可视化性能。

通常来说，一个图形边框作为一个整体来进行设置，当然了，表格边框可以分别对四个边进行设置。

下图为线条样式可选择项，是一个枚举类型，不需要记住，只需要按照相应值选择即可。

代码：

Private Sub CommandButton1_Click()'细线边框

With Me.Range("B4:D19")

With .Borders

.Color = RGB(222, 221, 111)

.LineStyle = 1

.Weight = 1

End With

End With

End Sub

Private Sub CommandButton2_Click()’粗线边框

With Me.Range("B4:D19")

With .Borders

.Color = RGB(222, 221, 111)

.Weight = 4

End With

End With

End Sub

Private Sub CommandButton3_Click()'虚线边框

With Me.Range("B4:D19")

With .Borders

.Color = RGB(222, 221, 111)

.LineStyle = 2

.LineStyle = 4

End With

End With

End Sub

顺便介绍一下Borders对象，此对象是四个 Border 对象的集合，这些对象代表 Range 对象或 Style 对象的四个边框。

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

上述代码为给A1单元格添加双边框，如果只给A1单元格下边框添加双边框，使用下面的代码：

Worksheets(1).Range("A1").Borders(xlEdgeBottom).LineStyle = xlDouble

这里取xlEdgeBottom值就是代码下边框，其它边框设置方式类似。

欢迎关注、收藏

---END---