Text.FitTextToFrame

Sub FitTextToFrame()

Member of Text

The FitTextToFrame method fits text to a frame.

The following code example creates paragraph text and fits the text to the frame:

Sub Test() 
 Dim d As Document 
 Dim s As Shape 
 Dim t As Text 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateParagraphText(2, 4, 6, 9, _ 
  "This is a test for the frames.") 
 Set t = s.Text 
 t.FitTextToFrame 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.