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é.