ShapeRange.BlackWhiteMode Property (Excel)
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 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