how to make a toggle button that light up

[jesper]

Hi All
I need to make a toggle button that light up when pushed. I could come up with this code, but it seems taken up much resources on my computer.
I need some help with a smarter and better way to structure the code.
I have tried with the "Selection with", but then I can not make the "action" work, when assigning the macro.

This is the code I am using:
---

Sub firepump1_Click()
If ActivePresentation.Slides(1).Shapes("firepump1").Fill.ForeColor.RGB = RGB(0, 125, 0) Then


ActivePresentation.Slides(1).Shapes("firepump1").Fill.ForeColor.RGB = RGB(102, 255, 51)
ActivePresentation.Slides(1).Shapes("firepump1").ThreeD.BevelTopType = msoBevelSoftRound
ActivePresentation.Slides(1).Shapes("firepump1").Glow.Color.RGB = RGB(153, 255, 51)
ActivePresentation.Slides(1).Shapes("firepump1").Glow.Transparency = 0.6000000238
ActivePresentation.Slides(1).Shapes("firepump1").Glow.Radius = 18
Else
ActivePresentation.Slides(1).Shapes("firepump1").Fill.ForeColor.RGB = RGB(0, 125, 0)
ActivePresentation.Slides(1).Shapes("firepump1").ThreeD.BevelTopType = msoBevelCircle
ActivePresentation.Slides(1).Shapes("firepump1").Glow.Radius = 0
End If
End Sub

---
Hope anyone have a fix solution.
PPT 2016