Classe TableStyle (Excel VBA)

A classe TableStyle representa um único estilo que pode ser aplicado a uma tabela ou segmentação de dados.

Os principais procedimentos da classe TableStyle são Delete e TableStyles.Add

Set

Para usar uma variável de classe TableStyle, ela primeiro precisa ser instanciada por exemplo

Dim tblsty as TableStyle
Set tblsty = ActiveWorkbook.DefaultPivotTableStyle

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo TableStyle: ListObject.TableStyle, Duplicate, TableStyles.Item, TableStyles.Add, Workbook.DefaultPivotTableStyle, Workbook.DefaultTableStyle, Workbook.DefaultSlicerStyle e Workbook.TableStyles

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

Métodos

Estes são os principais métodos da classe TableStyle

Delete - Excluir o objeto TableStyle.

ActiveWorkbook.DefaultPivotTableStyle.Delete

TableStyles.Add - Cria um novo objeto TableStyle e o adiciona à coleção.

Dim strTableStyleName As String: strTableStyleName = 
Dim tblsty As TableStyle
Set tblsty = ActiveWorkbook.TableStyles.Add(TableStyleName:=strTableStyleName)

Estes são os principais métodos da classe

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

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

Propriedades

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

Dim booBuiltIn As Boolean
booBuiltIn = ActiveWorkbook.DefaultPivotTableStyle.BuiltIn

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.

Dim strNameLocal As String
strNameLocal = ActiveWorkbook.DefaultPivotTableStyle.NameLocal

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.DefaultPivotTableStyle.Parent

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

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.

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

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

Dim lngCount As Long
lngCount = ActiveWorkbook.TableStyles.Count

TableStyles.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.TableStyles.Parent