Método Shapes.AddCurve (Excel)

Retorna um objeto Shape que representa uma curva Bézier em uma planilha.

Sintaxe

expressão. AddCurve (SafeArrayOfPoints)

expressão Uma variável que representa um objeto Formas.

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 que você especifica é o vértice inicial e os próximos dois pontos são pontos de controle para o primeiro segmento Bézier. A seguir, para cada segmento adicional da curva, você deve especificar um vértice e dois pontos de controle. O último ponto especificado é o vértice final da curva. Observe que você deverá especificar sempre 3n + 1 pontos, onde n é o número de segmentos da curva.

Valor de retorno

Formato

Exemplo

O exemplo a seguir adiciona uma curva Bézier de dois segmentos ao myDocument.

Dim pts(1 To 7, 1 To 2) As Single 
pts(1, 1) = 0 
pts(1, 2) = 0 
pts(2, 1) = 72 
pts(2, 2) = 72 
pts(3, 1) = 100 
pts(3, 2) = 40 
pts(4, 1) = 20 
pts(4, 2) = 50 
pts(5, 1) = 90 
pts(5, 2) = 120 
pts(6, 1) = 60 
pts(6, 2) = 30 
pts(7, 1) = 150 
pts(7, 2) = 90 
Set myDocument = Worksheets(1) 
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts

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.