Classe Styles (Excel VBA)

Collection de tous les objets style dans le classeur spécifié ou actif.

Pour utiliser une variable de classe Styles, elle doit d'abord être instanciée, par exemple

Dim stys as Styles
Set stys = ActiveWorkbook.Styles

Les variables du type Styles peuvent être définies à l'aide de la procédure Workbook.Styles

For Each

Voici un exemple de traitement des éléments Styles dans une collection

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

Add

Cette méthode crée un nouveau style et l'ajoute à la liste des styles disponibles pour le classeur actif.

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 argument nommé

Name (String) - Nom du nouveau style.

Optional arguments

Les arguments suivants sont facultatifs

BasedOn

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

Item

Cette méthode renvoie un seul objet d'une collection.

Item (Index)

Index: Nom ou numéro d'index de l'objet.

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

Merge

Cette méthode fusionne les styles issus d'un autre classeur dans la collection Styles.

Merge (Workbook)

Workbook: Objet Workbook qui représente le classeur contenant les styles à fusionner.

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