次の方法で共有

Shape.ParentGroup プロパティ (Word)

  • [アーティクル]

子の図形または子の図形範囲の共通の親の図形を表す Shape オブジェクトを返します。

構文

式。ParentGroup

expression 必須です。 Shape オブジェクトを表す変数を指定します。

例

次の使用例は、作業中の文書に 2 つの図形を作成し、これらの図形をグループ化します。 その後、グループ内の 1 つの図形を使用して、親グループにアクセスし、親グループ内のすべての図形を同じ塗りつぶし色で塗りつぶします。 この例では、作業中の文書には何も図形が含まれていないことを前提としています。 図形が含まれている場合は、エラーが発生することがあります。

Sub ParentGroupShape() 
 Dim pgShape As Shape 
 
 'Add two shapes to active document and group 
 With ActiveDocument.Shapes 
 .AddShape Type:=msoShapeOval, Left:=72, _ 
 Top:=72, Width:=100, Height:=100 
 .AddShape Type:=msoShapeHeart, Left:=110, _ 
 Top:=120, Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 Set pgShape = ActiveDocument.Shapes(1) _ 
 .GroupItems(1).ParentGroup 
 pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255) 
 
End Sub

関連項目

Shape オブジェクト

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

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