Klasse TextStyle (PowerPoint VBA)

Die Klasse TextStyle stellt einen von drei Textformaten dar: Titeltext, Textkörper und Standardtext. Jedes Textformat enthält ein TextFrame -Objekt, das beschreibt, wie Text in das umgebende Textfeld positioniert wird, ein Ruler -Objekt, das Tabstopps und Gliederung Einzug Informationen und eine TextStyleLevels -Auflistung, die Informationen über Gliederung Text die Formatierung enthält Formatierung enthält. Das TextStyle -Objekt ist ein Mitglied der TextStyles -Auflistung.

Set

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

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

Die folgenden Prozeduren können zum Festlegen der TextStyle Klassenvariablen verwendet werden : TextStyles.Item und Master.TextStyles

Levels

Gibt ein TextStyleLevels -Objekt zurück, das die Textformatierung einer Gliederung darstellt. Schreibgeschützt.

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

Parent

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

Ruler

Gibt ein Ruler -Objekt, das das Lineal für den angegebenen Text darstellt. Schreibgeschützt.

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

TextFrame

Gibt ein TextFrame -Objekt, das die Ausrichtung und Verankerungseigenschaften für die angegebene Form oder das Mastertextformat enthält.

Verwenden Sie die TextRange -Eigenschaft des TextFrame -Objekts, um den Text im Textrahmen zurückzugeben. Verwenden Sie die HasTextFrame -Eigenschaft, um festzulegen, ob eine Form einen Textrahmen enthält, bevor Sie die TextFrame -Eigenschaft anwenden.

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

TextStyles.Count

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

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

TextStyles.Item

Gibt ein einzelnes Text Format aus der angegebenen TextStyles -Auflistung zurück.

Die Item -Methode ist das Standardelement für eine Auflistung. Beispielsweise sind die folgenden beiden Codezeilen gleichwertig: ActivePresentation.Slides.Item(1) ActivePresentation.Slides(1) Der Wert des Type -Parameters kann eine der folgenden PpTextStyleType -Konstanten sein.

Syntax : expression.Item (Type)

Type: Der Typ des Textformats.

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

TextStyles.Parent

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