Shapes.BuildFreeform, méthode (Word)
Crée une forme libre.
Syntaxe
expression. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )
expression Obligatoire. Variable qui représente un objet Shapes .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| EditingType | Obligatoire | MsoEditingType | Propriété d'édition du premier nœud. |
| X1 | Obligatoire | Simple | Position (en points) du premier nœud dans la forme libre par rapport au bord gauche du document. |
| Y1 | Obligatoire | Simple | Position (en points) du premier nœud dans la forme libre par rapport au bord supérieur du document. |
Valeur renvoyée
Remarques
Utilisez la méthode AddNodes pour ajouter des segments à la forme libre. Une fois que vous avez ajouté au moins un segment à la forme libre, vous pouvez utiliser la méthode ConvertToShape pour convertir l'objet FreeformBuilder en un objet Shape qui possède la description géométrique que vous avez 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.