EffectDropShadow.SetOffset

Sub SetOffset(OffsetX As Double, OffsetY As Double)

The Offset property sets the horizontal and vertical offset of a flat drop shadow from its control object.

See also the OffsetX and OffsetY properties.


Parameters	Description
OffsetX	Sets the horizontal offset
OffsetY	Sets the vertical offset

The following code example moves all drop shadows by two document units to the right (along the x-axis) and one document unit down (along the y-axis):

Sub Test() 
 Dim s As Shape, ds As EffectDropShadow 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrDropShadowGroupShape Then 
   Set ds = s.Effect.DropShadow 
    ds.SetOffset 2,-1  
  End If 
 Next s 
End Sub