Klasse TabStop (PowerPoint VBA)

Die Klasse TabStop stellt einen einzelnen Tabstopp dar. Das TabStop -Objekt ist ein Mitglied der TabStops -Auflistung. Die TabStops -Auflistung stellt alle Tabstopps in einem Lineal.

Set

Um eine TabStop -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der TabStop Klassenvariablen verwendet werden : TabStops.Item, TabStops.Add und Ruler.TabStops

Clear

Löscht den angegebenen Tabstopp aus dem Lineal und löscht ihn aus der TabStops -Auflistung.

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

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Position

Gibt die Position des angegebenen Tabstopps in Punkt zurück oder legt diese fest. Lese-/Schreibzugriff.

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

Type

Stellt die Formatierung eines Tabstopps dar. Lese-/Schreibzugriff.

Möglichen Werte sind ppTabStopCenter - Tabstopp zentriert, ppTabStopDecimal - Tabstopp dezimal, ppTabStopLeft - Tabstopp links, ppTabStopMixed - Gemischt, ppTabStopRight - Tabstopp rechts.

Der Wert der Type -Eigenschaft kann einer der folgenden PpTabStopType -Konstanten sein.

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

TabStops.Add

Erstellt einen Tabstopp und fügt ihn der TabStops -Auflistung hinzu.

Der Wert des Type -Parameters kann eine der folgenden PpTabStopType -Konstanten sein.

Syntax : expression.Add (Type, Position)

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

Arguments

Hier sind die benannte Argumente :

Type (PpTabStopType) - Der Tabstopptyp, der hinzugefügt werden soll.

Möglichen Werte sind

ppTabStopCenter Tabstopp zentriert
ppTabStopDecimal Tabstopp dezimal
ppTabStopLeft Tabstopp links
ppTabStopMixed Gemischt
ppTabStopRight Tabstopp rechts

Position (Single) - The position of the tab stop in the tab stops collection.The position of the tab stop in the tab stops collection.

TabStops.Count

Gibt die Anzahl von Objekten in der angegebenen Auflistung zurück. Schreibgeschützt.

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

TabStops.DefaultSpacing

Gibt den Abstand für den Standardtabstopp für den angegebenen Text in Punkt zurück oder legt diesen fest. Lese-/Schreibzugriff.

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

TabStops.Item

Gibt einen einzelnen Tabstopp aus der angegebenen TabStops -Auflistung zurück.

Syntax : expression.Item (Index)

Index: Die Indexnummer des einzelnen TabStop -Objekts in der Auflistung, das zurückgegeben werden soll.

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

TabStops.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.