EffectExtrude.UseFullColorRange

Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.UseFullColorRange

EffectExtrude.UseFullColorRange

Property UseFullColorRange As Boolean

Description

The UseFullColorRange property returns or specifies whether to combine light and dark shades (brightness and saturation) of a light source precisely for an extrusion.

•

See also the EffectExtrude.SetLight method.

VBA example

The following VBA example creates an extrusion and adds two light sources to it.

Sub Test()

Dim s As Shape

Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text")

With s.Text.FontProperties

.Name = "Arial Black"

.Size = 150

End With

s.Fill.UniformColor.RGBAssign 0, 0, 255

With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, _

8, , cdrExtrudeSolidFill, CreateRGBColor(255, 0, 0)).Extrude

.LightPresent(1) = True

.LightPosition(1) = cdrLightBackTopRight

.LightIntensity(1) = 100

.LightPresent(2) = True

.LightPosition(2) = cdrLightFrontCenter

.LightIntensity(2) = 50

.LightPresent(3) = False

.UseFullColorRange = True

End With

End Sub