The following VBA example creates an extruded text shape and shades the extrusion with a fountain color transition from red to yellow.
Sub Test()
Dim s As Shape, eff As Effect
Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text")
With s.Text.FontProperties
.Name = "Arial Black"
.Size = 150
End With
Set eff = s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, 8)
With eff.Extrude
.Shading = cdrExtrudeColorShading
.BaseColor.RGBAssign 255, 0, 0
.ShadingColor.RGBAssign 255, 255, 0
End With
End Sub