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.

Example:

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