The ApplyNoTransparency method removes all transparencies from a shape.
Examples:
The following VBA example removes all transparencies from all shapes on the active page.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
If s.Transparency.Type <> cdrNoTransparency Then
s.Transparency.ApplyNoTransparency
End If
Next s
End Sub