Método Shapes.AddCurve (proyecto)

Agrega una curva de Bézier a un informe y devuelve un objeto Shape que representa la curva.

Sintaxis

expresión. AddCurve (SafeArrayOfPoints)

expresión Variable que representa un objeto Shapes.

Parameters

Valor devuelto

Shape

Comentarios

Para el parámetro SafeArrayOfPoints , el primer punto que especifique es el vértice inicial y los dos puntos siguientes son puntos de control para el primer segmento de Bézier. A continuación, por cada segmento adicional de la curva, define un vértice y dos puntos de control. El último punto que especifica es el vértice final de la curva. Tenga en cuenta que siempre debe especificar 3 n + 1 puntos, donde n es el número de segmentos de la curva.

Ejemplo

El ejemplo siguiente crea una curva que tiene siete vértices y comienza en la esquina superior izquierda del informe. La curva se establece en una línea amarillo-verde de dos puntos de ancho.

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

Vea también

Formas ObjetoForma ObjetoLínea Propiedad

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.