Classe ShapeNode (Word VBA)

La classe ShapeNode représente la géométrie et les propriétés de modification géométrique des noeuds dans un défini par l'utilisateur libre.

La procédure principale de la classe ShapeNode est ShapeNodes.Delete

For Each

Voici un exemple de traitement des éléments ShapeNode dans une collection

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

Méthodes

C'est la méthode principale de la classe ShapeNode

ShapeNodes.Delete - Supprime le nœud spécifié de la forme.

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

Autre Méthodes

ShapeNodes.Insert - Insère un nœud dans une forme libre.

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

ShapeNodes.SetEditingType - Cette méthode définit le type de modification du nœud spécifié par Index.

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

ShapeNodes.SetPosition - Cette méthode détermine la position du nœud indiquée par Index.

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

ShapeNodes.SetSegmentType - Cette méthode détermine le type du segment qui suit le nœud indiqué par Index.

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

Propriétés

EditingType Si le nœud spécifié est un sommet, cette propriété renvoie une valeur qui indique comment les modifications apportées au nœud affectent les deux segments connectés au nœud.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet ShapeNode spécifié.

7 
Dim objParent As Object
Set objParent = shpn.Parent

Points Renvoie la position du nœud spécifié en tant qu'une paire de coordonnées.

7 
Dim pntsPoints As Points
Set pntsPoints = shpn.Points

SegmentType Cette propriété renvoie une valeur qui indique si le segment associé au nœud spécifié est un segment de droite ou de courbe.

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

ShapeNodes.Count Renvoie un type long qui représente le nombre de nœuds de forme dans la collection.

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

ShapeNodes.Parent Renvoie un Object qui représente l'objet parent de l'objet ShapeNodes spécifié.

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