ShapeRange.Child-Eigenschaft (Excel)

Gibt msoTrue zurück, wenn die angegebene Form eine untergeordnete Form ist oder alle Formen in einem Formenbereich untergeordnete Formen derselben übergeordneten Form sind. Gibt "msoFalse" zurück, wenn das ausgewählte Shape kein untergeordnetes Shape ist. Gibt "msoTriStateMixed " zurück, wenn nur einige der ausgewählten Shapes untergeordnete Shapes sind. Schreibgeschützt MsoTriState.

Syntax

Ausdruck verwendet werden. Untergeordnete Elemente

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

In diesem Beispiel wird das erste Shape im Zeichenbereich ausgewählt. Wenn das ausgewählte Shape ein untergeordnetes Shape ist, wird das Shape mit der angegebenen Farbe gefüllt. In diesem Beispiel wird angenommen, dass ein Zeichenbereich mehrere Shapes im aktiven Arbeitsblatt enthält.

Sub FillChildShape() 
 
    'Select the first shape in the drawing canvas. 
    ActiveSheet.Shapes(1).CanvasItems(1).Select 
 
    'Fill selected shape if it is a child shape. 
    If Selection.ShapeRange.Child = msoTrue Then 
        Selection.ShapeRange.Fill.ForeColor.RGB = RGB(100, 0, 200) 
    Else 
        MsgBox "This shape is not a child shape." 
    End If 
 
End Sub

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.