Método Shapes. AddCurve (Word)Shapes.AddCurve method (Word)
Retorna um objeto Shape que representa uma curva Bézier em uma tela de desenho.Returns a Shape object that represents a Bézier curve in a drawing canvas.
SintaxeSyntax
expressão. AddCurve (SafeArrayOfPoints)expression.AddCurve (SafeArrayOfPoints)
expressão Obrigatório.expression Required. Uma variável que representa um objeto Shapes.A variable that represents a Shapes object.
ParâmetrosParameters
| NomeName | Obrigatório/OpcionalRequired/Optional | Tipo de dadosData type | DescriçãoDescription |
|---|---|---|---|
| SafeArrayOfPointsSafeArrayOfPoints | ObrigatórioRequired | VariantVariant | Uma matriz de pares coordenados que especifica os vértices e pontos de controle da curva.An array of coordinate pairs that specifies the vertices and control points of the curve. O primeiro ponto a ser especificado é o vértice inicial, e os próximos dois pontos são pontos de controle para o primeiro segmento 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. A seguir, para cada segmento adicional da curva, você deve especificar um vértice e dois pontos de controle.Then, for each additional segment of the curve, you specify a vertex and two control points. O último ponto que especificar é o vértice final para a curva.The last point you specify is the ending vertex for the curve. Observe que você deverá especificar sempre 3n + 1 pontos, onde n é o número de segmentos da curva.Note that you must always specify 3n + 1 points, where n is the number of segments in the curve. |
Valor de retornoReturn value
ExemploExample
Este exemplo adiciona uma curva de Bézier a uma nova tela de desenho.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
Confira tambémSee also
Objeto da coleção ShapesShapes Collection Object
Suporte e comentáriosSupport and feedback
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.