Text.FramesInLink

Property FramesInLink As Long

Member of Text

The FramesInLink property returns the total number of text frames in a chain of linked paragraph-text frames.

The FramesInLink property returns a read-only value.

The following code example displays the total number of frames in the text chain and the number of empty (unused) frames:

Sub Test() 
 If ActiveShape Is Nothing Then 
  MsgBox "Nothing Selected" 
  Exit Sub 
 End If 
 If ActiveShape.Type <> cdrTextShape Then 
  MsgBox "Please select a text object." 
  Exit Sub 
 End If 
 If ActiveShape.Text.Type <> cdrParagraphText And 
ActiveShape.Text.Type <> cdrParagraphFittedText Then 
  MsgBox "Please select a paragraph text object." 
  Exit Sub 
 End If 
 MsgBox "The number of frames in the text chain is: " & _ 
  ActiveShape.Text.FramesInLink & vbCr & _ 
  "Unused frames: " & ActiveShape.Text.UnusedFramesInLink 
End Sub