Sub blackBack()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
osld.FollowMasterBackground = False
osld.Background.Fill.Solid
osld.Background.Fill.ForeColor.RGB = vbBlack
Next osld
End Sub