Classe TableStyle - un seul style applicable à un tableau ou un segment (Excel VBA)

La classe TableStyle représente un seul style applicable à un tableau ou un segment.

Pour utiliser une variable de classe TableStyle, elle doit d'abord être instanciée, par exemple

Dim tblsty as TableStyle
Set tblsty = ActiveWorkbook.DefaultPivotTableStyle

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TableStyle : ListObject.TableStyle, Duplicate, TableStyles.Add, TableStyles.Item, Workbook.DefaultPivotTableStyle et Workbook.DefaultTableStyle.

For Each

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

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

BuiltIn

Cette propriété a la valeur True si le style est un style prédéfini. Boolean (en lecture seule).

Dim booBuiltIn As Boolean
booBuiltIn = ActiveWorkbook.DefaultPivotTableStyle.BuiltIn

Delete

Cette méthode supprime l'objet TableStyle.

ActiveWorkbook.DefaultPivotTableStyle.Delete

Duplicate

Cette méthode duplique l'objet TableStyle et renvoie une référence à la nouvelle copie.

Si aucun nom n'est spécifié, la méthode Duplicate utilise le même nom par défaut que l'interface utilisateur.

Duplicate (NewTableStyleName)

NewTableStyleName: Le nom du nouveau style de tableau.

Dim tblstyDuplicate As TableStyle
Set tblstyDuplicate = ActiveWorkbook.DefaultPivotTableStyle.Duplicate()

Name

Renvoie le nom de l'objet. En lecture seule chaîne.

Dim strName As String
strName = ActiveWorkbook.DefaultPivotTableStyle.Name

NameLocal

Cette propriété renvoie ou définit le nom de l’objet dans la langue de l’utilisateur. Type de données String en lecture seule.

S'il s'agit d'un style prédéfini, cette propriété renvoie le nom du style dans la langue définie au niveau des paramètres régionaux.

Dim strNameLocal As String
strNameLocal = ActiveWorkbook.DefaultPivotTableStyle.NameLocal

ShowAsAvailablePivotTableStyle

Définit ou renvoie si un style est affiché dans la Galerie des styles de tableau croisé dynamique. Boolean (en lecture/écriture).

La propriété renvoie la valeur true si le style est affiché dans la Galerie des styles de tableau croisé dynamique.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailablePivotTableStyle = True

ShowAsAvailableSlicerStyle

Cette propriété renvoie ou définit si le style de tableau spécifié est affiché comme disponible dans la Galerie de styles de Slicer. Lecture-écriture.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableSlicerStyle = True

ShowAsAvailableTableStyle

Renvoie ou définit le style d'un tableau qui apparaît comme disponible dans la galerie des styles de tableau. Boolean (en lecture/écriture).

Si la valeur est True, ce style est affiché dans la galerie des styles de tableau. Vous pouvez affecter la valeur False à cette propriété même lorsque le style est déjà appliqué à un tableau. Dans ce cas, la Galerie n’affiche pas le style, et lorsque la cellule active se trouve dans ce tableau, aucun style n’est affiché comme sélectionné.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTableStyle = True

ShowAsAvailableTimelineStyle

Cette propriété renvoie ou définit si le style de tableau spécifié est affiché comme disponible dans la Galerie styles de chronologie. Boolean (en lecture/écriture).

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTimelineStyle = True

TableStyleElements

Renvoie l’objet TableStyleElements, . En lecture seule.

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