Freigeben über

ShapeNodes-Objekt (PowerPoint)

  • Artikel

Eine Auflistung aller ShapeNode -Objekte des angegebenen Freihandobjekts.

Hinweise

Jedes ShapeNode -Objekt stellt entweder einen Knoten zwischen Abschnitten in einer Freihandform oder ein Kontrollpunkt für einen gekrümmten Abschnitt einer Freihandform dar. Sie können eine Freihandform manuell oder mithilfe der Methoden BuildFreeformund ConvertToShapeerstellen.

Beispiel

Verwenden Sie die Nodes -Eigenschaft, um die ShapeNodes -Auflistung zurückzugeben. Im folgenden Beispiel wird in myDocument der vierte Knoten der dritten Form gelöscht. Das Beispiel kann nur fehlerfrei verwendet werden, wenn es sich bei der dritten Form um ein Freihandobjekt mit mindestens vier Knoten handelt.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Nodes.Delete 4

Verwenden Sie die Insert -Methode können Sie einen neuen Knoten erstellen und Hinzufügen der ShapeNodes -Auflistung. Im folgenden Beispiel wird in myDocument nach dem vierten Knoten der dritten Form ein Übergangsknoten mit einem gekrümmten Abschnitt hinzugefügt. Das Beispiel kann nur fehlerfrei verwendet werden, wenn es sich bei der dritten Form um ein Freihandobjekt mit mindestens vier Knoten handelt.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

Verwenden Sie Knoten (Index), wobei index die Indexnummer des Knotens ist, um ein einzelnes ShapeNode-Objekt zurückzugeben. Wenn Knoten 1 in Form 3 in myDocument ein Eckpunkt ist, wird er im folgenden Beispiel zu einem Glättungspunkt. Für das Beispiel funktioniert muss Form 3 eine Freihandform handeln.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With

Siehe auch

PowerPoint-Objektmodellreferenz

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.