GroupShapes.Parent プロパティ (Publisher)

指定されたオブジェクトの親オブジェクトを表すオブジェクトを取得します。 たとえば TextFrame オブジェクトの場合は、テキスト ボックスの親図形を表す Shape オブジェクトを取得します。 値の取得のみ可能です。

構文

式。親

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

例

次の使用例は、選択した図形の親オブジェクトにアクセスし、その親オブジェクトに新しい図形を追加した後、その図形を塗りつぶします。

Sub ParentObject() 
 Dim shp As Shape 
 Dim pg As Page 
 
 Set pg = Selection.ShapeRange(1).Parent 
 Set shp = pg.Shapes.AddShape(Type:=msoShape5pointStar, _ 
 Left:=72, Top:=72, Width:=72, Height:=72) 
 
 shp.Fill.ForeColor.RGB = RGB(Red:=180, Green:=180, Blue:=180) 
End Sub

次の使用例は、テキスト ボックスの親オブジェクト (作業中の文書内の最初の図形) を取得し、その図形をパターンで塗りつぶします。

Sub ParentShape() 
 Dim shpParent As Shape 
 Set shpParent = ActiveDocument.Pages(1).Shapes(1).TextFrame.Parent 
 shpParent.Fill.Patterned Pattern:=msoPatternSphere 
End Sub

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

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