Lire en anglais

Partager via


Objet ShapeNodes (Excel)

Une collection de tous les modules de ShapeNode objets dans la forme libre.

Remarques

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. Vous pouvez créer une forme libre manuellement ou en utilisant le BuildFreeform et ConvertToShape méthodes.

Exemple

Utilisez la propriété Nodes de l’objet Shape pour renvoyer la collection ShapeNodes . L'exemple suivant montre comment supprimer le nœud 4 de la forme 3 de myDocument. Pour que cet exemple fonctionne, la forme 3 doit être une forme libre comptant au moins quatre nœuds.

Set myDocument = Worksheets(1) 
myDocument.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 placer un nœud lisse avec un segment courbé après le nœud 4 de la forme 3 de myDocument. Pour que cet exemple fonctionne, la forme 3 doit être une forme libre comptant au moins 4 nœuds.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3).Nodes 
 .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 
End With

Utilisez Nœuds (index), où index est le numéro d’index du nœud, pour renvoyer un seul objet ShapeNode . Si le nœud 1 de la forme 3 de myDocument est un point d'angle, l'exemple suivant montre comment le transformer en point lisse. Pour que cet exemple fonctionne, la forme 3 doit être une forme libre.

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

Méthodes

Propriétés

Voir aussi

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.