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 =