CanvasShapes.BuildFreeform, méthode (Word)
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
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.