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.


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 & """"
        MsgBox "This object does not support formated text"
    End If
End Sub