Método Shapes.BuildFreeform (Publisher)

Artigo
04/07/2023

Cria um objeto de forma livre. Retorna um objeto FreeformBuilder que representa a forma livre durante sua criação.

Sintaxe

expressão. BuildFreeform (EditingType, X1, Y1)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
EditingType	Obrigatório	MsoEditingType	Especifica o tipo de edição do primeiro nó. Pode ser uma das constantes MsoEditingType declaradas na biblioteca de tipos do Microsoft Office.
X1	Obrigatório	Variant	A posição horizontal do primeiro nó do desenho de forma livre em relação ao canto superior esquerdo da página.
Y1	Obrigatório	Variant	A posição vertical do primeiro nó do desenho de forma livre em relação ao canto superior esquerdo da página.

Valor de retorno

FreeformBuilder

Exemplo

Para os argumentos X1 e Y1 , 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").

Use o método AddNodes para adicionar segmentos à forma livre. Depois de adicionar pelo menos um segmento ao freeform, você pode usar o método ConvertToShape para converter o objeto FreeformBuilder em um objeto Shape que tem a descrição geométrica que você definiu no objeto FreeformBuilder .

' Add a new freeform object. 
With ActiveDocument.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.

Compartilhar via