Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.ShadingColor
|
|
| Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.ShadingColor |
Property ShadingColor As Color
Member of EffectExtrude
The ShadingColor property returns or specifies the ending shading color for an extrusion.
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.