EffectExtrude.LightIntensity

Property LightIntensity(Index As Long) As Long

The LightIntensity property returns or sets the light intensity at a given index for an extrusion.

See also the SetLight method.


Parameters	Description
Index	Specifies the light source used for an extrusion.You can apply as many as three light sources. You can also remove applied light sources.

The following code 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