Objeto border (Excel)
Representa a borda de um objeto.
Comentários
A maioria dos objetos bordados (todos, exceto os objetos Range e Style ) tem uma borda que é tratada como uma única entidade, independentemente de quantos lados ela tenha. A borda inteira deve ser retornada como uma unidade.
Use a propriedade Border , como de um objeto TrendLine , para retornar o objeto Border para esse tipo de objeto.
Observe que as propriedades visuais de um objeto Border estão interligadas; ou seja, alterar uma propriedade pode induzir alterações em outra. Na maioria dos casos, as alterações induzidas servem para tornar a borda visível (o que pode ou não ser desejável). No entanto, outros resultados (mais inesperados) são possíveis.
A seguir está um exemplo de interligamento com resultados inesperados. Neste exemplo, definir a propriedade Weight de uma borda como xlThick induz a propriedade LineStyle a se tornar xlSolid, apesar de tê-la definido anteriormente como xlDashDotDot.
Sub InterlockingExample()
Dim SomeRange As Range
Dim SomeBorder As Border
Set MyRange = Selection
Set SomeBorder = MyRange.Borders(xlDiagonalDown)
SomeBorder.Color = RGB(255, 0, 0)
Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle 'SomeBorder.LineStyle = 1
Debug.Print "Set SomeBorder.LineStyle = xlDashDotDot" 'Set SomeBorder.LineStyle = xlDashDotDot
SomeBorder.LineStyle = xlDashDotDot
Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle 'SomeBorder.LineStyle = 5
Debug.Print "Set SomeBorder.Weight = xlThick" 'Set SomeBorder.Weight = xlThick
SomeBorder.Weight = xlThick
Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle 'SomeBorder.LineStyle = 1
End Sub
Exemplo
O exemplo a seguir altera o estilo de linha e o tipo de uma linha de tendência no gráfico ativo.
With ActiveChart.SeriesCollection(1).Trendlines(1)
.Type = xlLinear
.Border.LineStyle = xlDash
End With
Objetos Range e Style têm quatro bordas discretas: esquerda, direita, superior e inferior, que podem ser retornadas individualmente ou como um grupo. Use a propriedade Borders para retornar a coleção Borders, que contém todas as quatro bordas. O exemplo a seguir adiciona uma borda dupla à célula A1 na planilha um.
Worksheets(1).Range("A1").Borders.LineStyle = xlDouble
Use Borders (index), em que o índice identifica a borda, para retornar um único objeto Border . O exemplo a seguir define a cor da borda inferior das células A1:G1.
Worksheets("Sheet1").Range("A1:G1"). _
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
O índice pode ser uma das seguintes constantes XlBordersIndex : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal ou xlInsideVertical.
Propriedades
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.