如果指定的艺术字字符对是自动缩紧的，则该值为 True。MsoTriState 类型，可读写。
| MsoTriState 可为以下 MsoTriState 常量之一。 |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 指定的艺术字中的字符对是自动缩紧的。 |
expression.KernedPairs
expression 必需。该表达式返回“应用于”列表中的对象之一。
如果 myDocument 中的图形三是艺术字，则本示例将打开其字符对自动缩紧功能。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.KernedPairs = msoTrue
End If
End With