| MsoBlackWhiteMode can be one of these MsoBlackWhiteMode constants. |
| msoBlackWhiteAutomatic |
| msoBlackWhiteBlack |
| msoBlackWhiteBlackTextAndLine |
| msoBlackWhiteDontShow |
| msoBlackWhiteGrayOutline |
| msoBlackWhiteGrayScale |
| msoBlackWhiteHighContrast |
| msoBlackWhiteInverseGrayScale |
| msoBlackWhiteLightGrayScale |
| msoBlackWhiteMixed |
| msoBlackWhiteWhite |
expression.BlackWhiteMode
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets shape one on wksOne to appear in black-and-white mode. When you view the presentation in black-and-white mode, shape one will appear black regardless of what color it is in color mode.
Sub UseBlackWhiteMode()
Dim wksOne As Worksheet
Set wksOne = Application.Worksheets(1)
wksOne.Shapes(1).BlackWhiteMode = msoBlackWhiteGrayOutline
End Sub