ExtrusionColorType Property

Microsoft Excel Visual Basic

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 shape one on myDocument has an automatic extrusion color, this example gives the extrusion a custom yellow color.

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