Lire en anglais

Partager via


Objet Font (Publisher)

Contient les attributs de police d'un objet (nom, taille, couleur, etc.).

Remarques

Utilisez la propriété TextStyle.Font pour renvoyer l’objet Font .

Exemple

L'instruction suivante met en gras la sélection.

Sub BoldText() 
 Selection.TextRange.Font.Bold = True 
End Sub

L'exemple suivant applique au premier paragraphe de la composition active la mise en forme Arial, 24 points, italique.

Sub FormatText() 
 Dim txtRange As TextRange 
 Set txtRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 With txtRange.Font 
 .Bold = True 
 .Name = "Arial" 
 .Size = 24 
 End With 
End Sub

L'exemple suivant applique au style Titre 2 de la composition active la mise en forme Arial, gras.

Sub FormatStyle() 
 With ActiveDocument.TextStyles("Normal").Font 
 .Name = "Tahoma" 
 .Italic = True 
 .Size = 15 
 End With 
End Sub

Vous pouvez également dupliquer un objet Font à l’aide de la propriété TextRange.Duplicate . L'exemple suivant crée un nouveau style de caractère par le caractère de mise en forme de la sélection en plus de la mise en forme en italique. La mise en forme de la sélection n’est pas modifiée.

Sub DuplicateFont() 
 Dim fntNew As Font 
 Set fntNew = Selection.TextRange.Font.Duplicate 
 fntNew.Italic = True 
 ActiveDocument.TextStyles.Add(StyleName:="Italics").Font = fntNew 
End Sub

Méthodes

Propriétés

Voir aussi

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.