Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.LightPosition
|
|
| Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.LightPosition |
Property LightPosition(Index As Long) As cdrExtrudeLightPosition
Member of EffectExtrude
The LightPosition property returns or specifies the light position at a given index for an extrusion.
The LightPosition property returns cdrExtrudeLightPosition.
• |
See also the EffectExtrude.SetLight method.
|
|
Parameter
|
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 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.