VBA Pivot Table CubeField Enable multiple items

Wries · #1 03-13-2014, 09:56 AM

Hi All,

I need a macro that will set certain pivot fields to (All). It all works like a charm as far as multiple items selection is disabled.
I either need macro to select all items or to disable the multiple selection and then select all.
The below code returns run time 1004 app-def or object-def error at the row where i am trying to set to false, OLAP pivot so i cannot use all the features. Unless I find a solution to the below i will have to create slicers for each field and then make the macro to clear the slicer (set all visible).

Code:

Sub test()
Dim PT As PivotTable
Dim PF As PivotField
    Set PT = ActiveSheet.PivotTables("Pivot2014")
    Set PF = PT.PivotFields("Product")
    
    PF.CubeField.EnableMultiplePageItems = False
 End Sub

Please advise.

Thank you,
Kind regards,
Wries

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
For multiple word document management, is it possible to enable or disable plugin ??	anfas	Word	2	11-21-2013 10:23 PM
Pivot table auto print. For multiple values.	Nicholaspoe	Excel	0	10-08-2013 09:08 PM
Pivot Table	uhlersa	Excel	0	10-15-2012 12:01 PM
Break Pivot Into Multiple Tables	Pramalot	Excel	0	05-22-2012 05:21 AM
Pivot Table	Karen615	Excel	5	08-03-2011 10:46 AM