Share via


KernedPairs Property [Publisher 2003 VBA Language Reference]

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used with this property.
msoFalse Character pairs in the specified WordArt object have not been kerned.
msoTriStateMixed Not used with this property.
msoTriStateToggle Toggles between msoTrue and msoFalse.
msoTrue Character pairs in the specified WordArt object have been kerned.

expression.KernedPairs

expression Required. An expression that returns a TextEffectFormat object.

Example

This example turns on character pair kerning for all WordArt objects in the active publication.

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

Applies to | TextEffectFormat Object