Classe Slicer (Excel VBA)

A classe Slicer representa uma segmentação de dados em uma pasta de trabalho.

Os principais procedimentos da classe Slicer são Copy, Delete e Slicers.Add

Set

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

Dim slc as Slicer
Set slc = ActiveWorkbook.ActiveSlicer

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Slicer: Slicers.Item, Slicers.Add, Workbook.ActiveSlicer, ListObject.Slicers, PivotTable.Slicers e SlicerCache.Slicers

For Each

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

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

Métodos

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

Copy - Copia a segmentação de dados especificada para a área de transferência.

ActiveWorkbook.ActiveSlicer.Copy

Delete - Exclui a segmentação de, e a remove da coleção slicers associada.

ActiveWorkbook.ActiveSlicer.Delete

Slicers.Add - Cria um novo slicer e retorna um objeto slicer .

Dim strSlicerDestination As String: strSlicerDestination = 
Dim slc As Slicer
Set slc = ActiveCell.PivotTable.Slicers.Add(SlicerDestination:=strSlicerDestination)

Estes são os principais métodos da classe

Cut - Recorta a segmentação de dados especificada e a copia para a área de transferência.

Propriedades

ActiveItem Retorna um objeto SlicerItem que representa o botão de segmentação de objetos que está atualmente em foco para a segmentação de objeto especificada. Somente leitura.

Dim slciteActiveItem As SlicerItem
Set slciteActiveItem = ActiveWorkbook.ActiveSlicer.ActiveItem

Caption Retorna ou define a legenda da segmentação de dados especificada. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Caption =

ColumnWidth Retorna ou define a largura, em pontos, de cada coluna na segmentação de tópicos. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.ColumnWidth =

DisableMoveResizeUI Retorna ou define se a segmentação de dados especificada pode ser movida ou redimensionada usando a interface de usuário. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.DisableMoveResizeUI = True

DisplayHeader Retorna ou define se o cabeçalho que exibe a propriedade de legenda do slicer é visível. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.DisplayHeader = True

Height Retorna ou define a altura da segmentação de valores especificada, em pontos. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Height =

Left Retorna ou define a posição horizontal da segmentação de valores especificada, em pontos, em relação ao canto superior esquerdo da célula a1 em uma planilha. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Left =

Locked Retorna ou define se a segmentação de dados especificada pode ser modificada quando a planilha que a contém estiver protegida. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Locked = True

Name Retorna ou define o nome da segmentação de, especificada. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Name =

NumberOfColumns Retorna ou define o número de colunas na segmentação de dados especificada. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.NumberOfColumns =

Parent Retorna o objeto Worksheet que representa a planilha que contém a segmentação de conteúdo. Somente leitura.

Dim wsParent As Worksheet
Set wsParent = ActiveWorkbook.ActiveSlicer.Parent

RowHeight Retorna ou define a altura, em pontos, de cada linha na segmentação de tópicos especificada. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.RowHeight =

Shape Retorna o objeto Shape associado à segmentação de, especificada. Somente leitura.

Dim shpShape As Shape
Set shpShape = ActiveWorkbook.ActiveSlicer.Shape

SlicerCache Retorna o objeto SlicerCache associado à segmentação de objeto. Somente leitura.

Dim slcSlicerCache As SlicerCache
Set slcSlicerCache = ActiveWorkbook.ActiveSlicer.SlicerCache

SlicerCacheLevel Retorna o objeto SlicerCacheLevel associado à segmentação de objeto. Somente leitura.

Dim slcclSlicerCacheLevel As SlicerCacheLevel
Set slcclSlicerCacheLevel = ActiveWorkbook.ActiveSlicer.SlicerCacheLevel

SlicerCacheType Retorna o tipo do cache de segmentação de texto: slicer xlSlicer ou linha do tempo (xlTimeline). Somente leitura XlSlicerCacheType.

Dim xscSlicerCacheType As XlSlicerCacheType
xscSlicerCacheType = ActiveWorkbook.ActiveSlicer.SlicerCacheType

Style Retorna ou define o estilo aplicado no momento à segmentação de dados especificada. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Style =

TimelineViewState O estado específico da linha do tempo da segmentação de informações. Somente leitura TimelineViewState.

Dim tvsTimelineViewState As TimelineViewState
Set tvsTimelineViewState = ActiveWorkbook.ActiveSlicer.TimelineViewState

Top Retorna ou define a posição vertical da segmentação de valores especificada, em pontos, em relação ao canto superior esquerdo da célula a1 em uma planilha. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Top =

Width Retorna ou define a largura da segmentação de tópicos especificada, em pontos. Leitura/gravação.

ActiveWorkbook.ActiveSlicer.Width =

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

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

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

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

Slicers.Parent Retorna o objeto SlicerCache pai da coleção slicers especificada. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.Slicers.Parent