Klasse TableStyleElement (Excel VBA)

Die Klasse TableStyleElement stellt ein einzelnes Tabellenformatelement dar.

Set

Um eine TableStyleElement -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim tblele as TableStyleElement
Set tblele = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(Index:=1)

Die folgenden Prozeduren können zum Festlegen der TableStyleElement Klassenvariablen verwendet werden : TableStyleElements.Item und TableStyle.TableStyleElements

For Each

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

Dim tblele As TableStyleElement
For Each tblele In ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements
	
Next tblele

Borders

Gibt eine Borders -Auflistung zurück, die die Rahmen eines TableStyleElement-Objekts darstellt.

Dim brdsBorders As Borders
Set brdsBorders = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Borders

Clear

Löscht die Formatierung dieses Elements.

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Clear

Font

Gibt ein Font -Objekt zurück, das die Schriftart des angegebenen Objekts darstellt.

Dim fntFont As Font
Set fntFont = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Font

HasFormat

Gibt zurück, ob ein Tabellenformat Element auf das angegebene Element Formatierung angewendet hat.

Dim booHasFormat As Boolean
booHasFormat = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).HasFormat

Interior

Gibt ein Interior-Objekt zurück, das den Innenbereich des angegebenen Objekts darstellt.

Dim intInterior As Interior
Set intInterior = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Interior

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

StripeSize

Gibt die Größe der Band Bildung zurück oder legt Sie fest.

Diese Eigenschaft kann nicht für alle TableStyleElement-Objekte verwendet werden.

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).StripeSize =

TableStyleElements.Count

Gibt die Anzahl der Objekte in der Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements.Count

TableStyleElements.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Ein Tabellenformatelement.

Dim tblele As TableStyleElement
Set tblele = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(Index:=1)

TableStyleElements.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.