EffectExtrude.LightPresent

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

EffectExtrude.LightPresent

Property LightPresent(Index As Long) As Boolean

Description

The LightPresent property returns or specifies whether light is present at a given index for an extrusion. You can specify up to three light sources.

•

See also the EffectExtrude.SetLight method.


Parameter	Description
Index	Specifies the light source used. You can apply as many as three light sources. You can also remove applied light sources.

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