EffectExtrude.Shading

Property Shading As cdrExtrudeShading

The Shading property returns or sets the shading type for an extrusion.

This property returns cdrExtrudeShading.

The following code 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