Método Shapes.AddCurve (Project)

Agrega una curva 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

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SafeArrayOfPoints	Obligatorio	Variant	Matriz de pares de coordenadas que especifica los vértices y los puntos de control de la curva.
SafeArrayOfPoints	Obligatorio	Variant

Valor devuelto

Shape

Observaciones

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 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

En el ejemplo siguiente se crea una curva que tiene siete vértices, empezando en la esquina superior izquierda del informe. La curva se establece en una línea verde-amarilla que tiene 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

Shapes (propiedad de línea de objeto de forma de objeto)

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.