ThreeDFormat.ExtrusionColorType Property (Word)
Returns or sets a value that indicates whether the extrusion color is based on the extruded shape's fill (the front face of the extrusion) and automatically changes when the shape's fill changes, or whether the extrusion color is independent of the shape's fill. Read/write MsoExtrusionColorType.
Syntax
expression .ExtrusionColorType
expression Required. A variable that represents a ThreeDFormat object.
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