Shapes.AddCurve, méthode (Word)
Renvoie un objet Shape qui représente une courbe de Bézier dans une zone de dessin.
Syntaxe
expression. AddCurve (SafeArrayOfPoints)
expression Obligatoire. Variable qui représente un objet Shapes .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| SafeArrayOfPoints | Obligatoire | Variant | Tableau de paires de coordonnées qui indique les sommets et points de contrôle de la courbe. Le premier point que vous spécifiez est le sommet de départ et les deux points suivants sont les points de contrôle du premier segment de Bézier. Indiquez un sommet et deux points de contrôle pour chaque segment supplémentaire de la courbe. Le dernier point spécifié est le sommet d’arrivée de la courbe. Notez que vous devez toujours spécifier 3n + 1 points, où n est le nombre de segments dans la courbe. |
Valeur renvoyée
Exemple
Cet exemple montre comment ajouter une courbe de Bézier à une nouvelle zone de dessin.
Sub CanvasBezier()
Dim docNew As Document
Dim shpCanvas As Shape
Dim sngArray(1 To 7, 1 To 2) As Single
Set docNew = Documents.Add
'Create a new drawing canvas
Set shpCanvas = docNew.Shapes.AddCanvas(Left:=100, _
Top:=100, Width:=300, Height:=50)
sngArray(1, 1) = 0
sngArray(1, 2) = 0
sngArray(2, 1) = 50
sngArray(2, 2) = 50
sngArray(3, 1) = 100
sngArray(3, 2) = 0
sngArray(4, 1) = 150
sngArray(4, 2) = 50
sngArray(5, 1) = 200
sngArray(5, 2) = 0
sngArray(6, 1) = 250
sngArray(6, 2) = 50
sngArray(7, 1) = 300
sngArray(7, 2) = 0
'Add Bezier curve to drawing canvas
shpCanvas.CanvasItems.AddCurve _
SafeArrayOfPoints:=sngArray
End Sub
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.