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.
| 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 myDocument 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.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).BlackWhiteMode = msoBlackWhiteBlack