Classe TabStop (PowerPoint VBA)

La classe TabStop représente un taquet de tabulation. L'objet TabStop est un membre de la collection TabStops. La collection TabStops représente tous les taquets de tabulation d’une règle.

Set

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

Dim tsp as TabStop
Set tsp = ActiveWindow.RangeFromPoint.TextFrame.Ruler.TabStops(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TabStop : TabStops.Item, TabStops.Add et Ruler.TabStops

Clear

Efface le taquet de tabulation spécifié de la règle et le supprime de la collection TabStops .

ActivePresentation.Slides(1).Shapes(1).TextFrame.Ruler.TabStops(1).Clear

Parent

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

Position

Renvoie ou définit, en points, la position du taquet de tabulation spécifié. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame.Ruler.TabStops(1).Position = 4

Type

Représente la mise en forme d’une tabulation. Lecture-écriture.

Valeurs possibles sont ppTabStopCenter - Taquet de tabulation central, ppTabStopDecimal - Taquet de tabulation décimal, ppTabStopLeft - Taquet de tabulation gauche, ppTabStopMixed - Mixte, ppTabStopRight - Taquet de tabulation droit.

La valeur de la propriété type peut être l’une de ces constantes PpTabStopType .

ActiveWindow.RangeFromPoint.TextFrame.Ruler.TabStops(1).Type = ppTabStopCenter

TabStops.Add

Crée un taquet de tabulation et l’ajoute à la collection TabStops .

La valeur du paramètre type peut être l’une de ces constantes PpTabStopType .

Syntaxe : expression.Add (Type, Position)

Dim tsp As TabStop
Set tsp = ActiveWindow.RangeFromPoint.TextFrame.Ruler.TabStops.Add(Type:=ppTabStopCenter, Position:=)

Arguments

Les arguments nommés :

Type (PpTabStopType) - Type de taquet de tabulation à ajouter.

Valeurs possibles sont

ppTabStopCenter Taquet de tabulation central
ppTabStopDecimal Taquet de tabulation décimal
ppTabStopLeft Taquet de tabulation gauche
ppTabStopMixed Mixte
ppTabStopRight Taquet de tabulation droit

Position (Single) - Position du taquet de tabulation dans la collection des taquets de tabulation.

TabStops.Count

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

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.TextFrame.Ruler.TabStops.Count

TabStops.DefaultSpacing

Cette propriété renvoie ou définit, en points, l’espacement des taquets de tabulation par défaut pour le texte spécifié. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame.Ruler.TabStops.DefaultSpacing = 26

TabStops.Item

Renvoie une seule tabulation de la collection TabStops spécifiée.

Syntaxe : expression.Item (Index)

Index: Numéro d’index de l’objet unique TabStop de la collection à renvoyer.

Dim tsp As TabStop
Set tsp = ActiveWindow.RangeFromPoint.TextFrame.Ruler.TabStops(Index:=1)

TabStops.Parent

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