GefFontFormat.Size (property)

Gets and sets the size of the font in TWIPS.

Syntax:

long = object.Size
object.Size = long

Description:

The Size property gets and sets the size of the font in TWIPS.

Example:

Sub GefFontFormat_Size()

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 size is " & _

                Abs(Int(oCimFntFmt.Size
/ 20))

        End
If

End If

End Sub