StructAlignProperties.CharacterRotation

Property CharacterRotation As Single

The CharacterRotation property returns or sets the rotation angle of characters of text.

The CharacterRotation property is measured in degrees and has a maximum value of 360 degrees.

The following code example creates a text object and rotates each character at a random angle:

Sub Test() 
 Dim s As Shape, i As Long 
 Dim sText As String 
 sText = "Random Text" 
 Set s = ActiveLayer.CreateArtisticText(0, 0, sText) 
 For i = 1 To Len(sText) 
  s.Text.AlignPropertiesInRange(i, 1).CharacterRotation = (Rnd() - 
0.5) * 90 
 Next i 
End Sub