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 If ds.Type <> cdrDropShadowFlat Then ds.Opacity = 100 ds.Fade = 80 End If End If Next sEnd Sub