选定的切片器

Question

我正在尝试找出一种方法来快速格式化一个或多个与数据模型连接的切片器(列数、单元格宽度/高度、切片器宽度/高度等)，通常是在将它们添加到工作簿之后，但也可以根据需要。我一直试图弄清楚如何遍历Selection对象层次结构，但我似乎无法弄清楚如何从Selection对象得到的Object/Rectangle转到选定的Slicer对象。

我看到我可以很容易地采用另一种方法，因为我可以使用ActiveWorkbook.SlicerCaches("Slicer_Test1").Slicers("Test").Shape直接从Slicer访问Shape对象

我唯一的选择是迭代所有SlicerCaches中的所有Slicers，直到我匹配一个与Shape同名的Selection (如果我选择了多个切片器，则匹配多个名称)？

这有什么意义吗？我认为这应该更容易理解，但我正在绕圈子试图研究它。

感谢您能提供的任何指点！

编辑:删除powerpivot标签，因为它现在似乎无关紧要。

Answer 1

您根本不需要Selection：

Dim slc                   As Slicer
Set slc = ActiveWorkbook.ActiveSlicer
If Not slc Is Nothing Then
    ' do stuff
End If