Examples:
The following VBA example displays the total number of frames in the text chain and the number of empty (or 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