Sub Test() Dim sText As Shape, sPath As Shape Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Text") Set sPath = ActiveLayer.CreateEllipse2(4.25, 5.5, 2, 3) sText.Text.FitToPath sPath With sText.Effects(1).TextOnPath .Quadrant = cdrBottomQuadrant .PlaceOnOtherSide = True .DistanceFromPath = 0.1 End WithEnd Sub