Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Parent Property

PictureFormat.Parent Property

Office 2007
Returns an object that represents the parent object of the specified object. For example, for a TextFrame object, returns a Shape object representing the parent shape of the text frame. Read-only.



expression   A variable that represents a PictureFormat object.

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.

Visual Basic for Applications
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.
Visual Basic for Applications
Sub ParentShape()
    Dim shpParent As Shape
    Set shpParent = ActiveDocument.Pages(1).Shapes(1).TextFrame.Parent
    shpParent.Fill.Patterned Pattern:=msoPatternSphere
End Sub

Community Additions

© 2015 Microsoft