ShapeRange.Child プロパティ (Excel)

指定した図形が子図形の場合、または図形範囲内のすべての図形が同じ親の子図形である場合は、 msoTrue を返します。 選択した図形が子図形でない場合は、 msoFalse を返します。 選択した図形の一部のみが子図形である場合は、 msoTriStateMixed を返します。 値の取得のみ可能な MsoTriState の値です。

構文

式。子

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

例

次の使用例は、キャンバス内の最初の図形を選択し、その図形が子図形の場合は、指定の色で図形を塗りつぶします。 次の使用例では、アクティブ ワークシートの描画キャンバスに複数の図形があるものとします。

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

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

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