Returns or sets a value that indicates how the specified shape appears when the presentation is viewed in black-and-white mode. Read/write MsoBlackWhiteMode .
expression . BlackWhiteMode
expression A variable that represents a ShapeRange object.
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