BorderAround Method
Adds a border to a range and sets the Color, LineStyle, and Weight properties for the new border.
expression.BorderAround(LineStyle, Weight, ColorIndex, Color)
expression Required. An expression that returns a Range object.
LineStyle Optional Variant. The line style for the border. Can be a XlLineStyle constant.
| XlLineStyle can be one of these XlLineStyle constants. |
| xlContinuous default |
| xlDash |
| xlDashDot |
| xlDashDotDot |
| xlDot |
Weight Optional XlBorderWeight. The border weight.
| XlBorderWeight can be one of these XlBorderWeight constants. |
| xlHairline |
| xlMedium |
| xlThick |
| xlThin default |
ColorIndex Optional XlColorIndex. The border color, as an index into the current color palette, or as an XlColorIndex constant.
| XlColorIndex can be one of these XlColorIndex constants. |
| xlColorIndexAutomatic default |
| xlColorIndexNone |
Color Optional Variant. The border color, as an RGB value.
Remarks
You must specify either ColorIndex or Color, but not both.
You can specify either LineStyle or Weight, but not both. If you don't specify either argument, the default line style and weight are used.
Example
This example adds a thick red border around the range A1:D4 on Sheet1.
Sub Add_Border()
Dim ssConstants
Set ssConstants = Spreadsheet1.Constants
Spreadsheet1.Worksheets("Sheet1").Range("A1:D4") _
.BorderAround , ssConstants.xlThick, 3
Enb Sub