GefFontFormat.Strikethrough (property)

Gets and sets the strikethrough state of the font.

Syntax:

Boolean = object.Strikethrough
object.Strikethrough = Boolean

Description:

The Strikethrough property switches the font between normal and striked through.

Example:

Sub GefFontFormat_Strikethrough()

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.Strikethrough
= gefStateTrue

            CimGetScreen.Refresh
False

        End
If

End If

End Sub