Klasse ShapeNodes (Excel VBA)
Eine Auflistung aller ShapeNode -Objekte des angegebenen Freihandobjekts. Um eine ShapeNodes -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim sns as ShapeNodes
Set sns = Application.ActiveChart.OLEObjects.ShapeRange
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
Delete
Löscht das Objekt.
Delete (Index)
Index: Der Index des zu löschenden Objekts.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.Delete Index:=lngIndex
Insert
Fügt einen Knoten in eine Freihandform ein.
Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.Insert Index:=lngIndex, SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, X1:=, Y1:=
Arguments
Hier sind die benannte Argumente :
Index - Long
SegmentType (Office.MsoSegmentType) - Der Segmenttyp.
EditingType (Office.MsoEditingType) - Der Bearbeitungstyp.
X1 (Single) - Wenn der Bearbeitungstyp des neuen Segments msoEditingAutoist, gibt dieses Argument den horizontalen Abstand, gemessen in Punkten, von der oberen linken Ecke des Dokuments bis zum Endpunkt des neuen Segments an.
Y1 (Single) - Wenn der Bearbeitungstyp des neuen Segments msoEditingAutoist, gibt dieses Argument den in Punkt gemessenen vertikalen Abstand von der oberen linken Ecke des Dokuments bis zum Endpunkt des neuen Segments an.
Optional arguments
Die folgenden Argumente sind optional
X2 (Single) - Wenn der Bearbeitungstyp des neuen Segments msoEditingCornerist, gibt dieses Argument den horizontalen Abstand, gemessen in Punkten, von der oberen linken Ecke des Dokuments bis zum zweiten Kontrollpunkt für das neue Segment an.
Y2 (Single) - Wenn der Bearbeitungstyp des neuen Segments msoEditingCornerist, gibt dieses Argument den in Punkt gemessenen vertikalen Abstand von der oberen linken Ecke des Dokuments bis zum zweiten Kontrollpunkt für das neue Segment an.
X3 (Single) - Wenn der Bearbeitungstyp des neuen Segments msoEditingCornerist, gibt dieses Argument den horizontalen Abstand, gemessen in Punkten, von der oberen linken Ecke des Dokuments bis zum Endpunkt des neuen Segments an.
Y3 (Single) - Wenn der Bearbeitungstyp des neuen Segments msoEditingCornerist, gibt dieses Argument den in Punkt gemessenen vertikalen Abstand von der oberen linken Ecke des Dokuments bis zum Endpunkt des neuen Segments an.
Item
Gibt ein einzelnes Objekt aus einer Auflistung zurück.
Item (Index)
Index: Der Name oder die Indexnummer für das Objekt.
Dim shpn As ShapeNode
Set shpn = ActiveChart.OLEObjects.ShapeRange.Nodes(Index:=1)
SetEditingType
Legt die Bearbeitungsart des durch Index angegebenen Knotens fest.
SetEditingType (Index, EditingType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto
Arguments
Hier sind die benannte Argumente :
Index (Long) - Der Knoten, dessen Bearbeitungstyp festgelegt werden soll.
EditingType (Office.MsoEditingType) - Die Bearbeitungseigenschaft des Scheitelpunkts.
SetPosition
Legt die Position des durch Index angegebenen Knotens fest.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetPosition Index:=lngIndex, X1:=, Y1:=
Arguments
Hier sind die benannte Argumente :
Index (Long) - Der Knoten, dessen Position festgelegt werden soll.
X1 (Single) - Die Position (in Punkt) des neuen Knotens relativ zur oberen linken Ecke des Dokuments.
Y1 (Single) - Die Position des neuen Knotens (in Punkt), relativ zur oberen linken Ecke des Dokuments.
SetSegmentType
Legt den Segmenttyp des Abschnitts fest, das dem von Index angegebenen Knoten folgt.
SetSegmentType (Index, SegmentType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetSegmentType Index:=lngIndex, SegmentType:=msoSegmentLine
Arguments
Hier sind die benannte Argumente :
Index (Long) - Der Knoten, dessen Segmenttyp festgelegt werden soll.
SegmentType (Office.MsoSegmentType) - Gibt an, ob der Abschnitt gerade oder gekrümmt ist.