In diesem Beispiel werden die Mitglieder der zweiten Ebene des ersten Cube-Feldes im ersten PivotTable-Bericht des aktiven Arbeitsblatts eingeblendet.
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]"))