Shapes.AddCurve, méthode (Project)

Ajoute une courbe de Bézier à un rapport et renvoie un objet Shape qui représente la courbe.

Syntaxe

expression. AddCurve(SafeArrayOfPoints)

expression Variable qui représente un objet Shapes.

Paramètres

Valeur renvoyée

Forme

Remarques

Pour le paramètre SafeArrayOfPoints , le premier point que vous spécifiez est le sommet de départ, et les deux points suivants sont des points de contrôle pour le premier segment de Bézier. Indiquez un sommet et deux points de contrôle pour chaque segment supplémentaire de la courbe. Le dernier point spécifié est le sommet d’arrivée de la courbe. Notez que vous devez toujours spécifier 3 n + 1 points, où n est le nombre de segments dans la courbe.

Exemple

L’exemple suivant crée une courbe qui comporte sept sommets, en commençant dans le coin supérieur gauche du rapport. La courbe est définie sur une ligne jaune-vert de deux points de large.

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

Voir aussi

Shapes, objetShape ObjectLine, propriété

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.