EffectExtrude.Shading

Property Shading As cdrExtrudeShading

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

This property returns cdrExtrudeShading.

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