Sub Test() Dim sText As Shape, sEllipse As Shape Set sText = ActiveLayer.CreateArtisticText(0, 0, "Text On Path") Set sEllipse = ActiveLayer.CreateEllipse2(4, 5, 2) sText.Text.FitToPath sEllipse sText.Effects(1).TextOnPath.Quadrant = cdrBottomQuadrantEnd Sub