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