Shapes.BuildFreeform, méthode (Project)

Article
10/25/2024

Crée un objet FreeformBuilder qui représente un nouveau dessin de forme libre. Le dessin de forme libre peut être converti en objet Shape .

Syntaxe

expression. BuildFreeform(EditingType,X1,Y1)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
EditingType	Obligatoire	MsoEditingType	Propriété d'édition du premier nœud.
X1	Obligatoire	Unique	Position (en points) du premier nœud dans le dessin de forme libre, par rapport au bord gauche du rapport.
Y1	Obligatoire	Unique	Position (en points) du premier nœud dans le dessin de forme libre, par rapport au bord supérieur du rapport.
EditingType	Obligatoire	MSOEDITINGTYPE
X1	Obligatoire	FLOAT
Y1	Obligatoire	FLOAT
Nom	Requis/Facultatif	Type de données	Description

Valeur renvoyée

FreeformBuilder

Remarques

Utilisez la méthode AddNodes pour ajouter des segments à la forme libre. Après avoir ajouté au moins un segment à la forme libre, vous pouvez utiliser la méthode ConvertToShape pour convertir l’objet FreeformBuilder en objet Shape dont la description géométrique est définie.

Exemple

L’exemple suivant ajoute une forme libre avec cinq sommets au rapport, convertit la forme libre en forme, puis modifie le style d’arrière-plan de la forme.

Sub AddFreeform2()
    Dim shapeReport As Report
    Dim reportName As String
    Dim freeformBuild As FreeformBuilder
    Dim freeformShape As shape

    reportName = "Freeform2 report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    Set freeformBuild = shapeReport.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    
    With freeformBuild
        .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 450, 300
        .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
        .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
        .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
        .ConvertToShape
    End With
    
    Set freeformShape = shapeReport.Shapes(1)
    
    freeformShape.BackgroundStyle = msoBackgroundStylePreset10
End Sub

Voir aussi

Shapes, objet Shape, objet

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.

Partager via