FreeformBuilder.AddNodes, méthode (Excel)

Article
04/07/2023

Ajoute un point dans la forme actuelle, puis dessine une ligne du nœud actuel vers le dernier nœud qui a été ajouté.

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.
EditingType	Obligatoire	MsoEditingType	Indique le type de modification prévu pour le sommet.
X1	Obligatoire	Unique	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 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 (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 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 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 (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 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 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 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 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 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 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 a la valeur 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.

Partager via