Selection.ChildShapeRange-Eigenschaft (PowerPoint)

Artikel
04/07/2023

Gibt ein ShapeRange -Objekt zurück, das die untergeordneten Formen einer Markierung darstellt.

Syntax

Ausdruck. ChildShapeRange

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Rückgabewert

ShapeRange

Beispiel

In diesem Beispiel wird ein neues Dokument mit einem Zeichenbereich erstellt, der Zeichenbereich mit Formen aufgefüllt und die Shapes ausgewählt, die dem Zeichenbereich hinzugefügt werden. Nachdem überprüft worden ist, ob es sich dabei um untergeordnete Formen handelt, werden die Formen mit einem Muster gefüllt.

Sub ChildShapes()

    Dim sldNew As Slide
    Dim shpCanvas As Shape

    'Create a new slide with a drawing canvas and shapes
    Set sldNew = Presentations(1).Slides _
        .Add(Index:=1, Layout:=ppLayoutBlank)

    Set shpCanvas = sldNew.Shapes.AddCanvas( _
        Left:=100, Top:=100, Width:=200, Height:=200)

    With shpCanvas.CanvasItems
        .AddShape msoShapeRectangle, Left:=0, Top:=0, _
            Width:=100, Height:=100
        .AddShape msoShapeOval, Left:=0, Top:=50, _
            Width:=100, Height:=100
        .AddShape msoShapeDiamond, Left:=0, Top:=100, _
            Width:=100, Height:=100
    End With

    'Select all shapes in the canvas
    shpCanvas.CanvasItems.SelectAll

    'Fill canvas child shapes with a pattern
    With ActiveWindow.Selection
        If .HasChildShapeRange = True Then
            .ChildShapeRange.Fill.Patterned Pattern:=msoPatternDivot
        Else
            MsgBox "This is not a range of child shapes."
        End If
    End With
	
End Sub

Siehe auch

Selection-Objekt

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.

Freigeben über