Klasse ShapeNode (PowerPoint 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 = ActiveWindow.RangeFromPoint.Nodes(Index:=1)

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

Methoden

Dies ist die Hauptmethode der Klasse ShapeNode

ShapeNodes.Delete - Löscht den Knoten einer Form.

Dim lngIndex As Long: lngIndex = 
ActiveWindow.RangeFromPoint.Nodes.Delete Index:=lngIndex

Andere Methoden

ShapeNodes.Insert - Fügt nach dem angegebenen Knoten der Freihandform ein neues Segment ein.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.Insert Index:=lngIndex, SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, X1:=210, Y1:=100

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

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto

ShapeNodes.SetPosition - Legt die Position des durch Index angegebenen Knotens fest. Beachten Sie, dass je nach Bearbeitungsart des Knotens kann diese Methode die Position benachbarter Knoten beeinflussen.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetPosition Index:=lngIndex, X1:=210, Y1:=100

ShapeNodes.SetSegmentType - Legt den Segmenttyp des Abschnitts fest, der dem angegebenen Knoten folgt.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.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. Wenn der Knoten ein Kontrollpunkt für ein gekrümmter Abschnitt ist, gibt diese Eigenschaft den Bearbeitungstyp des angrenzenden Scheitelpunkts zurück. Schreibgeschützt.

Dim metEditingType As Office.MsoEditingType
metEditingType = ActivePresentation.Slides(1).Shapes(1).Nodes(1).EditingType

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

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes(1).Parent

Points Gibt ein Variant-Wert, der die Position des angegebenen Knotens als-Koordinate Paar darstellt. Schreibgeschützt.

Dim pointsArray As vARIANT
pointsArray = ActivePresentation.Slides(1).Shapes(1).Nodes(1).Points

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

Dim mstSegmentType As Office.MsoSegmentType
mstSegmentType = ActivePresentation.Slides(1).Shapes(1).Nodes(1).SegmentType

ShapeNodes.Count Gibt die Anzahl von Objekten in der angegebenen Auflistung zurück. Schreibgeschützt.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Nodes.Count

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

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes.Parent