| Name | Type | Description |
|---|---|---|
| OffsetX |
Double
|
|
| OffsetY |
Double
|
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