Drilled Property Example

This example expands the second-level members of the first cube field in the first PivotTable report on the active worksheet.

ActiveSheet.PivotTables("PivotTable1").CubeFields(1) _
    .TreeviewControl.Drilled = _
        Array(Array("", "", "", "", "", "", "", "", _
        "", "", "", ""), _
        Array("[state].[states].[AB]", _
        "[state].[states].[CA]", _
        "[state].[states].[IN]", _
        "[state].[states].[KS]", _
        "[state].[states].[KY]", _
        "[state].[states].[MD]", _
        "[state].[states].[MI]", _
        "[state].[states].[OH]", _
        "[state].[states].[OR]", _
        "[state].[states].[TN]", _
        "[state].[states].[UT]", _
        "[state].[states].[WA]"))