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