Método Shapes.AddCurve (Publisher)

Adiciona um novo objeto Shape que representa uma curva Bézier à coleção Shapes especificada.

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. Para cada segmento adicional da curva, você especifica 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

Forma

Comentários

Para os elementos da matriz em SafeArrayOfPoints, os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").

Exemplo

O exemplo a seguir adiciona uma curva de Bézier de dois segmentos à primeira página da publicação ativa.

Dim shpCurve As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 0 
arrPoints(1, 2) = 0 
arrPoints(2, 1) = 72 
arrPoints(2, 2) = 72 
arrPoints(3, 1) = 144 
arrPoints(3, 2) = 36 
arrPoints(4, 1) = 216 
arrPoints(4, 2) = 108 
 
Set shpCurve = ActiveDocument.Pages(1).Shapes.AddCurve _ 
 (SafeArrayOfPoints:=arrPoints)

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.