Klasse ShapeNode - Geometrie- (Excel VBA)

Die Klasse ShapeNode stellt die Geometrie- und Geometriebearbeitungseigenschaften der Knoten in einer benutzerdefinierten Freihandform dar. Um eine ShapeNode -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim shpn as ShapeNode
Set shpn = ActiveChart.OLEObjects.ShapeRange.Nodes(Index:=1)

For Each

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

Dim shpnNode As ShapeNode
For Each shpnNode In ActiveChart.OLEObjects.ShapeRange.Nodes
	
Next shpnNode

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.

Diese Eigenschaft ist schreibgeschützt.

Dim metEditingType As Office.MsoEditingType
metEditingType = ActiveChart.OLEObjects.ShapeRange.Nodes(1).EditingType

Points

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

Diese Eigenschaft ist schreibgeschützt.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3).Nodes 
 pointsArray = .Item(2).Points 
 currXvalue = pointsArray(1, 1) 
 currYvalue = pointsArray(1, 2) 
 .SetPosition 2, currXvalue + 200, currYvalue + 300 
End With

SegmentType

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

Verwenden Sie die SetSegmentType -Methode, um den Wert dieser Eigenschaft festzulegen.

Dim mstSegmentType As Office.MsoSegmentType
mstSegmentType = ActiveChart.OLEObjects.ShapeRange.Nodes(1).SegmentType