GefFontFormat.Weight (property)

Gets and sets the weight of the font.
Syntax: short = object.Weight
object.Weight = short
Description: You can use the Bold property to switch the weight between normal (400) and bold (700).
Description Value
Don't Care 0
Thin 100
Extra Light 200
Light 300
Normal 400
Medium 500
Semi-bold 600
Bold 700
Extra Bold 800
Heavy 900


Sub GefFontFormat_Weight()
    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
            oCimFntFmt.Weight = 700
            CimGetScreen.Refresh False
        End If
    End If
End Sub