Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.BaseColor |
Property BaseColor As Color
Member of EffectExtrude
The BaseColor property returns or specifies the solid fill or starting 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.