Objeto ShapeNodes (PowerPoint)

Colección de todos los objetos ShapeNode de especificado forma libre.

Comentarios

Cada objeto ShapeNode representa un nodo entre los segmentos de una forma libre o un punto de control de un segmento curvo de una forma libre. Puede crear una forma libre manualmente o mediante los métodos BuildFreeformy ConvertToShape.

Ejemplo:

Utilice la propiedad Nodes para devolver la colección ShapeNodes. En el siguiente ejemplo se elimina el nodo cuatro de la forma tres de myDocument. Para que este ejemplo funcione, la forma tres debe ser una forma libre con cuatro nodos como mínimo.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Nodes.Delete 4

Utilice el método Insert para crear un nuevo nodo y agregarlo a la colección ShapeNodes. En el siguiente ejemplo se agrega un nodo suave con un segmento curvado después del nodo cuatro de la forma tres en myDocument. Para que este ejemplo funcione, la forma tres debe ser una forma libre con, al menos, cuatro nodos.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

Use Nodes (index), donde index es el número de índice del nodo, para devolver un único objeto ShapeNode . Si el nodo uno de la forma tres de myDocument es una esquina, el siguiente ejemplo lo convierte en un punto suave. Para que este ejemplo funcione, la forma tres debe ser una forma libre.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With

Consulte también

Referencia del modelo de objetos de PowerPoint

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.