Freigeben über


TreeviewControl.Drilled-Eigenschaft (Excel)

Legt die "drilled" (erweitert oder sichtbar) status der Cubefeldelemente im hierarchischen Elementauswahl-Steuerelement eines Cubefelds fest. Diese Eigenschaft wird hauptsächlich für die Makroaufzeichnung verwendet und ist nicht für andere Zwecke vorgesehen. Lese-/Schreibzugriff.

Syntax

Ausdruck. Gebohrt

Ausdruck Eine Variable, die ein TreeviewControl-Objekt darstellt.

Hinweise

Die Drilled-Eigenschaft akzeptiert ein Array. Jedes Element des Arrays entspricht einer Ebene des erweiterten Cube-Felds. Die maximale Anzahl der Elemente entspricht der Anzahl der Ebenen im Cube-Feld. Jedes Element des Arrays ist ein Array vom Typ String, das die eindeutigen Elementnamen enthält, die auf der entsprechenden Ebene des Steuerelements sichtbar (erweitert) sind.

Informationen dazu, wann Elemente in einer erweiterten Ansicht explizit ausgeblendet werden, finden Sie in der Hidden-Eigenschaft des TreeviewControl-Objekts .

Hinweis

Diese Eigenschaft gibt kein Array zurück, das den Drillstatus von Elementen des Cube-Felds im Steuerelement für die hierarchische Elementauswahl eines Cube-Felds darstellt.

Beispiel

In diesem Beispiel werden die Elemente der zweiten Ebene des ersten Cube-Felds im ersten PivotTable-Bericht des aktiven Arbeitsblatts erweitert.

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]"))

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.