FreeformBuilder.AddNodes, méthode (Word)

Article
04/07/2023

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

Objet FreeformBuilder

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.

Partager via