Share via

SizeBi Property [Publisher 2003 VBA Language Reference]

  • Article

Returns or sets a Variant value representing the size, in points, of the Font object for text in a right-to-left language. Valid range is 0.5 points to 999.5 points. Read/write.

expression.SizeBi

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example tests the text in the second story. If it is in a right-to-left language, larger than 12 point, and italicized, the text is set to bold.

Sub SizeBiIfBig()

    Dim fntSize As Font

    Set fntSize = Application.ActiveDocument.Stories(2).TextRange.Font
    With fntSize
        If .SizeBi > 12 And .ItalicBi = msoTrue Then
            .BoldBi = msoTrue
        Else
            MsgBox "The font size is 12 points or less " & _
            ", not bold, or this is not in a right-to-left language."
        End If
    End With

End Sub

Applies to | Font Object