Sub Test() Dim s As Shape, eff As Effect For Each s In ActivePage.Shapes For Each eff In s.Effects If eff.Type = cdrDropShadow Then eff.DropShadow.Color.RGBAssign 255, 0, 0 End If Next eff Next sEnd Sub