VBA – Bordes de Celda

Este tutorial mostrará cómo ajustar la configuración de los bordes de celda en VBA.

Formato de Bordes

Borde superior – Línea Doble

Primero veamos un ejemplo de cómo establecer un borde superior azul, grueso y doble a la celda B3 de la Hoja1:

 

Sub ConfigurarBordes()
    With Worksheets("Hoja1").Range("B3").Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = 5
    End With
End Sub

Observa que utilizamos una sentencia With para simplificar nuestra codificación.

Accedemos al borde superior con .Borders(xlEdgeTop).

Otros Bordes de Celda

Puedes acceder a otros bordes, incluyendo los diagonales:

    Worksheets("Hoja1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)
    Worksheets("Hoja1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)
    Worksheets("Hoja1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)
    Worksheets("Hoja1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)
    Worksheets("Hoja1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)
    Worksheets("Hoja1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0)

 

Bordes Interiores

También puede ajustar los bordes horizontales (xlInsideHorizontal) y verticales (xlInsideVertical) para todas las celdas de un rango:

   With Worksheets("Hoja1").Range("B2:C6").Borders(xlInsideHorizontal)
        .LineStyle = xlDashDotDot
        .Weight = xlMedium
        .ColorIndex = 3
    End With

 

LineStyle

La propiedad LineStyle puede cambiarse a xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot and xlLineStyleNone.

La propiedad Weight puede ser xlHariline, xlThin, xlMedium and xlThick. Obtendrá este resultado con el siguiente código:

 

    Worksheets("Hoja1").Range("C3").Borders(xlEdgeTop).Weight = xlHairline
    Worksheets("Hoja1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairline
    Worksheets("Hoja1").Range("D3").Borders(xlEdgeTop).Weight = xlThin
    Worksheets("Hoja1").Range("D3").Borders(xlEdgeBottom).Weight = xlThin
    Worksheets("Hoja1").Range("E3").Borders(xlEdgeTop).Weight = xlMedium
    Worksheets("Hoja1").Range("E3").Borders(xlEdgeBottom).Weight = xlMedium
    Worksheets("Hoja1").Range("F3").Borders(xlEdgeTop).Weight = xlThick
    Worksheets("Hoja1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick

 

Los colores de los bordes se pueden establecer como ColorIndex o Color (RGB, serial number or vbColor). Ver más información sobre la configuración de color aquí.

También puede añadir bordes alrededor de un rango con un comando de una línea:

Range("B5:C7").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbRed