Classe Style (Excel VBA)

A classe Style representa uma descrição de estilo para um intervalo.

Os principais procedimentos da classe Style são Delete e Styles.Add

Set

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

Dim sty as Style
Set sty = ActiveCell.Style

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Style: DisplayFormat.Style, Range.Style, Slicer.Style, Styles.Item, Styles.Add e Workbook.Styles

For Each

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

Dim sty As Style
For Each sty In Application.Styles
	
Next sty

Métodos

Estes são os principais métodos da classe Style

Delete - Exclui o objeto.

ActiveCell.Style.Delete

Styles.Add - Cria um novo estilo e o adiciona à lista dos estilos que estão disponíveis para a pasta de trabalho atual.

Dim strName As String: strName = 
Dim sty As Style
Set sty = ActiveWorkbook.Styles.Add(Name:=strName)

Estes são os principais métodos da classe

Styles.Merge - Mescla os estilos de outra pasta de trabalho na coleção Styles.

Propriedades

AddIndent Retorna ou define um valor Boolean que indica se o texto será recuado automaticamente quando o alinhamento do texto em uma célula for definido como distribuição igual horizontal ou verticalmente.

ActiveCell.Style.AddIndent = True

Borders Retorna uma coleção Borders que representa as bordas de um estilo ou um intervalo de células incluindo um intervalo definido como parte de um formato condicional.

Dim brdsBorders As Borders
Set brdsBorders = ActiveCell.Style.Borders

BuiltIn True se o estilo for um estilo interno. Boolean somente leitura.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveCell.Style.BuiltIn

Font Retorna um objeto Font que representa a fonte do objeto especificado.

Dim fntFont As Font
Set fntFont = ActiveCell.Style.Font

FormulaHidden Retorna ou define um valor Boolean que indica se a fórmula ficará oculta quando a planilha for protegida.

ActiveCell.Style.FormulaHidden = True

HorizontalAlignment Retorna ou define um valor XlHAlign que representa o alinhamento horizontal para o objeto especificado.

ActiveCell.Style.HorizontalAlignment = xlHAlignCenter

IncludeAlignment True se o estilo inclui as Propriedades AddIndent , HorizontalAlignment, VerticalAlignment, WrapText, IndentLevele Orientation do objeto Style . Boolean de leitura/gravação.

ActiveCell.Style.IncludeAlignment = True

IncludeBorder True se o estilo inclui as propriedades Color, ColorIndex, LineStylee Weight do objeto Border . Boolean de leitura/gravação.

ActiveCell.Style.IncludeBorder = True

IncludeFont True se o estilo incluir as propriedades de fonte Background, Bold, Color, ColorIndex, FontStyle, Italic, Name, Size, Strikethrough, Subscript, Superscript e Underline. Boolean de leitura/gravação.

ActiveCell.Style.IncludeFont = True

IncludeNumber True se o estilo incluir a propriedade NumberFormat. Boolean de leitura/gravação.

ActiveCell.Style.IncludeNumber = True

IncludePatterns True se o estilo inclui as Propriedades Color, ColorIndex, InvertIfNegative, Pattern, PatternColore PatternColorIndex do objeto interior . Boolean de leitura/gravação.

ActiveCell.Style.IncludePatterns = True

IncludeProtection True se o estilo incluir as propriedades de proteção FormulaHidden e Locked. Boolean de leitura/gravação.

ActiveCell.Style.IncludeProtection = True

IndentLevel Retorna ou define um valor Long que representa o nível de recuo para o estilo.

ActiveCell.Style.IndentLevel =

Interior Retorna um objeto Interior que representa o interior do objeto especificado.

Dim intInterior As Interior
Set intInterior = ActiveCell.Style.Interior

Locked Retorna ou define um valor Boolean que indica se o objeto está bloqueado.

ActiveCell.Style.Locked = True

MergeCells True se o estilo contiver células mescladas. de leitura/gravação.

ActiveCell.Style.MergeCells = True

Name Retorna um valor String que representa o nome do objeto.

Dim strName As String
strName = ActiveCell.Style.Name

NameLocal Retorna ou define o nome do objeto, no idioma do usuário. String somente leitura.

Dim strNameLocal As String
strNameLocal = ActiveCell.Style.NameLocal

NumberFormat Retorna ou define um valor String que representa o código de formatação do objeto especificado.

ActiveCell.Style.NumberFormat =

NumberFormatLocal Retorna ou define um valor String que representa o código de formatação do objeto como uma sequência de caracteres no idioma do usuário.

ActiveCell.Style.NumberFormatLocal =

Orientation Retorna ou define um valor XlOrientation que representa a orientação do texto.

ActiveCell.Style.Orientation = xlDownward

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

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

ReadingOrder Retorna ou define o sentido de leitura do objeto especificado. Pode ser uma das seguintes constantes XlReadingOrder : xlRTL da direita para a esquerda, xlLTR (da esquerda para a direita) ou xlContext. Long de leitura/gravação.

ActiveCell.Style.ReadingOrder =

ShrinkToFit Retorna ou define um valor Boolean que indica se o texto será automaticamente diminuído para se ajustar à largura de coluna disponível.

ActiveCell.Style.ShrinkToFit = True

Value Retorna um valor String que representa o nome do estilo especificado.

Dim strValue As String
strValue = ActiveCell.Style.Value

VerticalAlignment Retorna ou define um valor XlVAlign que representa o alinhamento vertical do objeto especificado.

ActiveCell.Style.VerticalAlignment = xlVAlignBottom

WrapText Retorna ou define um valor Boolean que indica se o Microsoft Excel faz retorno automático do texto no objeto.

ActiveCell.Style.WrapText = True

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

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

Styles.Item Retorna um único objeto de uma coleção.

Dim styItem As Style
Set styItem = ActiveWorkbook.Styles(Index:=1)

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

Dim objParent As Object
Set objParent = ActiveWorkbook.Styles.Parent