Compartilhar via

Método Shapes.BuildFreeform (PowerPoint)

  • Artigo

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

Sintaxe

expression. BuildFreeform( _EditingType_, _X1_, _Y1_ )

expression Uma variável que representa um objeto Shapes.

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 horizontal, medida em pontos, do primeiro nó do desenho de forma livre em relação à borda esquerda do slide.
Y1 Obrigatório Single A posição vertical, medida em pontos, do primeiro nó do desenho de forma livre em relação à borda superior do slide.

Valor de retorno

FreeformBuilder

Comentários

Use o método AddNodes para adicionar segmentos à forma livre. Após ter adicionado 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 que você definiu no objeto FreeformBuilder.

Exemplo

Este exemplo adiciona uma forma livre com quatro segmentos a myDocument.

    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.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

Confira também

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.