GefTextFormat.Font (read-only property)

Represents the font being used.

Syntax:

Description:

The Font property represents the font.

Example:

Sub GefTextFormat_Font()

Dim oCimObj As GefObject

    Dim oCimObjTxtFmt As
GefTextFormat

    Dim oCimObjFntFmt As
GefFontFormat

Set oCimObj = CimGetObject

    Set oCimObjTxtFmt =
oCimObj.TextFormat

    If Not oCimObjTxtFmt Is Nothing
Then

        Set
oCimObjFntFmt = oCimObjTxtFmt.Font

        MsgBox "The
font being used is " & """" & oCimObjFntFmt.Name &
""""

End If

End Sub

Represents the font being used.
Syntax:	Set GefFontFormat = object.Font
Description:	The Font property represents the font. Example: `Sub GefTextFormat_Font()` `Dim oCimObj As GefObject` `Dim oCimObjTxtFmt As GefTextFormat` `Dim oCimObjFntFmt As GefFontFormat` `Set oCimObj = CimGetObject` `Set oCimObjTxtFmt = oCimObj.TextFormat` `If Not oCimObjTxtFmt Is Nothing Then` `Set oCimObjFntFmt = oCimObjTxtFmt.Font` `MsgBox "The font being used is " & """" & oCimObjFntFmt.Name & """"` `End If` `End Sub`