Object Model Reference : Classes : T : Text : Properties : Text.Overflow
|
|
| Object Model Reference : Classes : T : Text : Properties : Text.Overflow |
Property Overflow As Boolean
Member of Text
The Overflow property returns True if the amount of text in a chain of linked paragraph-text frames exceeds the space available.
The Overflow property returns a read-only value.
The following VBA example adjusts the height of a paragraph-text frame to accommodate any overflowing text.
Sub Test() |
Dim s As Shape |
ActiveDocument.ReferencePoint = cdrTopLeft |
For Each s In ActiveDocument.ActivePage.Shapes |
If s.Type = cdrTextShape Then |
If s.Text.Type = cdrParagraphText Then |
If s.Text.Overflow Then AdjustFrame s |
End If |
End If |
Next s |
End Sub |
Private Sub AdjustFrame(s As Shape) |
Dim h As Double |
h = s.SizeHeight / 10 |
While s.Text.Overflow |
s.SizeHeight = s.SizeHeight + h |
Wend |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.