Sub Test() Dim sText As Shape, sPath As Shape Set sText = ActiveLayer.CreateArtisticText(0, 0, "Text On Path") Set sPath = ActiveLayer.CreateCurveSegment(0.6, 4.5, 7.8, 8.5, 5.2, 62, 5.3, -96) sText.Text.FitToPath sPath sText.Effects(1).TextOnPath.Offset = 2End Sub