The following VBA example finds all extruded shapes on a page, fills the control shapes with yellow, and changes the extrusion color to a two-color fountain fill that progresses from red to white.
Sub Test()
Dim s As Shape, ext As EffectExtrude
For Each s In ActivePage.Shapes
If s.Type = cdrExtrudeGroupShape Then
Set ext = s.Effect.Extrude
ext.FaceShape.Fill.UniformColor.RGBAssign 255, 255, 0
ext.Shading = cdrExtrudeColorShading
ext.BaseColor.RGBAssign 255, 0, 0
ext.ShadingColor.RGBAssign 255, 255, 255
End If
Next s
End Sub