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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour