Método FreeformBuilder.AddNodes (Publisher)

Insere um novo segmento no final da forma livre que está sendo criado e adiciona os nós que definem o segmento.

Use esse método quantas vezes quiser adicionar nós à forma livre que você está criando. Ao concluir a adição de nós, use o método ConvertToShape para criar a forma livre que você acabou de definir.

Sintaxe

expressão. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

Expressão Uma variável que representa um objeto FreeformBuilder .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
SegmentType	Obrigatório	MsoSegmentType	O tipo de segmento a ser adicionado. Pode ser msoSegmentCurve ou msoSegmentLine.
EditingType	Obrigatório	MsoEditingType	O tipo de edição do novo nó. Pode ser msoEditingAuto ou msoEditingCorner. Se SegmentType for msoSegmentLine, EditingType deverá ser msoEditingAuto; caso contrário, ocorrerá um erro.
X1	Obrigatório	Variantes	Se o EditingType do novo segmento for msoEditingAuto, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o ponto de extremidade do novo segmento. Se o EditingType do novo nó for msoEditingCorner, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o primeiro ponto de controle do novo segmento.
Y1	Obrigatório	Variantes	Se o EditingType do novo segmento for msoEditingAuto, esse argumento especificará a distância vertical do canto superior esquerdo da página até o ponto de extremidade do novo segmento. Se o EditingType do novo nó for msoEditingCorner, esse argumento especificará a distância vertical do canto superior esquerdo da página até o primeiro ponto de controle do novo segmento.
X2	Opcional	Variantes	Se o EditingType do novo segmento for msoEditingCorner, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.
Y2	Opcional	Variantes	Se o EditingType do novo segmento for msoEditingCorner, esse argumento especificará a distância vertical do canto superior esquerdo da página até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.
X3	Opcional	Variantes	Se o EditingType do novo segmento for msoEditingCorner, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o ponto de extremidade do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.
Y3	Opcional	Variantes	Se o EditingType do novo segmento for msoEditingAuto, esse argumento especificará a distância vertical do canto superior esquerdo da página até o ponto de extremidade do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.

Comentários

Para os argumentos X1, Y1, X2, Y2, X3 e Y3 , 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 adicionar nós a uma forma livre depois de criada, use o método Insert da coleção ShapeNodes .

Exemplo

Este exemplo adiciona uma forma livre com quatro vértices à primeira página da publicação ativa.

' Add a new freeform object. 
With ActiveDocument.Pages(1).Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
End With 

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.