Método Shapes.BuildFreeform (Excel)

Artigo
04/07/2023

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

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

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	A propriedade de edição do primeiro nó.
X1	Obrigatório	Single	A posição (em pontos) do primeiro nó no desenho de forma livre em relação ao canto superior esquerdo do documento.
Y1	Obrigatório	Single	A posição (em pontos) do primeiro nó do desenho de forma livre em relação ao canto superior esquerdo do documento.

Valor de retorno

FreeformBuilder

Exemplo

Este exemplo adiciona a myDocument uma forma livre com cinco vértices.

Set myDocument = Worksheets(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
    .AddNodes msoSegmentCurve, msoEditingCorner, _ 
        380, 230, 400, 250, 450, 300 
    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 
    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200 
    .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