SizeBi Property

Microsoft Publisher Visual Basic

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