ShapeNodes-Objekt (Excel)

  • Artikel

Eine Auflistung aller ShapeNode -Objekte des angegebenen Freihandobjekts.

HinwBemerkungeneise

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 BuildFreeform erstellen und der ConvertToShape Methoden.

Beispiel

Verwenden Sie die Nodes-Eigenschaft des Shape-Objekts , 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 = Worksheets(1) 
myDocument.Shapes(3).Nodes.Delete 4

Verwenden Sie die Einfügen -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 = Worksheets(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 = Worksheets(1) 
With myDocument.Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType 1, msoEditingSmooth 
 End If 
End With

Methoden

Eigenschaften

Siehe auch

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.