Propriété ShapeRange.TextEffect (Project)

Obtient les propriétés de mise en forme du texte pour la plage de formes. Type de données TextEffectFormat en lecture seule.

Syntaxe

expression. TextEffect

Expression Variable qui représente un objet « ShapeRange ».

Exemple

L’exemple suivant crée une plage de formes qui contient une forme de zone de texte, définit la couleur de premier plan du texte dans le cadre de texte sur rouge, définit la couleur de premier plan de la forme de zone de texte sur un bronzage jaunâtre, puis utilise la propriété TextEffect pour définir les propriétés de police.

S’il y avait plusieurs formes de zone de texte dans la plage de formes, les propriétés de police de chaque zone de texte seraient modifiées en conséquence.

Sub FormatTextBox()
    Dim theReport As Report
    Dim textShape As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Textbox range report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 350, 80)
    textShape.Name = "My text box"
    
    textShape.TextFrame2.TextRange.Text = "This is a test. It's only a test. "
    textShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = &H2020CC
    textShape.Fill.ForeColor.RGB = &H88CCCC
    
    Set sRange = theReport.Shapes.Range(Array("My text box"))
    
    With sRange.TextEffect
        .FontName = "Courier New"
        .FontBold = True
        .FontItalic = True
        .FontSize = 28
    End With
End Sub

Valeur de la propriété

TEXTEFFECTFORMAT

Voir aussi

ShapeRange, objetShape.TextEffect, propriétéTextEffectFormat

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.