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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de