Classe TableStyleElement - um único elemento de estilo de tabela (Excel VBA)

A classe TableStyleElement representa um único elemento de estilo de tabela. Para usar uma variável de classe TableStyleElement, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens TableStyleElement em uma coleção.

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

Borders

Retorna uma coleção Borders que representa as bordas de um objeto tablestyleelement . Somente leitura.

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

Clear

Limpa a formatação deste elemento.

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).Clear

Font

Retorna um objeto Font que representa a fonte do objeto especificado. Somente leitura.

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

HasFormat

Retorna se um elemento de estilo de tabela tem formatação aplicada ao elemento especificado. Boolean somente leitura.

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

Interior

Retorna um objeto Interior que representa o interior do objeto especificado. Somente leitura.

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

StripeSize

Retorna ou define o tamanho da faixa. Long de leitura/gravação.

Essa propriedade não se aplica a todos os objetos TableStyleElement. Aplica-se somente aos tipos xlColumnStripe1, xlColumnStripe2, xlRowStripe1e xlRowStripe2 (para obter mais informações, consulte XlTableStyleElementType).

ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements(1).StripeSize =