KernedPairs 属性

       

决定指定艺术字中的字符对是否紧排。可读写。MsoTriState 类型。

示例

本示例打开 myDocument 中第三个形状(如果该形状为艺术字)的字体对字距。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.KernedPairs = msoTrue
    End If
End With