ExtrusionColorType 属性

       

返回或设置某个值,该值表示延伸色是否基于延伸形状的填充(延伸的正面)、在延伸的填充更改时是否自动更改,或者该延伸色是否独立于形状填充。可读写。MsoExtrusionColorType 类型。

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