Clase Styles (Excel VBA)

Colección de todos los objetos Style del libro especificado o activo. Para usar una variable de clase Styles, primero debe ser instanciado, por ejemplo

Dim stys as Styles
Set stys = ActiveWorkbook.Styles

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Styles en una colección.

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

Add

Crea un nuevo estilo y lo agrega a la lista de estilos disponibles en el libro activo.

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

Un argumento con nombre

Name (String) - Nombre del nuevo estilo.

Optional arguments

Los siguientes argumentos son opcionales

BasedOn

Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

Item

Devuelve un solo objeto de una colección.

Item (Index)

Index: Nombre o número de índice del objeto.

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

Merge

Combina los estilos de otro libro en la colección Styles.

Merge (Workbook)

Workbook: Objeto Workbook que representa el libro que contiene los estilos que se van a combinar.

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