Klasse Styles (Excel VBA)

Eine Auflistung aller Style -Objekte in der angegebenen oder aktiven Arbeitsmappe. Um eine Styles -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim stys as Styles
Set stys = ActiveWorkbook.Styles

For Each

Hier ist ein Beispiel für die Verarbeitung der Styles -Elemente in einer Sammlung

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

Add

Erstellt eine neue Formatvorlage und fügt sie der Liste mit den für die aktuelle Arbeitsmappe verfügbaren Formatvorlagen hinzu.

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

Ein benanntes Argument

Name (String) - Der neue Formatvorlagenname.

Optional arguments

Das folgendes Argument ist optional

BasedOn

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer des Objekts.

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

Merge

Führt die Formatvorlagen aus einer anderen Arbeitsmappe in der Styles-Auflistung zusammen.

Merge (Workbook)