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).
Example: 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 |