Change Shape color

[balvy]

Good day,
In Powerpoint i added a shape and on click i need it to change color. when i go to a new slide i need it to return to the original color set. the macro i have set up is

Sub changecol(oshp As Shape)    On Error GoTo errhandler
    oshp.Fill.ForeColor.RGB = RGB(25, 200, 0)
    Exit Sub
errhandler:
    MsgBox "Sorry there's an error"
End Sub

but all that does is change the color but i have to manually change it back.

i need to be able to add the code to multiple shape using the action button on PowerPoint.

Thank you for your time.

 

[oldbrewer]

there is no code to change it back - a macro to go to next slide rather than using page down and then the code could change colour back before going to new slide......

 

[balvy]

is there a code that i could use to change them back before going to the page.

 

[oldbrewer]

it will be like your existing code but with different colour parameters