Classe Font (PowerPoint VBA)

La classe Font représente la mise en forme de caractères appliquée au texte ou aux puces. L’objet font est un membre de la collection Fonts . La collection Fonts contient toutes les polices utilisées dans une présentation.

Set

Pour utiliser une variable de classe Font, elle doit d'abord être instanciée, par exemple

Dim fnt as Font
Set fnt = ActivePresentation.Fonts(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Font : BulletFormat.Font, Fonts.Item, TextRange.Font, TextStyleLevel.Font et Presentation.Fonts

Méthodes

Autre Méthodes

Fonts.Replace - Remplace une police dans la Collection Fonts.

Dim strOriginal As String: strOriginal = 
Dim strReplacement As String: strReplacement = 
ActivePresentation.Fonts.Replace Original:=strOriginal, Replacement:=strReplacement

Propriétés

AutoRotateNumbers Renvoie ou définit la compression latérale. Lecture-écriture.

ActivePresentation.Fonts(1).AutoRotateNumbers = msoTrue

BaselineOffset Renvoie ou définit le décalage de ligne de base des caractères spécifiés mis en exposant ou en indice. Lecture-écriture.

ActivePresentation.Fonts(1).BaselineOffset = -0.2

Bold Détermine si la mise en forme du caractère est en gras. Lecture-écriture.

ActivePresentation.Fonts(1).Bold = msoTrue

Color Cette propriété renvoie ou définit la couleur de l’objet font actuel. Lecture-écriture.

Dim cftColor As ColorFormat
Set cftColor = ActivePresentation.Fonts(1).Color

Embeddable Détermine si la police spécifiée peut être incorporée dans la présentation. En lecture seule.

Dim mtsEmbeddable As Office.MsoTriState
mtsEmbeddable = ActivePresentation.Fonts(1).Embeddable

Embedded Détermine si la police spécifiée est incorporée dans la présentation. En lecture seule.

Dim mtsEmbedded As Office.MsoTriState
mtsEmbedded = ActivePresentation.Fonts(1).Embedded

Emboss Détermine si le format de caractère est en relief. Lecture-écriture.

ActivePresentation.Fonts(1).Emboss = msoTrue

Italic True si la police ou la plage est en italique. Long (en lecture/écriture).

ActivePresentation.Fonts(1).Italic = msoTrue

Name Renvoie ou définit le nom de l’objet spécifié. Lecture-écriture.

ActivePresentation.Fonts(1).Name =

NameAscii Renvoie ou définit la police utilisée pour les caractères ASCII (dont le numéro de caractère est compris entre 0 et 127). Lecture-écriture.

ActivePresentation.Fonts(1).NameAscii = "Century"

NameComplexScript Renvoie ou définit le nom de police de script complexe. Utilisée pour des textes multilingues. Lecture-écriture.

ActivePresentation.Fonts(1).NameComplexScript = "Times New Roman"

NameFarEast Renvoie ou définit le nom de la police de caractères asiatiques. Lecture-écriture.

Dim strNameFarEast As String
ActivePresentation.Fonts(1).NameFarEast

NameOther Renvoie ou définit la police utilisée pour les caractères dont les numéros de jeu de caractères sont supérieurs à 127. Lecture-écriture.

ActivePresentation.Fonts(1).NameOther = "Tahoma"

Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActivePresentation.Fonts(1).Parent

Shadow Détermine si le texte spécifié possède une ombre. Lecture-écriture.

ActivePresentation.Fonts(1).Shadow = msoTrue

Size Renvoie ou définit la taille des caractères, en points. Lecture-écriture.

ActivePresentation.Fonts(1).Size = 24

Subscript Détermine si le terme spécifié est un indice. Lecture-écriture.

ActivePresentation.Fonts(1).Subscript = msoTrue

Superscript Détermine si le terme spécifié est un exposant. Lecture-écriture.

ActivePresentation.Fonts(1).Superscript = msoTrue

Underline Détermine si le texte spécifié (pour l’objet font ) ou le style de police (pour l’objet FontInfo ) est souligné. Lecture-écriture.

ActivePresentation.Fonts(1).Underline = msoTrue

Fonts.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActivePresentation.Fonts.Count

Fonts.Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActivePresentation.Fonts.Parent