Compartilhar via

Shapes.AddCurve method (Project) (Método Shapes.AddCurve [Projeto])

  • Artigo

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

Sintaxe

expression. AddCurve (SafeArrayOfPoints)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
SafeArrayOfPoints Obrigatório Variant Uma matriz de pares coordenados que especifica os vértices e pontos de controle da curva.
SafeArrayOfPoints Obrigatório Variant

Valor de retorno

Formato

Comentários

Para o parâmetro SafeArrayOfPoints , o primeiro ponto que especificar é o vértice inicial e os dois pontos seguintes são pontos de controlo 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. Tenha em atenção que tem de especificar sempre 3 n + 1 pontos, em que n é o número de segmentos na curva.

Exemplo

O exemplo seguinte cria uma curva com sete vértices, começando no canto superior esquerdo do relatório. A curva está definida como uma linha verde-amarela com 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 ObjectLine

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.