Compartir a través de

Objeto Borders (Excel)

  • Artículo

Colección de cuatro objetos Border que representan los cuatro bordes de un objeto Range o un objeto Style .

Comentarios

Use la propiedad Borders para devolver la colección Borders, que contiene los cuatro bordes. Puede aplicar bordes diferentes a cada lado de una celda o rango. Para obtener más información sobre cómo aplicar bordes a un rango de celdas, vea Propiedad Range.Borders .

Solo es posible establecer las propiedades de un borde individual con los objetos Range y Style. Otros objetos con borde, como las barras de error y las líneas de serie, tienen un borde que se trata como una única entidad, independientemente del número de lados que tenga. Para estos objetos, se deben devolver y establecer las propiedades del borde completo de una sola vez. Para obtener más información, vea el objeto Border.

Ejemplos

En el ejemplo siguiente se agrega un borde doble a la celda A1 de la hoja de cálculo uno.

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

Use Borders (index), donde index identifica el borde, para devolver un único objeto Border . Index puede ser una de las siguientes constantes XlBordersIndex : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal o xlInsideVertical.

En el siguiente ejemplo se establece el color rojo para el borde inferior de las celdas A1:G1.

Worksheets("Sheet1").Range("A1:G1"). _ 
 Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

En el ejemplo siguiente se genera un borde fino alrededor de todas las celdas del rango.

Dim rng As Range: Set rng = ws.Range("B6", "D8")
        
With rng.Borders
   .LineStyle = xlContinuous
   .Weight = xlThin
End With

En el ejemplo siguiente se cambian solo los bordes de celda interiores del intervalo.

Dim rngInner As Range: Set rngInner = ws.Range("B2", "D4")
        
With rngInner.Borders(xlInsideHorizontal)
  .LineStyle = xlContinuous
  .Weight = xlThin
End With

With rngInner.Borders(xlInsideVertical)
  .LineStyle = xlContinuous
  .Weight = xlThin
End With

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.