VBA如何设置对象的边框属性(一个对象完全解决)

No.1

Excel中的对象如何对边框进行设置，下面做一个详细介绍。

所有具有边框的对象都会涉及Border对象，此对象是对应边框的一些属性设置。

如下，Border对象属性表：

XLlineStyle枚举类型是对边框的类型进行定义。

按照定义的名称或值进行设置即可。

例如：

设置一个Shape对象虚线框：Shapes(1).Border.LineStyle=xlDash

设置一个Range对象虚线框：Range("A1:C10").Borders.LineStyle=xlDash

注意：上面两个是不同的对象，即Range应用了Borders对象，不对使用Border对象。

这主要是因为Range有多个边，多个边分别对应不同的参数设置。

XlBorderWeight枚举

定义边框的粗细，四个参数选择也很好理解。

No.2

下面举一个例子，对定义边框进行一个应用。

应用方法：任意选择一个区域，单元格内设置相应的属性值，单击设置边框按钮，被选区域就是设置为相应的边框。

看下具体代码

Private Sub SetBorder()Dim w As Worksheet, f As RangeSet w = ActiveSheetSet f = w.Range("B3")With Selection.Borders.Item(xlEdgeBottom)    .Color = RGB(11, 122, 12)'设置边框颜色    .LineStyle = xlDouble 'f.Offset(1, 2).Value'设置边框类型    .Weight = xlThick'设置边框粗细    .TintAndShade = f.Offset(3, 2).Value'设置明暗度End WithEnd Sub

No.3

总体来说边框对象应用相对简单，如果合理使用，会提升表格的美观度，是一个很有用的对象操作。

欢迎关注、收藏