Método Shapes.AddPolyline (Publisher)

Adiciona um novo objeto Shape que representa uma polilina aberta ou um polígono fechado à coleção Shapes especificada.

Sintaxe

expressão. AddPolyline (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 de coordenadas que especifica os vértices da polilinha ou do polígono.

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").

Para formar um polígono fechado, atribua as mesmas coordenadas ao primeiro e último vértices no desenho de linha múltipla.

Exemplo

O exemplo a seguir adiciona um triângulo à primeira página da publicação ativa. Como o primeiro e último pontos têm as mesmas coordenadas, o polígono é fechado.

Dim shpPolyline As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 25 
arrPoints(1, 2) = 100 
arrPoints(2, 1) = 100 
arrPoints(2, 2) = 150 
arrPoints(3, 1) = 150 
arrPoints(3, 2) = 50 
arrPoints(4, 1) = 25 
arrPoints(4, 2) = 100 
 
Set shpPolyline = ActiveDocument.Pages(1).Shapes.AddPolyline _ 
 (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.