EffectExtrude.LightPosition

Property LightPosition(Index As Long) As cdrExtrudeLightPosition

The LightPosition property returns or sets the light position at a given index for an extrusion.

The LightPosition property returns cdrExtrudeLightPosition.

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