Shape.WrapText

Property WrapText As cdrWrapStyle

Member of Shape

The WrapText property returns or sets the style for wrapping paragraph text.

The following code example wraps the paragraph text around the ellipse:

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 
End Sub