ThreeDFormat.ExtrusionColor (PowerPoint)

Returns a ColorFormat object that represents the color of the shape's extrusion.

Dim cftExtrusionColor As ColorFormat
Set cftExtrusionColor = ActivePresentation.Slides(1).Shapes(1).ThreeD.ExtrusionColor