Gets the parent of the object. | |
Syntax: | Set object = object.Parent |
Description: | The Parent property will return the
container which owns this object. Example: Sub GefArcFormat_Parent() Dim oCimObj As GefObject Dim oCimArcFmt As
GefArcFormat Dim oObj As Object Set oCimObj = CimGetObject Set oCimArcFmt =
oCimObj.ArcFormat If Not oCimArcFmt Is Nothing
Then Set oObj =
oCimArcFmt.Parent MsgBox
oObj.Name Else MsgBox "The
object is not an Arc" End If End Sub |