StructFontProperties.RangeKerning

Property RangeKerning As Long

The RangeKerning property returns or sets the amount of white space between characters of text.

This value represents a percentage of the space character (that is, the character inserted when you press the Spacebar). The maximum value is 1000; the minimum value is -100.

The following code example creates a text string and adjusts the kerning of the second word:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateArtisticText(4, 5, "Some loose text") 
 s.Text.FontPropertiesInRange(2, 1, cdrWordIndexing).RangeKerning = 
100 
End Sub