Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Ajoute un point dans la forme actuelle, puis trace une ligne du nœud actuel au dernier nœud ajouté.
Syntaxe
expression. AddNodes (SegmentType, EditingType, X1, Y1, X2, X3, Y3)
expression Variable qui représente un objet FreeformBuilder .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| SegmentType | Obligatoire | MsoSegmentType | Type de segment à ajouter. |
| EditingType | Obligatoire | MsoEditingType | Indique le type de modification prévu pour le sommet. |
| X1 | Obligatoire | Unique | Si le type d’édition du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le point de terminaison du nouveau segment. Si la valeur EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le premier point de contrôle du nouveau segment. |
| Y1 | Obligatoire | Unique | Si le type d’édition du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le point de terminaison du nouveau segment. Si la valeur EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le premier point de contrôle du nouveau segment. |
| X2 | Facultatif | Variant | Si le EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document 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 EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document 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 EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document 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. |
| Y3 | Facultatif | Variant | Si le EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document 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. |
Remarques
MsoEditingType ne peut pas être msoEditingSmooth ou msoEditingSymmetric. Si SegmentType est msoSegmentLine, EditingType doit être msoEditingAuto.
Exemple
Cet exemple montre comment ajouter une forme libre à quatre segments à myDocument.
Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.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.