Classe TableStyleElement (Excel VBA)

Cet objet représente un élément de style de tableau.

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TableStyleElement : TableStyleElements.Item et TableStyle.TableStyleElements

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

Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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 =

TableStyleElements.Count

Renvoie le nombre d'objets dans la collection. En lecture seule longue.

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

TableStyleElements.Item

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

Syntaxe : expression.Item (Index)

Index: Élément de style de tableau.

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

TableStyleElements.Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.