Classe SlicerItem - um item em uma segmentação de dados (Excel VBA)

A classe SlicerItem representa um item em uma segmentação de dados. Para usar uma variável de classe SlicerItem, ela primeiro precisa ser instanciada por exemplo

Dim slcite as SlicerItem
Set slcite = ActiveWorkbook.ActiveSlicer.ActiveItem

For Each

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

Dim slcite As SlicerItem
For Each slcite In ActiveWorkbook.SlicerItems
	
Next slcite

Caption

Retorna o texto do rótulo do item da segmentação de dados. Somente leitura.

Dim strCaption As String
strCaption = ActiveWorkbook.ActiveSlicer.ActiveItem.Caption

HasData

Retorna se o item da segmentação de dados contém dados que correspondem ao estado atual do filtro manual. Somente leitura.

True se o item da segmentação de dados contiver dados que correspondam ao estado de filtro manual atual; caso contrário, false. Esta propriedade só tem suporte quando a filtragem cruzada está ativada e, caso contrário, gerará um erro de tempo de execução. Para determinar se a filtragem cruzada está ativada para uma segmentação de objetos associada a um relatório de tabela dinâmica, verifique o valor da propriedade CrossFilterType do objeto SlicerCache pai do objeto SlicerItem especificado. Para determinar se a filtragem cruzada está ativada para uma segmentação de dados associada a uma fonte de dados OLAP, verifique o valor da propriedade CrossFilterType do objeto SlicerCacheLevel que corresponde à hierarquia OLAP que está sendo filtrada.

Dim booHasData As Boolean
booHasData = ActiveWorkbook.ActiveSlicer.ActiveItem.HasData

Name

Retorna o nome do item da segmentação de dados. Somente leitura.

Dim strName As String
strName = ActiveWorkbook.ActiveSlicer.ActiveItem.Name

Selected

Retorna ou define se o item da segmentação de dados está selecionado. Leitura/gravação para segmentações de dados conectadas a fontes de dados não-OLAP. Somente leitura para segmentações de dados conectadas a fontes de dados OLAP.

True se o item da segmentação de itens for selecionado; caso contrário, false.

ActiveWorkbook.ActiveSlicer.ActiveItem.Selected = True

SourceName

Retorna o nome origem do item da segmentação de dados. Somente leitura.

Dim strSourceName As String
strSourceName = ActiveWorkbook.ActiveSlicer.ActiveItem.SourceName

SourceNameStandard

Retorna o nome da fonte do item da segmentação de dados em configurações de formato padrão inglês Estados Unidos. Somente leitura.

Esta propriedade é usada quando um item da segmentação de dados tiver uma versão localizada e seu valor de propriedade SourceNameStandard for diferente do SourceName, do tipo da formatação de data.

Dim strSourceNameStandard As String
strSourceNameStandard = ActiveWorkbook.ActiveSlicer.ActiveItem.SourceNameStandard

Value

Retorna o valor do item da segmentação de dados. Somente leitura.

Dim strValue As String
strValue = ActiveWorkbook.ActiveSlicer.ActiveItem.Value