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 sEnd Sub