次の方法で共有

Shape.ParentGroupShape プロパティ (Publisher)

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

構文

式。ParentGroupShape

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

戻り値

Shape

例

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

Sub ParentGroupShape() 
 Dim shpGroup As Shape 
 
 With ActiveDocument.Pages(1).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 shpGroup = ActiveDocument.Pages(1).Shapes(1) _ 
 .GroupItems(1).ParentGroupShape 
 shpGroup.Fill.Patterned Pattern:=msoPattern25Percent 
 
End Sub

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

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

  • Last updated on