AutomaticPairKerningThreshold Property

Microsoft Publisher Visual Basic

expression.AutomaticPairKerningThreshold

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

Valid range is 0.0 points to 999.5 points. Returns –2 if the value for characters in the text range is indeterminate. Setting this property to 0.0 disables automatic pair kerning on the range.

Example

This example sets the point size threshold to 12 points. All text in the second story above the threshold will implement auto kerning.

Sub Threshold()

    Application.ActiveDocument.Stories(2).TextRange _
        .Font.AutomaticPairKerningThreshold = 12

End Sub