Classe TableStyle - um único estilo que pode ser aplicado a uma tabela ou segmentação de dados (Excel VBA)

A classe TableStyle representa um único estilo que pode ser aplicado a uma tabela ou segmentação de dados. Para usar uma variável de classe TableStyle, ela primeiro precisa ser instanciada por exemplo

Dim tblsty as TableStyle
Set tblsty = ActiveWorkbook.DefaultPivotTableStyle

For Each

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

Dim tblstyDefaultSlicerStyle As TableStyle
For Each tblstyDefaultSlicerStyle In Application.DefaultSlicerStyle
	
Next tblstyDefaultSlicerStyle

BuiltIn

True se o estilo for um estilo interno. Boolean somente leitura.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveWorkbook.DefaultPivotTableStyle.BuiltIn

Delete

Excluir o objeto TableStyle.

ActiveWorkbook.DefaultPivotTableStyle.Delete

Duplicate

Duplica o objeto TableStyle e retorna uma referência para a nova cópia.

Se nenhum nome for especificado, o método Duplicate usará o mesmo nome padrão como a interface do usuário.

Duplicate (NewTableStyleName)

NewTableStyleName: O nome do estilo da nova tabela.

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

Name

Retorna o nome do objeto. Somente leitura cadeia de caracteres.

Dim strName As String
strName = ActiveWorkbook.DefaultPivotTableStyle.Name

NameLocal

Retorna ou define o nome do objeto no idioma do usuário. String somente leitura.

Se o estilo for interno, esta propriedade retornará o nome do estilo no idioma local atual.

Dim strNameLocal As String
strNameLocal = ActiveWorkbook.DefaultPivotTableStyle.NameLocal

ShowAsAvailablePivotTableStyle

Define ou retorna se um estilo é mostrado na galeria para estilos de tabela dinâmica. Boolean de leitura/gravação.

A propriedade retorna true se o estilo é mostrado na galeria para estilos de tabela dinâmica.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailablePivotTableStyle = True

ShowAsAvailableSlicerStyle

Retorna ou define se o estilo de tabela especificado é mostrado como disponível na Galeria de estilos de segmentação de estilo. Leitura/gravação.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableSlicerStyle = True

ShowAsAvailableTableStyle

Retorna ou define um estilo de tabela mostrado como disponível na galeria de estilos de tabela. Boolean de leitura/gravação.

Se True, este estilo é mostrado na galeria de estilos de tabela. Você pode definir esta propriedade como False mesmo quando o estilo já estiver aplicado em uma tabela. Nesse caso, a Galeria não mostrará o estilo e, quando a célula ativa estiver nessa tabela, nenhum estilo será mostrado como selecionado.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTableStyle = True

ShowAsAvailableTimelineStyle

Retorna ou define se o estilo de tabela especificado é mostrado como disponível na Galeria de estilos de linha do tempo. Boolean de leitura/gravação.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTimelineStyle = True

TableStyleElements

Retorna o objeto TableStyleElements . Somente leitura.

Dim tsesTableStyleElements As TableStyleElements
Set tsesTableStyleElements = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements