Classe TextStyle (PowerPoint VBA)

La classe TextStyle représente l’un des trois styles de texte suivants : texte de titre, corps de texte ou texte par défaut. Chaque style de texte contient un objet TextFrame qui décrit la façon dont le texte est placé dans le cadre de texte, un objet Ruler contenant des taquets de tabulation et les informations de mise en forme de retrait du plan, et une collection TextStyleLevels qui contient les informations de mise en forme du texte. L'objet TextStyle est un membre de la TextStyles collection.

Set

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

Dim tse as TextStyle
Set tse = ActivePresentation.SlideMaster.TextStyles(Type:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TextStyle : TextStyles.Item et Master.TextStyles

Levels

Renvoie un objet TextStyleLevels qui représente la mise en forme du texte du plan. En lecture seule.

Dim tslsLevels As TextStyleLevels
Set tslsLevels = ActivePresentation.SlideMaster.TextStyles(1).Levels

Parent

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

Ruler

Renvoie un objet Ruler qui représente la règle du texte spécifié. En lecture seule.

Dim rlrRuler As Ruler
Set rlrRuler = ActiveWindow.Selection.SlideRange(1).TextStyles(1).Ruler

TextFrame

Renvoie un objet TextFrame qui contient les propriétés d’alignement et d’ancrage de la forme spécifiée ou du style de texte du masque.

Utilisez la propriété TextRange de l’objet TextFrame pour renvoyer le texte dans le cadre de texte. Utilisez la propriété HasTextFrame pour déterminer si une forme contient un cadre de texte avant d’appliquer la propriété TextFrame .

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActiveWindow.Selection.SlideRange(1).TextStyles(1).TextFrame

TextStyles.Count

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

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TextStyles.Count

TextStyles.Item

Cette méthode renvoie un seul style de texte à partir de la collection TextStyles spécifiée.

La méthode Item constitue le membre par défaut d’une collection. Par exemple, les deux lignes de code suivantes sont équivalentes : ActivePresentation.Slides.Item(1) ActivePresentation.Slides(1) La valeur du paramètre type peut être l’une de ces constantes PpTextStyleType .

Syntaxe : expression.Item (Type)

Type: Type de style appliqué au texte.

Dim tse As TextStyle
Set tse = ActivePresentation.SlideMaster.TextStyles(Type:=1)

TextStyles.Parent

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