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 iEnd Sub