Classe ParagraphFormat (PowerPoint VBA)

La classe ParagraphFormat représente la mise en forme des paragraphes d’une portion de texte.

Set

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

Dim pft as ParagraphFormat
Set pft = ActiveWindow.Selection.TextRange.ParagraphFormat

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ParagraphFormat : TextRange.ParagraphFormat et TextStyleLevel.ParagraphFormat

Propriétés

Alignment Renvoie ou définit l’alignement de chaque paragraphe dans le format de paragraphe spécifié. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.Alignment = ppAlignCenter

BaseLineAlignment Renvoie ou définit l’alignement de la ligne de base pour le paragraphe spécifié. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.BaseLineAlignment = ppBaselineAlignAuto

Bullet Renvoie un objet BulletFormat qui représente la mise en forme des puces pour le format de paragraphe spécifié. En lecture seule.

Dim bftBullet As BulletFormat
Set bftBullet = ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet

FarEastLineBreakControl Renvoie ou définit l’option de commande des sauts de ligne si une langue asiatique est spécifiée. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.FarEastLineBreakControl = msoTrue

HangingPunctuation Renvoie ou définit l’option de ponctuation en retrait si vous avez spécifié un paramétrage de langue asiatique. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.HangingPunctuation = msoTrue

LineRuleAfter Détermine si un nombre spécifique de points ou de lignes est défini comme interligne après la dernière ligne de chaque paragraphe. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.LineRuleAfter = msoTrue

LineRuleBefore Détermine si un nombre spécifique de points ou de lignes est défini comme interligne avant la première ligne de chaque paragraphe. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.LineRuleBefore = msoTrue

LineRuleWithin Détermine si un nombre spécifique de points ou de lignes est défini comme valeur de l’interligne entre les lignes de base. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.LineRuleWithin = msoTrue

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

Dim objParent As Object
Set objParent = ActiveWindow.Selection.TextRange.ParagraphFormat.Parent

SpaceAfter Renvoie ou définit, en points ou en lignes, l’espacement suivant la dernière ligne de chaque paragraphe du texte spécifié. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.SpaceAfter = 6

SpaceBefore Renvoie ou définit l’espace, mesuré en points, précédant la première ligne de chaque paragraphe du texte spécifié. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.SpaceBefore = 3

SpaceWithin Renvoie ou définit l’espacement, exprimé en points ou en lignes, entre les lignes de base du texte sélectionné. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.SpaceWithin = 2

TextDirection Renvoie ou définit le sens du texte du paragraphe sélectionné. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.TextDirection = ppDirectionLeftToRight

WordWrap Utilisé uniquement avec les caractères Kanji. Lecture-écriture.

ActiveWindow.Selection.TextRange.ParagraphFormat.WordWrap = msoTrue