Classe Slicers (Excel VBA)

Uma coleção de objetos slicery. Para usar uma variável de classe Slicers, ela primeiro precisa ser instanciada por exemplo

Dim slcs as Slicers
Set slcs = ActiveCell.PivotTable.Slicers

For Each

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

Dim slc As Slicer
For Each slc In Application.Slicers
	
Next slc

Add

Cria um novo slicer e retorna um objeto slicer .

Add (SlicerDestination, Level, Name, Caption, Top, Left, Width, Height)

Sub CreateNewSlicer() 
 ActiveWorkbook.SlicerCaches.Add("Adventure Works", _ 
 "[Customer].[Customer Geography]").Slicers.Add ActiveSheet, _ 
 "[Customer].[Customer Geography].[Country]", "Country 1", "Country", _ 
 252, 522, 144, 216) 
End Sub

Arguments

O seguinte argumento é necessário

SlicerDestination (Worksheet) - Uma cadeia de caracteres que especifica o nome da planilha ou um objeto Worksheet que representa a planilha, onde a segmentação de texto resultante será colocada. A planilha de destino deve estar na pasta de trabalho que contém o objeto slicers especificado por expressão.

Optional arguments

Os seguintes argumentos são opcionais

Level (Long,String) - Em fontes de dados OLAP, o nome do ordinal ou da expressão MDX do nível no qual se baseia a criação da segmentação de dados. Não há suporte para fontes de dados que não sejam OLAP.

Name (String) - O nome da segmentação de dados. O Excel gera automaticamente um nome, caso não haja um especificado. O nome deve ser único em todas as segmentações de dados de uma pasta de trabalho.

Caption (String) - Legenda da segmentação de dados.

Top (Points) - A posição vertical inicial da segmentação de tópicos, em pontos, em relação ao canto superior esquerdo da célula a1 em uma planilha.

Left - A posição horizontal inicial da segmentação de dados, em pontos, em relação ao canto superior esquerdo da célula A1 de uma planilha

Width - A largura inicial, em pontos, do controle da segmentação de dados

Height (Long) - A altura inicial, em pontos, do controle da segmentação de dados.

Count

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

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.Slicers.Count

Item

Retorna um objeto slicer da coleção. Somente leitura.

Item (Index)

Index: O nome ou número de índice do objeto Slicer.

Dim slcItem As Slicer
Set slcItem = ActiveCell.PivotTable.Slicers(Index:=1)