Klasse TableStyle - ein einzelnes Format (Excel VBA)

Die Klasse TableStyle stellt ein einzelnes Format dar, das auf eine Tabelle oder einen Datenschnitt angewendet werden kann. Um eine TableStyle -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim tblsty as TableStyle
Set tblsty = ActiveWorkbook.DefaultPivotTableStyle

For Each

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

Dim tblstyDefaultSlicerStyle As TableStyle
For Each tblstyDefaultSlicerStyle In Application.DefaultSlicerStyle
	
Next tblstyDefaultSlicerStyle

BuiltIn

True, wenn die Formatvorlage integriert ist.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveWorkbook.DefaultPivotTableStyle.BuiltIn

Delete

Löscht das TableStyle-Objekt.

ActiveWorkbook.DefaultPivotTableStyle.Delete

Duplicate

Dupliziert das TableStyle-Objekt und gibt einen Bezug auf die neue Kopie zurück.

Wenn kein Name angegeben wird, verwendet die Duplicate-Methode den gleichen Standardnamen wie die Benutzeroberfläche.

Duplicate (NewTableStyleName)

Name

Gibt den Namen des Objekts zurück.

Dim strName As String
strName = ActiveWorkbook.DefaultPivotTableStyle.Name

NameLocal

Gibt den Namen des Objekts in der Sprache des Benutzers zurück oder legt ihn fest.

Wenn es sich um eine integrierte Formatvorlage handelt, gibt diese Eigenschaft den Namen der Formatvorlage in der Sprache zurück, die im aktuellen Gebietsschema festgelegt wurde.

Dim strNameLocal As String
strNameLocal = ActiveWorkbook.DefaultPivotTableStyle.NameLocal

ShowAsAvailablePivotTableStyle

Legt fest oder gibt zurück, ob eine Formatvorlage im Katalog für PivotTable-Formatvorlagen angezeigt wird.

Die-Eigenschaft gibt true zurück, wenn die Formatvorlage im Katalog für PivotTable-Formatvorlagen angezeigt wird.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailablePivotTableStyle = True

ShowAsAvailableSlicerStyle

Gibt zurück oder legt fest, ob die angegebene Tabellenformatvorlage im datenschnitt Formatvorlagenkatalog verfügbar angezeigt wird.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableSlicerStyle = True

ShowAsAvailableTableStyle

Gibt ein Tabellenformat, das im Tabellenformatkatalog als verfügbar angezeigt wird, zurück oder legt dieses fest.

Bei Verwendung von True, wird dieses Format im Tabellenformatkatalog angezeigt. Sie können diese Eigenschaft auf False festlegen, selbst wenn das Format bereits auf eine Tabelle angewendet wurde.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTableStyle = True

ShowAsAvailableTimelineStyle

Gibt zurück oder legt fest, ob die angegebene Tabellenformatvorlage im Zeitachsen Format Katalog verfügbar angezeigt wird.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTimelineStyle = True

TableStyleElements

Gibt das TableStyleElements -Objekt zurück.

Dim tsesTableStyleElements As TableStyleElements
Set tsesTableStyleElements = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements