Engrave Property [Publisher 2003 VBA Language Reference]
MsoTriState
MsoTriState can be one of these MsoTriState constants. |
msoCTrue Not used for this property. |
msoFalse The specified text is not formatted as engraved. |
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 engraved. |
expression.Engrave
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Setting Engrave to msoTrue sets Emboss to msoFalse, and vice versa.
Example
This example engraves all the fonts in the first story.
Sub FontEng()
Dim fntEng As Font
Set fntEng = Application.ActiveDocument. _
Stories(1).TextRange.Font
If fntEng.Engrave = msoFalse Or msoTriStateMixed Then
fntEng.Engrave = msoTrue
End If
End Sub
Applies to | Font Object