BorderAround Method [Excel 2003 VBA Language Reference]

  • Article

Adds a border to a range and sets the Color, LineStyle, and Weight properties for the new border. Variant.

expression.BorderAround(LineStyle, Weight, ColorIndex, Color)

expression Required. An expression that returns one of the objects in the Applies To list.

XlLineStyle

XlLineStyle can be one of these XlLineStyle constants.
xlContinuousdefault.
xlDash
xlDashDot
xlDashDotDot
xlDot
xlDouble
xlLineStlyeNone
xlSlantDashDot
xlLineStlyeNone

XlBorderWeight

XlBorderWeight can be one of these XlBorderWeight constants.
xlHairline
xlMedium
xlThick
xlThindefault

XlColorIndex

XlColorIndex can be one of these XlColorIndex constants.
xlColorIndexAutomaticdefault
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, Microsoft Excel uses the default line style and weight.

This method outlines the entire range without filling it in. To set the borders of all the cells, you must set the Color , LineStyle , and Weight properties for the Borders collection. To clear the border, you must set the LineStyle property to xlLineStyleNone for all the cells in the range.

Example

This example adds a thick red border around the range A1:D4 on Sheet1.

Worksheets("Sheet1").Range("A1:D4").BorderAround _
        ColorIndex:=3, Weight:=xlThick

Applies to | Range Collection