How to Determine if Pivot Table is Active using VbScript?

[#1]

Hi all,

How can I determine if a pivot table is active in the document using vbscript?

My end users need to expand/collapse all the fields in different pivot tables with just the click of a button.

Example:

Sub ExpandPivot()

SET Pivot = ActiveDocument.GetSheetObject(“X”)

SET pvt = Pivot.GetProperties

SET Pivot2 = ActiveDocument.GetSheetObject(“Y”)

SET pvt2 = Pivot.GetProperties

If pvt.IsActive then

                ‘Perform Action 1

Else

                ‘Perform Action 2

End if

End sub

Thanks for your assistance.