Propiedad TextFrame.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 primaria del marco de texto. Solo lectura.

Sintaxis

expresión. Padre

Expresión Variable que representa un objeto TextFrame .

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.