Color Combination Sequence Game

[Paul_Hossler]

Glad it worked

If the concept is OK, then if there's a lot of slides, I'd suggest changing the way correct answers are stored to make data entry and maintenance easier

Maybe something like this which uses slide tags

Option Explicit


Public Const colRed  As Long = 255
Public Const colGold As Long = 49407
Public Const colGreen  As Long = 5287936
Public Const colBlue  As Long = 12611584


Public colPicked As Long


Sub StartTest()
    Dim oSlide As Slide
    
    With ActivePresentation
        .Slides(2).Tags.Add "Answer", "ROGB"        '   O = Gold
        .Slides(3).Tags.Add "Answer", "BROG"        '   O = Gold
    End With


    For Each oSlide In ActivePresentation.Slides
        With oSlide
            If .SlideNumber > 1 Then Call AllBlack(oSlide)
        End With
    Next


    ActivePresentation.SlideShowWindow.View.Next
End Sub