FreeformBuilder.AddNodes, méthode (Publisher)

  • Article

Insère un nouveau segment à la fin de la forme libre en cours de création et ajoute les nœuds qui définissent ce segment.

Utilisez cette méthode autant de fois que vous le souhaitez pour ajouter des nœuds à la forme libre que vous créez. Lorsque vous avez terminé d’ajouter des nœuds, utilisez la méthode ConvertToShape pour créer la forme libre que vous venez de définir.

Syntaxe

expression. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

Expression Variable qui représente un objet FreeformBuilder .

Parameters

Nom Requis/Facultatif Type de données Description
SegmentType Obligatoire MsoSegmentType Type de segment à ajouter. Peut être msoSegmentCurve ou msoSegmentLine.
EditingType Obligatoire MsoEditingType Type d’édition du nouveau nœud. Peut être msoEditingAuto ou msoEditingCorner.

Si SegmentType a la valeur msoSegmentLine, EditingType doit être msoEditingAuto ; sinon, une erreur se produit.
X1 Obligatoire Variant Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment.

Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le premier point de contrôle du nouveau segment.
Y1 Obligatoire Variant Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment.

Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le premier point de contrôle du nouveau segment.
X2 Facultatif Variant Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le deuxième point de contrôle du nouveau segment.

Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
Y2 Facultatif Variant Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le deuxième point de contrôle du nouveau segment.

Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
X3 Facultatif Variant Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment.

Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
Y3 Facultatif Variant Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment.

Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument.

Remarques

Pour les arguments X1, Y1, X2, Y2, X3 et Y3 , les valeurs numériques sont évaluées en points ; les chaînes peuvent être dans n’importe quelle unité prise en charge par Microsoft Publisher (par exemple, « 2,5 pouces »).

Pour ajouter des nœuds à une forme libre après sa création, utilisez la méthode Insert de la collection ShapeNodes .

Exemple

Cet exemple ajoute une forme libre possédant quatre sommets à la première page de la composition active.

' Add a new freeform object. 
With ActiveDocument.Pages(1).Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
End With

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.