Shapes.AddTextbox, méthode (Project)

Ajoute une zone de texte au rapport et renvoie un objet Shape qui représente la nouvelle zone de texte.

Syntaxe

expression. AddTextbox (Orientation,Gauche,Haut,Largeur,Hauteur)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Orientation	Obligatoire	MsoTextOrientation	Orientation de la zone de texte. Certaines constantes peuvent ne pas être disponibles, en fonction de la langue installée.
Left	Obligatoire	Unique	Position, en points, du bord gauche de la zone de texte.
Top	Obligatoire	Unique	Position, en points, du bord supérieur de la zone de texte.
Width	Obligatoire	Unique	Largeur, en points, de la zone de texte.
Height	Obligatoire	Unique	Hauteur, en points, de la zone de texte.
Orientation	Obligatoire	MSOTEXTORIENTATION
Left	Obligatoire	FLOAT
Top	Obligatoire	FLOAT
Width	Obligatoire	FLOAT
Height	Obligatoire	FLOAT
Nom	Requis/Facultatif	Type de données	Description

Valeur renvoyée

Forme

Exemple

L’exemple suivant ajoute une zone de texte avec un arrière-plan jaune clair et une bordure visible. La chaîne de texte est mise en forme et manipulée à l’aide des membres de l’objet TextFrame2 .

Sub AddTextBoxShape()
    Dim theReport As Report
    Dim textShape As shape
    Dim reportName As String
    
    reportName = "Textbox report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 300, 100)
    
    textShape.TextFrame2.TextRange.Characters.Text = "This is a test. It's only a test. " _
        & "If it had been real information, there would be some real text here."
    textShape.TextFrame2.TextRange.Characters(1, 15).ParagraphFormat.FirstLineIndent = 10
    textShape.TextFrame2.TextRange.Characters(16).InsertBefore vbCrLf
    
    ' Set the font for the first 15 characters to dark blue bold.
    With textShape.TextFrame2.TextRange.Characters(1, 15).Font
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent5
        .Fill.Solid
        .Fill.Visible = msoTrue
        .Size = 14
        .Bold = msoTrue
    End With

    With textShape.Fill
        .ForeColor.RGB = RGB(255, 255, 160)
        .Visible = msoTrue
    End With
   
    With textShape.Line
        .Weight = 1
        .Visible = msoTrue
    End With
End Sub

Voir aussi

Shapes ObjectShape ObjectTextFrame2 PropertyMsoTextOrientation, énumération (Office)

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.