Freigeben über


TextEffectFormat.KernedPairs-Eigenschaft (Publisher)

Legt fest oder gibt eine MsoTriState-Konstante zurück, die angibt, ob Zeichenpaare in einem WordArt-Objekt gekernt wurden. Lese-/Schreibzugriff.

Syntax

Ausdruck. KernedPairs

Ausdruck Eine Variable, die ein TextEffectFormat-Objekt darstellt.

Rückgabewert

MsoTriState

Hinweise

Der Wert der KernedPairs -Eigenschaft kann eine der in der Microsoft Office-Typbibliothek deklarierten und in der folgenden Tabelle angezeigten MsoTriState -Konstanten sein.

Konstante Beschreibung
msoFalse Character pairs in the specified WordArt object have not been kerned.
msoTriStateToggle Wechselt zwischen MsoTrue und MsoFalse.
msoTrue Character pairs in the specified WordArt object have been kerned.

Beispiel

In diesem Beispiel wird der automatische Zeichenabstand für alle WordArt-Objekte in der aktiven Publikation aktiviert.

Sub KernedWordArt() 
 Dim pagPage As Page 
 Dim shpShape As Shape 
 For Each pagPage In ActiveDocument.Pages 
 For Each shpShape In pagPage.Shapes 
 If shpShape.Type = msoTextEffect Then 
 shpShape.TextEffect.KernedPairs = msoTrue 
 End If 
 Next 
 Next 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.