Classe TableStyleElement - un élément de style de tableau (Excel VBA)

Cet objet représente un élément de style de tableau. Pour utiliser une variable de classe TableStyleElement, elle doit d'abord être instanciée, par exemple

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

For Each

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

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

Borders

Renvoie une collection Borders qui représente les bordures d’un objet TableStyleElement, . En lecture seule.

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

Clear

Annule la mise en forme de cet élément.

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Clear

Font

Renvoie un objet font qui représente la police de l’objet spécifié. En lecture seule.

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

HasFormat

Renvoie si la mise en forme d’un élément de style de tableau est appliquée à l’élément spécifié. Boolean (en lecture seule).

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

Interior

Renvoie un objet Interior qui représente l’intérieur de l’objet spécifié. En lecture seule.

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

StripeSize

Cette propriété renvoie ou définit la taille de la bande. Long (en lecture/écriture).

Cette propriété ne s'applique pas à tous les objets TableStyleElement. Elle s’applique uniquement aux types xlColumnStripe1, xlColumnStripe2, xlRowStripe1et xlRowStripe2 (pour plus d’informations, consultez la rubrique XlTableStyleElementType).

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).StripeSize =