CanvasShapes.BuildFreeform, méthode (Word)

Article
04/07/2023

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

Syntaxe

expression. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )

expression Obligatoire. Variable qui représente un objet « CanvasShapes ».

Parameters

Nom	Requis/Facultatif	Type de données	Description
EditingType	Obligatoire	MsoEditingType	Le paramètre TypeModification peut être msoEditingAuto ou msoEditingCorner, mais ne peut pas être msoEditingSmooth, ni msoEditingSymmetric.
X1	Obligatoire	Simple	Position (en points) du premier nœud dans la forme libre par rapport au bord gauche du document.
Y1	Obligatoire	Unique	Position (en points) du premier nœud dans la forme libre par rapport au bord supérieur du document.

Remarques

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 un objet Shape ayant la description géométrique définie dans l’objet FreeformBuilder.

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

CanvasShapes, Collection

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.

Share via