Share via

Emboss Property [Publisher 2003 VBA Language Reference]

  • Article

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used for this property.
msoFalse The specified text is not formatted as embossed.
msoTriStateMixed Return value which indicates a combination of msoTrue and msoFalse for the specified text range.
msoTriStateToggle Set value which toggles between msoTrue and msoFalse.
msoTrue The specified text is formatted as embossed.

expression.Emboss

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

Remarks

Setting Emboss to msoTrue sets Engrave to msoFalse and vice versa.

Example

This example embosses all the text in the first story.

Sub FontEmb()

    Dim fntEmb As Font

    Set fntEmb = Application.ActiveDocument. _
        Stories(1).TextRange.Font
    If fntEmb.Emboss = msoFalse Or msoTriStateMixed Then
        fntEmb.Emboss = msoTrue
    End If

End Sub

Applies to | Font Object