Search code examples
excelvbasendkeysslicers

Enable Multi-select on slicer by default

I have slicers in my workbook that I need multi-select enabled by default.

I tried SendKeys.

ActiveSheet.Shapes.Range(Array("WMS")).Select
SendKeys "%S", True
ActiveSheet.Shapes.Range(Array("Equipment")).Select
SendKeys "%S", True
ActiveSheet.Shapes.Range(Array("Warehousing Skills")).Select
SendKeys "%S", True
ActiveSheet.Shapes.Range(Array("OCF Skills")).Select
SendKeys "%S", True

This selects the slicers as intended but the sendkeys did not enable multi-select.

I tried adding a pause before and after the sendkeys command.

I tried selecting two slicer options. This did not enable multi-select.

Solution

  • I don't believe you can programatically change that Multiselect toggle as at the time I write this...that property isn't exposed to the user via VBA. Looks like you've either got to go change that setting on all slicers manually, or teach your users to hold down the CTRL key while they make their selections (which lets them make multiple selections as if that toggle was activated).