Clase ShapeNode (Word VBA)

La clase ShapeNode representa la geometría y la geometría propiedades de modificación de los nodos definidos por el usuario libre.

El principal procedimiento de la clase ShapeNode es ShapeNodes.Delete

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ShapeNode en una colección.

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

Métodos

Este es el método principal de la clase ShapeNode

ShapeNodes.Delete - Elimina el nodo de forma especificado.

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

Otros Métodos

ShapeNodes.Insert - Inserta un nodo en una forma libre.

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

ShapeNodes.SetEditingType - Establece el tipo de edición del nodo especificado por Index.

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

ShapeNodes.SetPosition - Establece la ubicación del nodo especificado por Index.

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

ShapeNodes.SetSegmentType - Establece el tipo de segmento que sigue al nodo especificado por Index.

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

Propiedades

EditingType Si el nodo especificado es un vértice, esta propiedad devuelve un valor que indica cómo afectan los cambios realizados en el nodo a los dos segmentos conectados al nodo.

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

Parent Devuelve un objeto Object que representa el objeto primario del objeto ShapeNode especificado.

7 
Dim objParent As Object
Set objParent = shpn.Parent

Points Devuelve la posición del nodo especificado como un par de coordenadas.

7 
Dim pntsPoints As Points
Set pntsPoints = shpn.Points

SegmentType Devuelve un valor que indica si el segmento asociado al nodo especificado es recto o curvo.

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

ShapeNodes.Count Devuelve un Long que representa el número de nodos de forma de la colección.

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

ShapeNodes.Parent Devuelve un objeto Object que representa el objeto primario del objeto ShapeNodes especificado.

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