Shapes.BuildFreeform, méthode (Excel)

Crée une forme libre. Renvoie un objet FreeformBuilder qui représente la forme libre en cours de génération.

Utilisez la méthode AddNodes pour ajouter des segments à la forme libre. Après avoir ajouté au moins un segment à la forme libre, vous pouvez utiliser la méthode ConvertToShape pour convertir l’objet FreeformBuilder en objet Shape dont la description géométrique est définie dans l’objet FreeformBuilder .

Syntaxe

expression. BuildFreeform (EditingType, X1, Y1)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
EditingType	Obligatoire	MsoEditingType	Propriété d'édition du premier nœud.
X1	Obligatoire	Unique	Position (en points) du premier nœud dans le dessin de forme libre par rapport au coin supérieur gauche du document.
Y1	Obligatoire	Unique	Position (en points) du premier nœud dans la forme libre par rapport au coin supérieur gauche du document.

Valeur renvoyée

FreeformBuilder

Exemple

Cet exemple montre comment ajouter une forme libre à cinq sommets dans 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.