Compartilhar via

Shapes.AddPolyline method (Publisher) (Método Shapes.AddPolyline [Publisher])

Adiciona um novo objeto Forma que representa um políline aberto ou um polígono fechado à coleção Formas 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 de matriz em SafeArrayOfPoints, os valores numéricos são avaliados em pontos; As cadeias de carateres podem estar em todas as unidades suportadas pelo Microsoft Publisher (por exemplo, "2,5 pol").

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.

  • Last updated on