Shapes.BuildFreeform method (Project) (Método Shapes.BuildFreeform [Project])

Cria um objeto FreeformBuilder que representa um novo desenho de forma livre. O desenho de forma livre pode ser convertido num objeto Forma .

Sintaxe

expression. BuildFreeform (EditingType,X1,Y1)

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

Parâmetros

Valor de retorno

FreeformBuilder

Comentários

Use o método AddNodes para adicionar segmentos à forma livre. Depois de adicionar pelo menos um segmento à forma livre, pode utilizar o método ConvertToShape para converter o objeto FreeformBuilder num objeto Forma que tenha a descrição geométrica que definiu.

Exemplo

O exemplo seguinte adiciona uma forma livre com cinco vértices ao relatório, converte a forma livre numa forma e, em seguida, altera o estilo de fundo da forma.

Sub AddFreeform2()
    Dim shapeReport As Report
    Dim reportName As String
    Dim freeformBuild As FreeformBuilder
    Dim freeformShape As shape

    reportName = "Freeform2 report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    Set freeformBuild = shapeReport.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    
    With freeformBuild
        .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 450, 300
        .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
        .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
        .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
        .ConvertToShape
    End With
    
    Set freeformShape = shapeReport.Shapes(1)
    
    freeformShape.BackgroundStyle = msoBackgroundStylePreset10
End Sub

Confira também

Objeto de Formade Objeto formas

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.