返回或设置某个值,该值表示延伸色是否基于延伸形状的填充(延伸的正面)、在延伸的填充更改时是否自动更改,或者该延伸色是否独立于形状填充。可读写。MsoExtrusionColorType 类型。
MsoZOrderCmd 可以是下列 MsoZOrderCmd 类型常数之一。 |
msoExtrusionColorAutomatic 延伸色基于形状填充。 |
msoExtrusionColorCustom 延伸色独立于形状填充。 |
msoExtrusionColorTypeMixed |
expression.ExtrusionColorType
expression 必选。该表达式返回“应用于”列表中的对象之一。
如果 myDocument
中第一个形状有自动延伸色,则本示例将将延伸设置为自定义的黄色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
If .ExtrusionColorType = msoExtrusionColorAutomatic Then
.ExtrusionColor.RGB = RGB(240, 235, 16)
End If
End With