Clase TabStop (PowerPoint VBA)

La clase TabStop representa una sola tabulación. El objeto TabStop es un miembro de la colección TabStops. La colección TabStops representa todas las tabulaciones de una regla.

Set

Para usar una variable de clase TabStop, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase TabStop : TabStops.Item, TabStops.Add y Ruler.TabStops

Clear

Borra el punto de tabulación especificado desde la regla y lo elimina de la colección TabStops .

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

Parent

Devuelve el objeto primario del objeto especificado.

Position

Devuelve o establece la posición de la tabulación especificada en puntos. Lectura y escritura.

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

Type

Representa el formato de una tabulación. Lectura y escritura.

Valores posibles son ppTabStopCenter - Tabulación central, ppTabStopDecimal - Tabulación decimal, ppTabStopLeft - Tabulación izquierda, ppTabStopMixed - Mixto, ppTabStopRight - Tabulación derecha.

El valor de la propiedad Type puede ser una de estas constantes PpTabStopType .

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

TabStops.Add

Crea una tabulación y la agrega a la colección TabStops .

El valor del parámetro Type puede ser una de estas constantes PpTabStopType .

Sintaxis : expression.Add (Type, Position)

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

Arguments

Estos son los argumentos con nombre :

Type (PpTabStopType) - Tipo de tabulación que se agregará.

Valores posibles son

ppTabStopCenter Tabulación central
ppTabStopDecimal Tabulación decimal
ppTabStopLeft Tabulación izquierda
ppTabStopMixed Mixto
ppTabStopRight Tabulación derecha

Position (Single) - Posición de la tabulación en la colección de tabulaciones.

TabStops.Count

Devuelve el número de objetos de la colección especificada. Solo lectura.

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

TabStops.DefaultSpacing

Devuelve o establece el espaciado de tabulación predeterminado del texto especificado en puntos. Lectura y escritura.

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

TabStops.Item

Devuelve una sola tabulación de la colección TabStops especificada.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto TabStop de la colección que se va a devolver.

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

TabStops.Parent

Devuelve el objeto primario del objeto especificado.