Objet ShapeNodes (Word)

Une collection de tous les modules de ShapeNode objets dans la forme libre. Chaque objet ShapeNode représente soit un noeud entre des segments dans une forme libre ou d'un point de contrôle pour un segment courbé d'une forme libre.

Remarques

Vous pouvez créer une forme libre manuellement ou à l’aide des méthodes BuildFreeform et ConvertToShape .

Pour renvoyer la collection ShapeNodes, utilisez la propriété Nodes. L'exemple suivant supprime le nœud quatre de la forme trois du document actif. Pour que cet exemple fonctionne, la forme trois doit être une forme libre au moins quatre nœuds.

ActiveDocument.Shapes(3).Nodes.Delete 4

Utiliser l' Insertion méthode pour créer un nouveau nœud et l'ajouter à la collection ShapeNodes. L'exemple suivant montre comment ajouter un nœud et un segment courbe après le quatrième nœud de la troisième forme du document actif. Cet exemple ne fonctionne que si la troisième forme est une forme libre constituée d'au moins quatre nœuds.

With ActiveDocument.Shapes(3).Nodes 
 .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 
End With

Utilisez Nodes (Index), où Index est le numéro d’index du nœud, pour renvoyer un seul objet ShapeNode . Si le noeud un de la forme trois du document actif est un point d'angle, l'exemple suivant rend un point d'inflexion. Pour que cet exemple fonctionne, la forme trois doit être une forme libre.

With ActiveDocument.Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType 1, msoEditingSmooth 
 End If 
End With

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.