Klasse TextEffectFormat (Excel VBA)

Enthält Eigenschaften und Methoden, die für WordArt-Objekte gelten.

Methoden

Andere Methoden

ToggleVerticalText - Schaltet den Textfluss im angegebenen WordArt-Element von horizontal zu vertikal um und umgekehrt.

Eigenschaften

Alignment Gibt einen MsoTextEffectAlignment -Wert zurück, der die Ausrichtung für WordArt darstellt, oder legt diesen fest.

tef.Alignment = msoTextEffectAlignmentRight

FontBold Gibt msoTrue zurück, wenn die Schriftart in der angegebenen WordArt fett formatiert ist.

################

FontItalic Gibt msoTrue zurück, wenn die Schriftart in der angegebenen WordArt kursiv formatiert ist.

tef.FontItalic = True

FontName Gibt den Schriftartnamen des angegebenen WordArt-Objekts zurück oder legt ihn fest.

tef.FontName =  "Courier New"

FontSize Gibt den Schriftgrad des angegebenen WordArt-Objekts in Punktzurück oder legt ihn fest.

tef.FontSize = 12

KernedPairs Gibt msoTrue zurück, wenn Zeichenpaare in der angegebenen WordArt unterschnitten werden.

tef.KernedPairs =

NormalizedHeight Gibt msoTrue zurück, wenn alle Zeichen (sowohl groß-als auch Kleinbuchstaben) in der angegebenen WordArt die gleiche Höhe aufweisen.

tef.NormalizedHeight = 10

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

Dim objParent As Object
Set objParent = tef.Parent

PresetShape Gibt die Form des angegebenen WordArt-Objekts zurück oder legt diese Form fest.

tef.PresetShape = msoTextEffectShapeChevronDown

PresetTextEffect Gibt die Formatvorlage des angegebenen WordArt-Objekts zurück oder legt die Formatvorlage fest.

tef.PresetTextEffect = msoTextEffect1

RotatedChars Gibt msoTrue zurück, wenn Zeichen in der angegebenen WordArt 90 Grad relativ zur Begrenzungsform des WordArt-Objekts gedreht wurden.

tef.RotatedChars =

Text Gibt den Text des angegebenen Objekts zurück oder legt ihn fest.

tef.Text =

Tracking Gibt das Verhältnis zwischen dem horizontalen Raum, den jedes Zeichen in der angegebenen WordArt einnehmen darf, und der Zeichenbreite zurück, oder legt das Verhältnis fest.

tef.Tracking = 0.8