ExtrusionColorType 属性

返回或设置一个属性值，该值表明延伸区域的颜色是否基于原图形的填充（延伸区域的正面）色，并随着图形填充色的改变而自动变化，或者延伸区域的颜色是否与图形填充色的无关。MsoExtrusionColorType，可读写。

MsoExtrusionColorType 可以是下列 MsoExtrusionColorType 常量之一：

msoExtrusionColorAutomatic 延伸区域颜色基于图形填充色。

msoExtrusionColorTypeMixed

msoExtrusionColorCustom 延伸区域颜色与图形填充色无关。

expression.ExtrusionColorType

expression 必需。该表达式返回“应用于”列表中的一个对象。

示例

如果活动文档中的第一个图形的延伸区域颜色是自动设置的，则本示例将此延伸区域的颜色设置为自定义的黄色。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.Shapes(1).ThreeD
    If .ExtrusionColorType = msoExtrusionColorAutomatic Then
        .ExtrusionColor.RGB = RGB(240, 235, 16)
    End If
End With