返回或设置一个值,该值指示延伸颜色是否基于延伸图形的填充(延伸前表面)并在图形填充更改时自动进行更改,或延伸颜色是否独立于图形填充。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