Propiedad Shapes.Parent (Publisher)

Devuelve un objeto que representa el objeto primario del objeto especificado. Por ejemplo, para un objeto TextFrame, devuelve un objeto Shape que representa la forma principal del marco de texto. Solo lectura.

Sintaxis

expresión. Padre

expresión Variable que representa un objeto Shapes.

Ejemplo:

En este ejemplo se obtiene acceso al objeto primario de la forma seleccionada y, a continuación, se le agrega una forma nueva y se establece su relleno.

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

En este ejemplo se devuelve el objeto primario de un marco de texto, que es la primera forma de la publicación activa y, a continuación, se rellena la forma con una trama.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.