Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Uma coleção de quatro objetos Limite que representam os quatro limites de um objeto Range ou objeto Estilo .
Comentários
Use a propriedade Borders para retornar a coleção Borders, que contém todas as quatro bordas. Pode aplicar limites diferentes a cada lado de uma célula ou intervalo. Para obter mais informações sobre como aplicar limites a um intervalo de células, consulte a propriedade Range.Borders .
Propriedades de borda só podem ser definidas para uma borda individual com os objetos Range e Style. Outros objetos com limites, como barras de erro e linhas de série, têm um limite que é tratado como uma única entidade, independentemente do número de lados que tem. Para esses objetos, você precisa retornar e definir propriedades para a borda inteira como uma unidade. Para obter mais informações, consulte o objeto Border.
Exemplos
O exemplo a seguir adiciona uma borda dupla à célula A1 na planilha um.
Worksheets(1).Range("A1").Borders.LineStyle = xlDouble
Utilize Limites (índice), onde o índice identifica o limite, para devolver um único objeto Limite . O índice pode ser uma das seguintes constantes XlBordersIndex : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal ou xlInsideVertical.
O exemplo a seguir define como vermelho a cor da borda inferior das células A1:G1.
Worksheets("Sheet1").Range("A1:G1"). _
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
O exemplo seguinte gera um limite fino em torno de todas as células no intervalo.
Dim rng As Range: Set rng = ws.Range("B6", "D8")
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With
O exemplo seguinte altera apenas os limites internos das células do 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
Propriedades
- Application
- Color
- ColorIndex
- Count
- Creator
- Item
- LineStyle
- Parent
- ThemeColor
- TintAndShade
- Value
- Weight
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.