Parent Property

Applies To

ActionSetting object, ActionSettings collection object, AddIn object, AddIns collection object, Adjustments object, AnimationSettings object, BulletFormat object, CalloutFormat object, ColorFormat object, ColorScheme object, ColorSchemes collection object, ConnectorFormat object, DocumentWindow object, DocumentWindows collection object, ExtraColors object, FillFormat object, Font object, Fonts collection object, FreeformBuilder object, GroupShapes collection object, HeaderFooter object, HeadersFooters object, HyperLink object, HyperLinks collection object, LineFormat object, LinkFormat object, Master object, NamedSlideShow object, NamedSlideShows collection object, ObjectVerbs object, OLEFormat object, PageSetup object, ParagraphFormat object, PictureFormat object, PlaceholderFormat object, Placeholders collection object, PlaySettings object, Presentation object, Presentations collection object, PrintOptions object, PrintRange object, PrintRanges collection object, RGBColor object, Ruler object, RulerLevel object, RulerLevels collection object, Selection object, ShadowFormat object, Shape object, ShapeNode object, ShapeNodes collection object, ShapeRange collection object, Shapes collection object, Slide object, SlideRange collection object, Slides collection object, SlideShowSettings object, SlideShowTransition object, SlideShowView object, SlideShowWindow object, SlideShowWindows collection object, SoundEffect object, TabStop object, TabStops collection object, Tags object, TextEffectFormat object, TextFrame object, TextRange object, TextStyle object, TextStyleLevel object, TextStyleLevels collection object, TextStyles collection object, ThreeDFormat object, View object.

Description

Returns the parent object for the specified object. Read-only.

Example

This example adds an oval containing text to slide one in the active presentation and rotates the oval and the text 45 degrees. The parent object for the text frame is the Shape object that contains the text.

Set myShapes = ActivePresentation.Slides(1).Shapes
With myShapes.AddShape(msoShapeOval, 50, 50, 300, 150).TextFrame
    .TextRange.Text = "Test text"
    .Parent.Rotation = 45
End With