Clase TableStyle (Excel VBA)

La clase TableStyle representa un estilo individual que se puede aplicar a una tabla o a una segmentación de datos.

Los principales procedimientos de la clase TableStyle son Delete y TableStyles.Add

Set

Para usar una variable de clase TableStyle, primero debe ser instanciado, por ejemplo

Dim tblsty as TableStyle
Set tblsty = ActiveWorkbook.DefaultPivotTableStyle

Los siguientes procedimientos se pueden usar para establecer variables de clase TableStyle : ListObject.TableStyle, Duplicate, TableStyles.Item, TableStyles.Add, Workbook.DefaultPivotTableStyle, Workbook.DefaultTableStyle, Workbook.DefaultSlicerStyle y Workbook.TableStyles

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos TableStyle en una colección.

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

Métodos

Los principales métodos de la clase TableStyle son

Delete - Elimina el objeto TableStyle.

ActiveWorkbook.DefaultPivotTableStyle.Delete

TableStyles.Add - Crea un nuevo objeto TableStyle y lo agrega a la colección.

Dim strTableStyleName As String: strTableStyleName = 
Dim tblsty As TableStyle
Set tblsty = ActiveWorkbook.TableStyles.Add(TableStyleName:=strTableStyleName)

Otros Métodos

Duplicate - Duplica el objeto TableStyle y devuelve una referencia a la nueva copia.

TableStyles.Item - Devuelve un solo objeto de una colección.

Propiedades

BuiltIn True si el estilo es un estilo integrado. Boolean de solo lectura.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveWorkbook.DefaultPivotTableStyle.BuiltIn

Name Devuelve el nombre del objeto. Sólo lectura de la cadena.

Dim strName As String
strName = ActiveWorkbook.DefaultPivotTableStyle.Name

NameLocal Devuelve o establece el nombre del objeto en el idioma del usuario. String de solo lectura.

Dim strNameLocal As String
strNameLocal = ActiveWorkbook.DefaultPivotTableStyle.NameLocal

Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

Dim objParent As Object
Set objParent = ActiveWorkbook.DefaultPivotTableStyle.Parent

ShowAsAvailablePivotTableStyle Establece o devuelve si un estilo se muestra en la galería de estilos de tabla dinámica. Boolean de lectura y escritura.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailablePivotTableStyle = True

ShowAsAvailableSlicerStyle Devuelve o establece si el estilo de tabla especificado se muestra como disponible en la Galería estilos de segmentación de estilos. Lectura y escritura.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableSlicerStyle = True

ShowAsAvailableTableStyle Devuelve o establece un estilo de tabla mostrado como disponible en la galería de estilos de tabla. Boolean de lectura y escritura.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTableStyle = True

ShowAsAvailableTimelineStyle Devuelve o establece si el estilo de tabla especificado se muestra como disponible en la galería de estilos de escala de tiempo. Boolean de lectura y escritura.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTimelineStyle = True

TableStyleElements Devuelve el objeto TableStyleElements ( . Solo lectura.

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

TableStyles.Count Devuelve el número de objetos de la colección. Long de sólo lectura.

Dim lngCount As Long
lngCount = ActiveWorkbook.TableStyles.Count

TableStyles.Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

Dim objParent As Object
Set objParent = ActiveWorkbook.TableStyles.Parent