Parent Property

object, returns a Shape object representing the parent shape of the text frame. Read-only.

expression.Parent

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example accesses the parent object of the selected shape, and then adds a new shape to it and sets the fill for the new shape.

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
		

This example returns the parent object of a text frame, which is the first shape in the active publication, and then fills the shape with a pattern.

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