返回或设置一个值，该值指示延伸颜色是否基于延伸图形的填充（延伸前表面）并在图形填充更改时自动进行更改，或延伸颜色是否独立于图形填充。MsoExtrusionColorType 类型，可读写。
| MsoExtrusionColorType 可为以下 MsoExtrusionColorType 常量之一。 |
| msoExtrusionColorAutomatic 基于图形填充的延伸颜色。 |
| msoExtrusionColorTypeMixed |
| msoExtrusionColorCustom 独立于图形填充的延伸颜色。 |
expression.ExtrusionColorType
expression 必需。该表达式返回“应用于”列表中的对象之一。
如果 myDocument 上第一个图形具有自动的延伸颜色，本示例就将该延伸颜色设置为自定义的黄色。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
If .ExtrusionColorType = msoExtrusionColorAutomatic Then
.ExtrusionColor.RGB = RGB(240, 235, 16)
End If
End With