Objet Font (Publisher)
Contient les attributs de police d'un objet (nom, taille, couleur, etc.).
Utilisez la propriété TextStyle.Font pour renvoyer l’objet Font .
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
- AllCaps
- Application
- AttachedToText
- AutomaticPairKerningThreshold
- Bold
- BoldBi
- ContextualAlternates
- DiacriticColor
- ExpandUsingKashida
- Fill
- Glow
- Italic
- ItalicBi
- Kerning
- LIGATURE
- Line
- Nom
- NumberStyle
- Parent
- Position
- Reflection
- Montée en charge
- Size
- SizeBi
- SmallCaps
- StrikeThrough
- StylisticAlternates
- StylisticSets
- SubScript
- SuperScript
- Paraphe
- TextShadow
- ThreeD
- Suivi
- TrackingPreset
- Underline
- UseDiacriticColor
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.