全部显示当以黑白模式显示演示文稿时，返回或设置指示指定图形显示方式的值。MsoBlackWhiteMode 类型，可读写。
| MsoBlackWhiteMode 可为以下 MsoBlackWhiteMode 常量之一。 |
| msoBlackWhiteAutomatic |
| msoBlackWhiteBlack |
| msoBlackWhiteBlackTextAndLine |
| msoBlackWhiteDontShow |
| msoBlackWhiteGrayOutline |
| msoBlackWhiteGrayScale |
| msoBlackWhiteHighContrast |
| msoBlackWhiteInverseGrayScale |
| msoBlackWhiteLightGrayScale |
| msoBlackWhiteMixed |
| msoBlackWhiteWhite |
expression.BlackWhiteMode
expression 必需。该表达式返回“应用于”列表中的对象之一。
本示例使 wksOne 上的第一个图形以黑白模式显示。当用户以黑白模式查看演示文稿时，第一个图形为黑色，而不管它在颜色模式中为何种颜色。
Sub UseBlackWhiteMode()
Dim wksOne As Worksheet
Set wksOne = Application.Worksheets(1)
wksOne.Shapes(1).BlackWhiteMode = msoBlackWhiteGrayOutline
End Sub