EffectDropShadow.PerspectiveAngle

Property PerspectiveAngle As Double

The PersectiveAngle returns or sets the angle of a perspective drop shadow.

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