Shapes. AddCurve, méthode (Word)Shapes.AddCurve method (Word)

Renvoie un objet Shape qui représente une courbe de Bézier dans une zone de dessin.Returns a Shape object that represents a Bézier curve in a drawing canvas.

SyntaxeSyntax

expression. AddCurve (SafeArrayOfPoints)expression.AddCurve (SafeArrayOfPoints)

expression Obligatoire.expression Required. Variable qui représente un objet Shapes .A variable that represents a Shapes object.

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
SafeArrayOfPointsSafeArrayOfPoints ObligatoireRequired VariantVariant Tableau de paires de coordonnées qui indique les sommets et points de contrôle de la courbe.An array of coordinate pairs that specifies the vertices and control points of the curve. 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.The first point you specify is the starting vertex, and the next two points are control points for the first Bézier segment. Indiquez un sommet et deux points de contrôle pour chaque segment supplémentaire de la courbe.Then, for each additional segment of the curve, you specify a vertex and two control points. Le dernier point spécifié est le sommet d’arrivée de la courbe.The last point you specify is the ending vertex for the curve. Notez que vous devez toujours spécifier 3n + 1 points, où n est le nombre de segments dans la courbe.Note that you must always specify 3n + 1 points, where n is the number of segments in the curve.

Valeur renvoyéeReturn value

ShapeShape

ExempleExample

Cet exemple montre comment ajouter une courbe de Bézier à une nouvelle zone de dessin.This example adds a Bézier curve to a new drawing canvas.

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 aussiSee also

Shapes, Collection d'objetsShapes Collection Object

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.