Compartilhar via

Método FreeformBuilder.ConvertToShape (Publisher)

  • Artigo

Cria uma forma que tem as características geométricas do objeto FreeformBuilder especificado. Retorna um objeto Shape que representa a nova forma.

Sintaxe

expressão. ConvertToShape

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

Valor de retorno

Forma

Comentários

Você deve aplicar o método AddNodes a um objeto FreeformBuilder pelo menos uma vez antes de usar o método ConvertToShape ou ocorrer um erro.

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.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.