KernedPairs 属性

表示经过字距调整的“艺术字”对象中的字符对。MsoTriState，可读写。

MsoTriState 可以是下列 MsoTriState 常量之一：

msoCTrue

msoFalse

msoTriStateMixed

msoTriStateToggle

msoTrue

expression.KernedPairs

expression 必需。该表达式返回一个 TextEffectFormat 对象。

示例

本示例为活动文档中的“艺术字”对象启用字符对字距调整。

Sub Kerned()
    With ActiveDocument.Range(1, ActiveDocument.Shapes.Count).ShapeRange
        If .Type = msoTextEffect Then
            .TextEffect.KernedPairs = True
        End If
    End With
End Sub