Método Shapes.AddLine (Publisher)

Adiciona um novo objeto Shape que representa uma linha à coleção Shapes especificada.

Sintaxe

expressão. AddLine (BeginX, Beginy, EndX, EndY)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
InícioX	Obrigatório	Variant	A coordenada x do ponto inicial da linha.
InícioY	Obrigatório	Variant	A coordenada y do ponto inicial da linha.
EndX	Obrigatório	Variant	A coordenada x do ponto final da linha.
EndY	Obrigatório	Variant	A coordenada y do ponto final da linha.

Valor de retorno

Forma

Comentários

Para os argumentos BeginX, BeginY, EndX e EndY , 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 nova linha à primeira página da publicação ativa.

Dim shpLine As Shape 
 
Set shpLine = ActiveDocument.Pages(1).Shapes.AddLine _ 
 (BeginX:=144, BeginY:=144, _ 
 EndX:=180, EndY:=72) 

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.