API Documentation > CorelDRAW > 2025-v26 > EffectExtrude > IVGEffectExtrude
EffectExtrude.ShadingColor property
Gets or sets the extrude ending shading color
Syntax:
Property Get ShadingColor() As Color
Property Set ShadingColor(ByVal Value As Color)
Remarks:
The ShadingColor property returns or specifies the ending shading color for an extrusion.
Examples:
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