Shape.TextWrapOffset

Property TextWrapOffset As Double

Member of Shape

The TextWrapOffset property returns or sets the offset for the wrapped text from the object.

The following code example wraps the paragraph text around the ellipse and offsets the text 0.5" from 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 
 ell.TextWrapOffset = 0.5 
End Sub