Classe TableStyleElement (Excel VBA)

A classe TableStyleElement representa um único elemento de estilo de tabela.

Set

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)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo TableStyleElement: TableStyleElements.Item e TableStyle.TableStyleElements

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

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

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 =

TableStyleElements.Count

Retorna o número de objetos na coleção. Somente leitura Long.

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

TableStyleElements.Item

Retorna um único objeto de uma coleção.

Sintaxe : expression.Item (Index)

Index: Um elemento de estilo da tabela.

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

TableStyleElements.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.