ShapeNodes-Objekt (PowerPoint)
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.