Clase TableStyle - un estilo individual que se puede aplicar a una tabla o a una segmentación de datos (Excel VBA)

La clase TableStyle representa un estilo individual que se puede aplicar a una tabla o a una segmentación de datos. Para usar una variable de clase TableStyle, primero debe ser instanciado, por ejemplo

Dim tblsty as TableStyle
Set tblsty = ActiveWorkbook.DefaultPivotTableStyle

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

BuiltIn

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

Dim booBuiltIn As Boolean
booBuiltIn = ActiveWorkbook.DefaultPivotTableStyle.BuiltIn

Delete

Elimina el objeto TableStyle.

ActiveWorkbook.DefaultPivotTableStyle.Delete

Duplicate

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

Si no se especifica ningún nombre, el método Duplicate utiliza el mismo nombre predeterminado que la interfaz de usuario.

Duplicate (NewTableStyleName)

NewTableStyleName: Nombre del nuevo estilo de tabla.

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

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.

Si se usa un estilo integrado, esta propiedad devuelve el nombre del estilo en el idioma de la configuración regional actual.

Dim strNameLocal As String
strNameLocal = ActiveWorkbook.DefaultPivotTableStyle.NameLocal

ShowAsAvailablePivotTableStyle

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

La propiedad devuelve true si el estilo se muestra en la galería de estilos de tabla dinámica.

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.

Si es True, este estilo aparece en la galería de estilos de tabla. Esta propiedad se puede establecer en False incluso si el estilo ya se ha aplicado a una tabla. En este caso, la galería no mostrará el estilo y, cuando la celda activa esté en esa tabla, no se mostrará ningún estilo como seleccionado.

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