Classe Border (Excel VBA)

A classe Border representa a borda de um objeto.

Set

Para usar uma variável de classe Border, ela primeiro precisa ser instanciada por exemplo

Dim brd as Border
Set brd = ActiveCell.BorderAround()

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Border: Axis.Border, Borders.Item, DataTable.Border, DropLines.Border, ErrorBars.Border, Gridlines.Border, HiLoLines.Border, LeaderLines.Border, OLEObject.Border, OLEObjects.Border, Range.BorderAround, SeriesLines.Border, Trendline.Border, AboveAverage.Borders, CellFormat.Borders, DisplayFormat.Borders, FormatCondition.Borders, Range.Borders, Style.Borders, TableStyleElement.Borders, Top10.Borders e UniqueValues.Borders

For Each

Aqui está um exemplo de processamento dos itens Border em uma coleção.

Dim brd As Border
For Each brd In Application.Borders
	
Next brd

Propriedades

Color Retorna ou define a cor principal do objeto, como mostra a tabela na seção de comentários. Use a função RGB para criar um valor de cor. de leitura/gravação.

ActiveCell.BorderAround.Color = RGB(0,0,255)'blue

ColorIndex Retorna ou define um valor que representa a cor da borda.

ActiveCell.BorderAround.ColorIndex = xlColorIndexAutomatic

LineStyle Retorna ou define o estilo de linha da borda. Leitura/gravação XlLineStyle, xlGray25, xlGray50, xlGray75 ou xlAutomatic.

ActiveCell.BorderAround.LineStyle = xlContinuous

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.BorderAround.Parent

ThemeColor Retorna ou define a cor do tema no esquema de cores aplicado associado ao objeto especificado. de leitura/gravação.

ActiveCell.BorderAround.ThemeColor =

TintAndShade Retorna ou define um Single que clareia ou escurece uma cor.

ActiveCell.BorderAround.TintAndShade =

Weight Retorna ou define um valor XlBorderWeight que representa o peso da borda.

ActiveCell.BorderAround.Weight = xlMedium

Borders.Color Retorna ou define a cor principal do objeto, como mostra a tabela na seção de comentários. Use a função RGB para criar um valor de cor. de leitura/gravação.

ActiveCell.DisplayFormat.Borders.Color = RGB(0,0,255)'blue

Borders.ColorIndex Retorna ou define um valor que representa a cor da borda.

ActiveCell.DisplayFormat.Borders.ColorIndex =

Borders.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.DisplayFormat.Borders.Count

Borders.Item Retorna um objeto Border que representa uma das bordas de um intervalo de células ou um estilo.

Dim brdItem As Border
Set brdItem = ActiveCell.DisplayFormat.Borders(Index:=xlEdgeBottom)

Borders.LineStyle Retorna ou define o estilo de linha da borda. Leitura/gravação XlLineStyle, xlGray25, xlGray50, xlGray75 ou xlAutomatic.

ActiveCell.DisplayFormat.Borders.LineStyle = xlContinuous

Borders.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.DisplayFormat.Borders.Parent

Borders.ThemeColor Retorna ou define a cor do tema no esquema de cores aplicado associado ao objeto especificado. de leitura/gravação.

ActiveCell.DisplayFormat.Borders.ThemeColor =

Borders.TintAndShade Retorna ou define um Single que clareia ou escurece uma cor.

ActiveCell.DisplayFormat.Borders.TintAndShade =

Borders.Value Sinônimo de Borders. LineStyle.

ActiveCell.DisplayFormat.Borders.Value =

Borders.Weight Retorna ou define um valor XlBorderWeight que representa o peso da borda.

ActiveCell.DisplayFormat.Borders.Weight =