Pages.Parent property (Publisher)
expression A variable that represents a Pages 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.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.