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