Sub Test() Dim s As Shape, n As Node Set s = ActiveLayer.CreateArtisticText(0, 0, "Jagged") With s.Text.FontProperties .Name = "Arial" .Style = cdrBoldFontStyle .Size = 140 End With s.ConvertToCurves For Each n In s.Curve.Nodes n.Move (Rnd() - 0.5) * 0.2, (Rnd() - 0.5) * 0.2 Next nEnd Sub