Sub Test() Dim ell As Shape ActiveLayer.CreateParagraphText 1, 1, ActivePage.SizeWidth - 1, _ ActivePage.SizeHeight - 1, String$(2000, "a"), , , , 24 Set ell = ActiveLayer.CreateEllipse(2, 9, 6, 4) ell.WrapText = cdrWrapContourStraddle ell.TextWrapOffset = 0.5End Sub