Change Fill color using VBA in PowerPoint

[Paul_Hossler]

Sorry, when I started the slide show, all I saw was the background. When I clicked, it ended. I did not wait long enough

Option Explicit

Sub test()
    Dim j As Long
    Dim r As Long
    Dim g As Long
    Dim b As Long
    Dim oMainSeq As Sequence
    r = InputBox("Please enter Red number in: RGB(red,green,blue)", "Change Top Shape Color", "068")
    g = InputBox("Please enter Green number in: RGB(red,green,blue)", "Change Top Shape Color", "114")
    b = InputBox("Please enter Blue number in: RGB(red,green,blue)", "Change Top Shape Color", "196")
    Set oMainSeq = ActivePresentation.Slides(1).TimeLine.MainSequence    
    For j = 1 To oMainSeq.Count
        With oMainSeq(j)
            If .EffectType = msoAnimEffectChangeFillColor Then
                If .Shape.Type = msoAutoShape Then
                    If .Shape.AutoShapeType = msoShapeHeptagon Then
                        .Behaviors(3).SetEffect.Property = msoAnimShapeFillColor
                        .Behaviors(3).SetEffect.To = RGB(r, g, b)
                    End If                        
                End If                
            End If
        End With
    Next j
    MsgBox "Done"
End Sub

See if I'm understanding better with this one