Sub Test() Dim sText As Shape, sPath As Shape Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Text") Set sPath = ActiveLayer.CreateCurveSegment2(0.6, 4.5, 0, 3, 5.2, 8.2, 5.3, 7) sText.Text.FitToPath sPath sText.Effects(1).TextOnPath.Placement = cdrCenterPlacementEnd Sub