Sub Test() Dim sText As Shape, sPath As Shape Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Long Text Line") Set sPath = ActiveLayer.CreateCurveSegment(0.6, 4.5, 5, 5.5, 3, 80, 3, -100) sText.Text.FontProperties.Size = 48 sText.Text.FitToPath sPath sText.Effects(1).TextOnPath.Orientation = cdrVerticalSkewOrientationEnd Sub