ExtrusionColorType Property

  • Article

MsoExtrusionColorType

MsoExtrusionColorType can be one of these MsoExtrusionColorType constants.
msoExtrusionColorAutomatic Extrusion color based on shape fill.
msoExtrusionColorTypeMixed
msoExtrusionColorCustom Extrusion color independent of shape fill.

expression.ExtrusionColorType

expression Required. An expression that returns one of the objects in the Applies To list.

Example

If the first shape on the active document has an automatic extrusion color, this example gives the extrusion a custom yellow color.

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

Applies to | ThreeDFormat Object