Classe Border - borda (Excel VBA)
A classe Border representa a borda de um objeto. Para usar uma variável de classe Border, ela primeiro precisa ser instanciada por exemplo
Dim brd as Border
Set brd = ActiveCell.BorderAround()
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
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. Os valores de retorno possíveis são xlColorIndexAutomatic - Cor automática, xlColorIndexNone - Sem cor.
A cor é especificada como um valor de índice na paleta de cores atual ou como uma das seguintes constantes XlColorIndex: xlColorIndexAutomatic ou xlColorIndexNone.
ActiveCell.BorderAround.ColorIndex = xlColorIndexAutomatic
LineStyle
Retorna ou define o estilo de linha da borda. Leitura/gravação XlLineStyle, xlGray25, xlGray50, xlGray75 ou xlAutomatic. Os valores de retorno possíveis são xlContinuous - Linha contínua, xlDash - Linha tracejada, xlDashDot - Traços e pontos alternados, xlDashDotDot - Traço seguido por dois pontos, xlDot - Linha pontilhada, xlDouble - Linha dupla, xlLineStyleNone - Sem linha, xlSlantDashDot - Traços inclinados.
xllinestylexldouble e xlSlantDashDot não se aplicam a gráficos.
ActiveCell.BorderAround.LineStyle = xlContinuous
ThemeColor
Retorna ou define a cor do tema no esquema de cores aplicado associado ao objeto especificado. de leitura/gravação. Aqui você pode encontrar os valores possíveis para
A tentativa de acessar uma cor de tema para um objeto cuja cor não possui tema atualmente resultará em um erro em tempo de execução de solicitação inválida.
ActiveCell.BorderAround.ThemeColor =
TintAndShade
Retorna ou define um Single que clareia ou escurece uma cor.
É possível inserir um número de -1 (mais escuro) a 1 (mais claro) para a propriedade TintAndShade. Zero (0) é neutro. A tentativa de definir essa propriedade com um valor menor que-1 ou maior que 1 resulta nesse erro de tempo de execução: "o valor especificado está fora do intervalo". Esta propriedade funciona para cores que sejam de tema ou não.
ActiveCell.BorderAround.TintAndShade =
Weight
Retorna ou define um valor XlBorderWeight que representa o peso da borda. Os valores de retorno possíveis são xlHairline - Fio (a borda mais fina), xlMedium - Médio, xlThick - Grossa (a borda mais larga), xlThin - Leve.
ActiveCell.BorderAround.Weight = xlMedium