Objeto FreeformBuilder (Publisher)

Representa a geometria de uma forma livre enquanto a forma está sendo construída.

Comentários

Use o BuildFreeform método das formas coleção, para retornar um objeto FreeformBuilder.

Use o método AddNodes para adicionar nós à forma livre. Use o método ConvertToShape para criar a forma definida no objeto FreeformBuilder e adicioná-la à coleção Shapes.

Exemplo

O exemplo a seguir adiciona uma forma livre com quatro segmentos ao documento ativo.

Sub CreateNewFreeFormShape() 
 With ActiveDocument.Pages(1).Shapes.BuildFreeform( _ 
 EditingType:=msoEditingCorner, X1:=360, Y1:=200) 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, X1:=380, Y1:=230, _ 
 X2:=400, Y2:=250, X3:=450, Y3:=300 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=480, Y1:=200 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=480, Y1:=400 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=360, Y1:=200 
 .ConvertToShape 
 End With 
End Sub

Métodos

• AddNodes
• ConvertToShape

Propriedades

• Application
• Parent

Confira também

• Referência de modelo de objeto publisher

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.