GefFontFormat.ClearDecoration (method)

Clears any decoration attributes (bold, italic, etc.) that may exist on the font.

Syntax:

object.ClearDecoration

Description:

The ClearDecoration method removes all decoration attributes (bold, italic, etc.) that may exist on the font.

Example:

Sub FontFormat_ClearDecoration()

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

        If Not
oCimObjFntFmt Is Nothing Then

oCimObjFntFmt.ClearDecoration

            CimGetScreen.Refresh
False

        End
If

End If

End Sub