Método Shapes.AddCurve (Word)

  • Artigo

Retorna um objeto Shape que representa uma curva Bézier em uma tela de desenho.

Sintaxe

expressão. AddCurve (SafeArrayOfPoints)

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
SafeArrayOfPoints Obrigatório Variant Uma matriz de pares coordenados que especifica os vértices e pontos de controle da curva. 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. A seguir, para cada segmento adicional da curva, você deve especificar um vértice e dois pontos de controle. O último ponto que especificar é o vértice final para a curva. Observe que você deverá especificar sempre 3n + 1 pontos, onde n é o número de segmentos da curva.

Valor de retorno

Shape

Exemplo

Este exemplo adiciona uma curva de Bézier a uma nova tela de desenho.

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ém

Objeto da coleção Shapes

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? 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.