切片机修整性能

Question

尝试使用VBA生成枢轴表和相关的切片器。我能够很好地生成表和切片器，但是当我试图修改Slicer属性时，我得到了错误5。错误在"With“行中。我现在有什么问题？

试图将名称值更改为实际的Slicer_ShipQuantity。并在网上环顾了一下，但我没有看到任何解决方案。我找到的是从这个网站，https://www.microsoft.com/en-us/microsoft-365/blog/2011/01/27/control-slicers-by-using-vba/，然而，这似乎不起作用，当我使用它/键入-复制它。

'This works to create slicer
ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables("MasterPivot"), "ShipQuantity") _
        .Slicers.Add ActiveSheet, , "ShipQuantity", "ShipQuantity", _
        RowLocation, ColumnLocation, width, Height

'this does not work to modify slicer settings. And I have no idea why.
With ActiveWorkbook.SlicerCaches("ShipQuantity").Slicers("ShipQuantity")
        .NumberOfColumns = 3
        .RowHeight = 13
        .ColumnWidth = 70
End With

期望让代码修改显示的切片器，而不会出现任何错误。拜托了，谢谢！

Answer 1

Slicers.Add返回对添加的切片器的引用，因此可以直接使用该引用。

https://learn.microsoft.com/en-us/office/vba/api/excel.slicers.add

Dim slcr

Set slcr = ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables("MasterPivot"), "ShipQuantity") _
        .Slicers.Add(ActiveSheet, , "ShipQuantity", "ShipQuantity", _
        RowLocation, ColumnLocation, width, Height)


With slcr
        .NumberOfColumns = 3
        .RowHeight = 13
        .ColumnWidth = 70
End With