次の方法で共有

Selection.ChildShapeRange プロパティ (Publisher)

  • [アーティクル]

選択範囲の子図形を表す ShapeRange オブジェクトを取得します。

構文

式。ChildShapeRange

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

戻り値

ShapeRange

例

次の使用例は、作業中の文書に新しいページを作成し、ページに図形を挿入して、図形を選択してグループ化します。 2 つのグループ図形の選択を取り消した後、いずれかの図形のオートシェイプの種類が変更されます。

Sub ChangeFillToChildShape() 
 
 With ThisDocument.Pages(1) 
 With .Shapes 
 .AddShape msoShape4pointStar, 10, 10, 175, 175 
 .AddShape msoShapeOval, 100, 100, 175, 75 
 .AddShape msoShapeOval, 150, 150, 175, 75 
 .Range.Group 
 .SelectAll 
 End With 
 .Shapes(1).GroupItems(1).Select msoFalse 
 .Shapes(1).GroupItems(2).Select msoFalse 
 End With 
 
 Selection.ChildShapeRange(3).AutoShapeType = msoShapeDiamond 
 
End Sub

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

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