GefObject.TextFormat (read-only property)

Gets the GefTextFormat for the object.

Syntax:

Set GefTextFormat = object.TextFormat

Description:

This property is valid for text and button objects only. Returns Nothing if this property is not valid for the object.

Example:

Sub GefObject_TextFormat()

Dim oCimobj As GefObject

    Dim oCimTxtFmt As
GefTextFormat

Set oCimobj = CimGetObject

    Set oCimTxtFmt =
oCimobj.TextFormat

    If Not oCimTxtFmt Is Nothing
Then

        MsgBox "This
object has a text string of " & _

"""" & oCimTxtFmt.Text & """"
Else

        MsgBox "This
object does not support formated text"

End If

End Sub