Classe Styles (Excel VBA)

Uma coleção de todos os objetos Style na pasta de trabalho ativa ou especificada. Para usar uma variável de classe Styles, ela primeiro precisa ser instanciada por exemplo

Dim stys as Styles
Set stys = ActiveWorkbook.Styles

For Each

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

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

Add

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

Add (Name, BasedOn)

With ActiveWorkbook.Styles.Add("theNewStyle") 
 .IncludeNumber = False 
 .IncludeFont = True 
 .IncludeAlignment = False 
 .IncludeBorder = False 
 .IncludePatterns = False 
 .IncludeProtection = False 
 .Font.Name = "Arial" 
 .Font.Size = 18 
End With

Arguments

O seguinte argumento é necessário

Name (String) - O nome do novo estilo.

Optional arguments

The following argument is optional

BasedOn

Count

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

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

Item

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

Item (Index)

Index: O nome ou número de índice do objeto.

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

Merge

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

Merge (Workbook)

Workbook: Um objeto Workbook que representa a pasta de trabalho que contém os estilos a serem mesclados.

ActiveWorkbook.Styles.Merge Workbook:=Workbooks("TEMPLATE.XLS")