Clase TableStyleElement (Excel VBA)

La clase TableStyleElement representa un único elemento de estilo de tabla.

Set

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

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

Los siguientes procedimientos se pueden usar para establecer variables de clase TableStyleElement : TableStyleElements.Item y TableStyle.TableStyleElements

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

Parent

Devuelve el objeto primario del objeto especificado. Solo lectura.

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 =

TableStyleElements.Count

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

Dim lngCount As Long
lngCount = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements.Count

TableStyleElements.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (Index)

Index: Elemento de estilo de tabla.

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

TableStyleElements.Parent

Devuelve el objeto primario del objeto especificado. Solo lectura.