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