Object Model Reference : Classes : E : EffectDropShadow : Properties : EffectDropShadow.PerspectiveAngle |
Property PerspectiveAngle As Double
Member of EffectDropShadow
The PersectiveAngle returns or specifies the angle of a perspective drop shadow.
The following VBA example converts all flat drop shadows to perspective drop shadows.
Sub Test() |
Dim s As Shape |
For Each s In ActivePage.Shapes |
If s.Type = cdrDropShadowGroupShape Then |
With s.Effect.DropShadow |
If .Type = cdrDropShadowFlat Then |
.Type = cdrDropShadowBottom |
.PerspectiveAngle = 45 |
.PerspectiveStretch = -0.5 |
End If |
End With |
End If |
Next s |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.