ShapeNodes-Objekt (Publisher)

  • Artikel

Eine Auflistung aller ShapeNode Objekte des angegebenen Freihandobjekts. 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 Shapes.BuildFreeform und FreeformBuilder.ConvertToShape erstellen.

HinwBemerkungeneise

Verwenden Sie den Knoten Eigenschaft, um eine ShapeNodes -Auflistung zurückzugeben. Verwenden Sie Knoten (Index), wobei index die Indexnummer des Knotens ist, um ein einzelnes ShapeNode-Objekt zurückzugeben.

Verwenden Sie die Einfügen -Methode können Sie einen neuen Knoten erstellen und Hinzufügen der ShapeNodes -Auflistung.

Beispiel

Im folgende Beispiel wird Knoten 4 in Form 3 im aktiven Dokument gelöscht. Für das Beispiel funktioniert muss Form 3 eine Freihandform mit mindestens vier Knoten sein.

Sub DeleteShapeNode() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Delete Index:=4 
End Sub

Im folgenden Beispiel wird im aktiven Dokument ein Übergangspunkt mit einem Kurvensegment nach Knoten 4 in Form 3 eingefügt. Dieses Beispiel funktioniert nur, wenn es sich bei Form 3 um eine Freihandform mit mindestens vier Knoten handelt.

Sub AddCurvedSmoothSegment() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Insert _ 
 Index:=4, SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingSmooth, X1:=210, Y1:=100 
End Sub

Wenn Knoten 1 in Form 3 im aktiven Dokument ein Ecke Punkt ist, ist im folgenden Beispiel wird es Übergangs-. Für das Beispiel funktioniert muss Form 3 eine Freihandform handeln.

Sub SetPointType() 
 With ActiveDocument.Pages(1).Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType Index:=1, EditingType:=msoEditingSmooth 
 End If 
 End With 
End Sub

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.