Método Shapes.AddCurve (Project)

Adiciona uma curva Bézier a um relatório e retorna um objeto Shape que representa a curva.

Sintaxe

expression. AddCurve(SafeArrayOfPoints)

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

Parâmetros

Valor de retorno

Formato

Comentários

Para o parâmetro SafeArrayOfPoints , o primeiro ponto especificado é o vértice inicial e os próximos dois pontos são pontos de controle para o primeiro segmento Bézier. A seguir, para cada segmento adicional da curva, você deve especificar um vértice e dois pontos de controle. O último ponto que especificar é o vértice final para a curva. Observe que você deve sempre especificar 3 n + 1 pontos, em que n é o número de segmentos na curva.

Exemplo

O exemplo a seguir cria uma curva que tem sete vértices, começando no canto superior esquerdo do relatório. A curva é definida como uma linha verde-amarela que tem dois pontos de largura.

Sub AddBezierCurve()
    Dim shapeReport As Report
    Dim reportName As String
    Dim curveShape As shape
    
    ' Add a report.
    reportName = "Curve report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Dim pts(1 To 7, 1 To 2) As Single
    pts(1, 1) = 0
    pts(1, 2) = 0
    pts(2, 1) = 72
    pts(2, 2) = 72
    pts(3, 1) = 100
    pts(3, 2) = 40
    pts(4, 1) = 20
    pts(4, 2) = 50
    pts(5, 1) = 90
    pts(5, 2) = 120
    pts(6, 1) = 60
    pts(6, 2) = 30
    pts(7, 1) = 150
    pts(7, 2) = 90

    Set curveShape = shapeReport.Shapes.AddCurve(pts)

    With curveShape
        .Line.Weight = 2
        .Line.ForeColor.RGB = &H1FFAA
    End With
End Sub

Confira também

Propriedade Shapes ObjectShape Object

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.