Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Font2.Fill, propriété (Office)Font2.Fill Property (Office)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
2 Collaborateurs

Extrait les propriétés de mise en forme pour la police du texte spécifié. En lecture seuleGets the formatting properties for the font of the specified text. Read-only

SyntaxeSyntax

expression. Remplirexpression. Fill

expression Expression qui renvoie un objet Font2 .expression An expression that returns a Font2 object.

ExempleExample

Le code suivant suppose qu’une forme a été insérée dans feuil1. Le code insère le texte dans la forme et change la couleur de premier plan de la police en gras et en rouge. Ensuite, il ajoute un retour chariot après le second mot créant ainsi un second paragraphe et aligne le paragraphe à droite.The following code assumes that a shape has been inserted into sheet1. The code inserts text into the shape and changes the fore color of the font to bold and red. It then adds a carriage return after the second word creating a second paragraph and aligns the paragraph to the right.

Sub TestShapeAttributes() 
 Dim shp As Excel.Shape 
 Dim rng As Office.TextRange2 
 Dim rngWord As Office.TextRange2 
 Dim rngRun As Office.TextRange2 
 Dim rngPara As Office.TextRange2 
 Dim fnt As Office.Font2 

 Set shp = ActiveSheet.Shapes(1) 
 Set rng = shp.TextFrame2.TextRange 
 rng.Text = "This is test text." 

 Set rngWord = rng.Words(2) 
 Set fnt = rngWord.Font 
 With fnt 
 .Fill.ForeColor.RGB = RGB(255, 0, 0) 
 .Bold = msoTrue 
 End With 

 Set rngRun = rng.Runs(3) 
 rngRun.InsertBefore vbCr 

 Set rngPara = rng.Paragraphs(2) 
 rngPara.ParagraphFormat.Alignment = msoAlignRight 
End Sub 

Voir aussiSee also

ConceptsConcepts

Objet Font2Font2 Object

Autres ressourcesOther resources

Membres de l’objet Font2Font2 Object Members

© 2018 Microsoft