Klasse ShapeNode (Word VBA)

Die Klasse ShapeNode stellt die Geometrie- und Geometriebearbeitungseigenschaften der Knoten in einer benutzerdefinierten Freihandform dar.

Die wichtigste Prozedur der Klasse ShapeNode ist ShapeNodes.Delete

For Each

Hier ist ein Beispiel für die Verarbeitung der ShapeNode -Elemente in einer Sammlung

Dim shp As Shape: Set shp = 
Dim shpnNode As ShapeNode
For Each shpnNode In shp.Nodes
	With shpnNode
		
	End With
Next shpnNode

Methoden

Dies ist die Hauptmethode der Klasse ShapeNode

ShapeNodes.Delete - Löscht den angegebenen Formknoten.

Dim lngIndex As Long: lngIndex = 
Dim sns As ShapeNodes: Set sns =  
sns.Delete Index:=lngIndex

Andere Methoden

ShapeNodes.Insert - Fügt einen Knoten in eine Freihandform ein.

Dim lngIndex As Long: lngIndex = 
Dim sns As ShapeNodes: Set sns =  
sns.Insert Index:=lngIndex, SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, X1:=, Y1:=

ShapeNodes.SetEditingType - Legt die Bearbeitungsart des durch Index angegebenen Knotens fest.

Dim lngIndex As Long: lngIndex = 
Dim sns As ShapeNodes: Set sns =  
sns.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto

ShapeNodes.SetPosition - Legt den Ort des Knotens fest, der durch Index angegeben wurde.

Dim lngIndex As Long: lngIndex = 
Dim sns As ShapeNodes: Set sns =  
sns.SetPosition Index:=lngIndex, X1:=, Y1:=

ShapeNodes.SetSegmentType - Legt den Abschnittstyp des Abschnitts fest, das dem durch Index angegebenen Knoten folgt.

Dim lngIndex As Long: lngIndex = 
Dim sns As ShapeNodes: Set sns =  
sns.SetSegmentType Index:=lngIndex, SegmentType:=msoSegmentLine

Eigenschaften

EditingType Wenn es sich bei dem angegebenen Knoten um einen Scheitelpunkt handelt, gibt diese Eigenschaft einen Wert zurück, der angibt, wie sich am Knoten vorgenommene Änderungen auf die beiden mit dem Knoten verbundenen Abschnitte auswirken.

7 
Dim metEditingType As Office.MsoEditingType
metEditingType = shpn.EditingType

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ShapeNode-Objekts darstellt.

7 
Dim objParent As Object
Set objParent = shpn.Parent

Points Gibt die Position des angegebenen Knotens als Koordinatenpaar zurück.

7 
Dim pntsPoints As Points
Set pntsPoints = shpn.Points

SegmentType Gibt einen Wert zurück, der angibt, ob der dem angegebenen Knoten zugeordnete Abschnitt gerade oder gekrümmt ist.

7 
Dim mstSegmentType As Office.MsoSegmentType
mstSegmentType = shpn.SegmentType

ShapeNodes.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Shape-Knoten in der Auflistung darstellt.

Dim sns As ShapeNodes: Set sns =  
Dim lngCount As Long
lngCount = sns.Count

ShapeNodes.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ShapeNodes-Objekts darstellt.

Dim sns As ShapeNodes: Set sns =  
Dim objParent As Object
Set objParent = sns.Parent