Selection.HasChildShapeRange プロパティ (PowerPoint)

場合は true 選択範囲に子図形が含まれている場合。 読み取り専用です。

構文

HasChildShapeRange

ParagraphFormat オブジェクトを表す変数。

戻り値

Boolean

次の使用例は、描画キャンバスがある新しいスライドを作成し、描画キャンバスに図形を追加して、キャンバスに追加された図形を選択します。 次に、選択された図形が子図形であるかどうかを調べた後、子図形にパターンを設定します。

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

関連項目

Selection オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。