Macro to change PowerPoint Presentation slides with random background colors

You can try the code below. It loops through the slides and changes their background colors. The colors are selected randomly for each slide.

Note: When testing, I noticed that I had to change the slides' background color from white to another color for a slide to start changing its color. I advise you do the same.

Sub SetRandomBackground()

    Dim x, red, blue, green As Integer
    Dim myslide As Slide

    For Each myslide In ActivePresentation.Slides
       
            red = Int((255 * Rnd) + 1)
            blue = Int((255 * Rnd) + 1)
            green = Int((255 * Rnd) + 1)
            myslide.Background.Fill.ForeColor.RGB = RGB(red, green, blue)

    Next

End Sub