多选Excel切片器

Question

我想将“多重选择”设置为仪表板中三个切片器的默认设置。

我写了三个（每个切片器一个）短程序，如下所示：

Sub msel() 

 ActiveSheet.Shapes.Range(Array("Slicer1")).Select 
 SendKeys "%s" 
 SendKeys "(ESC)" 

End Sub

当独立调用时，这些过程起作用。当我尝试从另一个Sub调用它们中的三个时，只有最后一个Call起作用（即，只有一个slicer处于“多选”模式）。

任何指导将不胜感激。

***类似这样的东西（见下文）具有相同的效果：

Sub All()

Dim sCache As SlicerCache
Dim sl As Slicer

For Each sCache In ActiveWorkbook.SlicerCaches
    For Each sl In sCache.Slicers
        sl.Shape.Select
        SendKeys "%s"
        SendKeys "{ESC}"
    Next sl
Next sCache

End Sub

Answer 1

我怀疑Excel的循环太快，无法使SendKey生效。如果我在第二个SendKeys之后添加DoEvents，对我来说就很好了。