Klasse ShapeNode (Excel 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

Set

Um eine ShapeNode -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der ShapeNode Klassenvariablen verwendet werden : ShapeNodes.Item, Shape.Nodes und ShapeRange.Nodes

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

Methoden

Dies ist die Hauptmethode der Klasse ShapeNode

ShapeNodes.Delete - Löscht das Objekt.

Dim lngIndex As Long: lngIndex = 
ActiveChart.OLEObjects.ShapeRange.Nodes.Delete Index:=lngIndex

Andere Methoden

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

ShapeNodes.Item - Gibt ein einzelnes Objekt aus einer Auflistung zurück.

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

ShapeNodes.SetPosition - Legt die Position des durch Index angegebenen Knotens fest.

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

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.

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

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveChart.OLEObjects.ShapeRange.Nodes(1).Parent

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

Dim lngPoints As Long
lngPoints = ActiveChart.OLEObjects.ShapeRange.Nodes(1).Points

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

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

ShapeNodes.Count Gibt einen Integer-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveChart.OLEObjects.ShapeRange.Nodes.Count

ShapeNodes.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveChart.OLEObjects.ShapeRange.Nodes.Parent