Clase Slicers (Excel VBA)

Una colección de objetos Slicer. Para usar una variable de clase Slicers, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Slicers en una colección.

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

Add

Crea un nuevo objeto Slicer y devuelve un 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

Un argumento con nombre

SlicerDestination (Worksheet) - Una cadena que especifica el nombre de la hoja o un objeto Worksheet que representa la hoja, donde se colocará la segmentación de trabajo resultante. La hoja de destino debe estar en el libro que contiene el objeto segmentadores especificado por expresión.

Optional arguments

Los siguientes argumentos son opcionales

Level (Long,String) - Para los orígenes de datos OLAP, el índice o el nombre de expresión multidimensional (MDX) del nivel en el que se basa la creación de la segmentación de datos. No compatible con los orígenes de datos que no son de OLAP.

Name (String) - Nombre de la segmentación de datos. Excel genera automáticamente un nombre, si aún no se ha especificado ninguno. El nombre deber ser único entre todas las segmentaciones de datos de un libro.

Caption (String) - Título de la segmentación de datos.

Top (Points) - Posición vertical inicial del rebanador, en puntos, en relación con la esquina superior izquierda de la celda a1 de la hoja de cálculo.

Left - Posición horizontal inicial de la segmentación de datos, en puntos, en relación con la esquina superior izquierda de la celda A1 de un libro

Width - Ancho inicial, en puntos, del control de segmentación de datos

Height (Long) - Altura inicial, en puntos, del control de segmentación de datos.

Count

Devuelve el número de objetos de la colección.

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

Item

Devuelve un objeto Slicer de la colección. Solo lectura.

Item (Index)

Index: Nombre o número de índice del objeto Slicer.

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