API Documentation > CorelDRAW > 2025-v26 > EffectExtrude > IVGEffectExtrude
EffectExtrude.Shading property
Gets or sets the extrude shading type of cdrExtrudeShading type
Syntax:
Property Get Shading() As cdrExtrudeShading
Property Let Shading(ByVal Value As cdrExtrudeShading)
Remarks:
The Shading property returns or specifies the shading type for an extrusion. This property returns cdrExtrudeShading.
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