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.