Oharra
Orrialde honetara sartzeak baimena behar du. Saioa hasteko edo direktorioak aldatzen saia zaitezke.
Orrialde honetara sartzeak baimena behar du. Direktorioak aldatzen saia zaitezke.
Colección de cuatro objetos Border que representan los cuatro bordes de un objeto Range o un objeto Style .
Observaciones
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
- Application
- Color
- ColorIndex
- Count
- Creator
- Elemento
- LineStyle
- Parent
- ThemeColor
- TintAndShade
- Valor
- Weight
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.