Свойство TextEffectFormat.KernedPairs (Publisher)

Задает или возвращает константу MsoTriState , которая указывает, были ли изменены пары символов в объекте WordArt. Для чтения и записи.

Синтаксис

expression. KernedPairs

Выражение Переменная, представляющая объект TextEffectFormat .

Возвращаемое значение

MsoTriState

Замечания

Значение свойства KernedPairs может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа	Описание
msoFalse	Пары символов в указанном объекте WordArt не были кернированы.
msoTriStateToggle	Переключается между msoTrue и msoFalse.
msoTrue	Пары символов в указанном объекте WordArt были кернированы.

Пример

В этом примере включается кернинг по парам символов для всех объектов WordArt в активной публикации.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.