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.
Representa a borda de um objeto.
Comentários
A maioria dos objetos com limites (todos exceto os objetos Intervalo e Estilo ) tem um limite que é tratado como uma única entidade, independentemente do número de lados que tem. A borda inteira deve ser retornada como uma unidade.
Utilize a propriedade Limite , como a partir de um objeto TrendLine , para devolver o objeto Limite para este tipo de objeto.
Tenha em atenção que as propriedades visuais de um objeto Limite estão interligadas; ou seja, a alteração de uma propriedade pode induzir alterações noutra. Na maioria dos casos, as alterações induzidas servem para tornar o limite visível (o que pode ou não ser desejável). No entanto, são possíveis outros resultados (mais inesperados).
Segue-se um exemplo de interligação com resultados inesperados. Neste exemplo, definir a propriedade Peso de um limite para xlThick induz a propriedade LineStyle a tornar-se xlSolid, apesar de a ter 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
Os objetos Intervalo e Estilo têm quatro limites discretos , à esquerda, à direita, superior e inferior, que podem ser devolvidos 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
Utilize Limites (índice), onde o índice identifica o limite, para devolver um único objeto Limite . 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.