GefFontFormat.Name (property)

Gets and sets the face name of the font being used.

Syntax:

VARIANT = object.Name
object.Name = VARIANT

Description:

The name of the GefFontFormat object is the face name of the font being used.

Example:

Sub GefFontFormat_Name()

Dim oCimObj As GefObject

    Dim oCimTxtFmt As
GefTextFormat

    Dim oCimFntFmt As
GefFontFormat

Set oCimObj = CimGetObject

    Set oCimTxtFmt =
oCimObj.TextFormat

    If Not oCimTxtFmt Is Nothing
Then

        Set
oCimFntFmt = oCimTxtFmt.Font

        If Not
oCimFntFmt Is Nothing Then

            MsgBox
"The current font is " & oCimFntFmt.Name

        End
If

End If

End Sub