Nota
O acesso a esta página requer autorização. Pode tentar iniciar sessão ou alterar os diretórios.
O acesso a esta página requer autorização. Pode tentar alterar os diretórios.
Retorna um objeto Shape que representa uma curva de Bézier em uma planilha.
Sintaxe
mais simples. 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 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 você especifica é 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 de Bézier de dois segmentos a 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.