FreeformBuilder.AddNodes, méthode (Word)
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.
Syntaxe
expression. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression Obligatoire. Variable qui représente un objet « FreeformBuilder ».
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| SegmentType | Obligatoire | MsoSegmentType | Type de segment à ajouter. |
| EditingType | Obligatoire | MsoEditingType | La propriété d'édition du sommet. Si l'argument SegmentType est msoSegmentLine, EditingType doit être msoEditingAuto. |
| X1 | Obligatoire | Single | Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre 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 pour le nouveau segment. |
| Y1 | Obligatoire | Single | Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document et le premier point de contrôle pour le nouveau segment. |
| X2 | Facultatif | Single | Si le paramètre 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 pour le nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| Y2 | Facultatif | Single | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document et le deuxième point de contrôle pour le nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| X3 | Facultatif | Single | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| Y3 | Facultatif | Single | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
Remarques
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é l'ajout de nœuds, utilisez la méthode ConvertToShape pour créer la forme libre que vous venez de définir. Pour ajouter des nœuds à une forme libre après que qu'elle a été créée, utilisez la méthode Insert de la collection ShapeNodes.
Exemple
Cet exemple montre comment ajouter au document actif une forme libre à cinq sommets.
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.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
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.