GefTextFormat.Text (property)

Gets and sets the text string for the object.
Syntax: VARIANT = object.Text
object.Text = VARIANT
Description: For GefTextFormat this is the value that is displayed for the text object, unless TextExpression is also set.


Sub GefTextFormat_Text()
    Dim oCimObj As GefObject
    Dim oCimTxtFmt As GefTextFormat
    Set oCimObj = CimGetObject
    Set oCimTxtFmt = oCimObj.TextFormat
    If Not oCimTxtFmt Is Nothing Then
        oCimTxtFmt.Text = "New text"
        CimGetScreen.Refresh False
        MsgBox "The text is currently " & """" & oCimTxtFmt.Text & """"
    End If
End Sub