Clase TableStyleElement - un único elemento de estilo de tabla (Excel VBA)

La clase TableStyleElement representa un único elemento de estilo de tabla. Para usar una variable de clase TableStyleElement, primero debe ser instanciado, por ejemplo

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

For Each

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

Dim tblele As TableStyleElement
For Each tblele In ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements
	
Next tblele

Borders

Devuelve una colección Borders que representa los bordes de un objeto TableStyleElement ( . Solo lectura.

Dim brdsBorders As Borders
Set brdsBorders = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Borders

Clear

Borra el formato de este elemento.

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Clear

Font

Devuelve un objeto Font que representa la fuente del objeto especificado. Solo lectura.

Dim fntFont As Font
Set fntFont = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Font

HasFormat

Devuelve si un elemento de estilo de tabla tiene formato aplicado al elemento especificado. Boolean de solo lectura.

Dim booHasFormat As Boolean
booHasFormat = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).HasFormat

Interior

Devuelve un objeto Interior que representa el interior del objeto especificado. Solo lectura.

Dim intInterior As Interior
Set intInterior = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Interior

StripeSize

Devuelve o establece el tamaño de las bandas. Long de lectura y escritura.

Esta propiedad no se aplica a todos los objetos TableStyleElement. Solo se aplica a los tipos xlColumnStripe1, xlColumnStripe2, xlRowStripe1y xlRowStripe2 (para obtener más información, vea XlTableStyleElementType).

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).StripeSize =