Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Transparency.Type <> cdrFountainTransparency Then s.Transparency.ApplyNoTransparency End If Next sEnd Sub