Objet ShapeNodes (Publisher)

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 à l’aide des méthodes Shapes.BuildFreeform et FreeformBuilder.ConvertToShape .

Remarques

Utilisez les nœuds propriété pour renvoyer une collection ShapeNodes. Utilisez Nœuds (index), où index est le numéro d’index du nœud, pour renvoyer un seul objet ShapeNode .

Utiliser l' Insertion méthode pour créer un nouveau nœud et l'ajouter à la collection ShapeNodes.

Exemple

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.

Sub DeleteShapeNode() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Delete Index:=4 
End Sub

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.

Sub AddCurvedSmoothSegment() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Insert _ 
 Index:=4, SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingSmooth, X1:=210, Y1:=100 
End Sub

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.

Sub SetPointType() 
 With ActiveDocument.Pages(1).Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType Index:=1, EditingType:=msoEditingSmooth 
 End If 
 End With 
End Sub

Méthodes

• Delete
• Insert
• Élément
• SetEditingType
• SetPosition
• SetSegmentType

Propriétés

• Application
• Count
• Parent

Voir aussi

• Référence du modèle objet Publisher

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.