Please see the attached for an illustration of what I'm trying to do. Focus on only the Standard Mode and Manual Mode buttons.
I've been advised that using rectangle shapes with assigned macros is preferable to using ActiveX buttons when using worksheets and wanting to change the colors to of the button to reflect the active sheet. Problem with rectangles is I would still want to retain the "feel" of a button, especially if the rectangle doesn't actually call on a worksheet (eg User Guide will ultimately open a PDF). Basically, I'd like the rectangle to change on PressDown to look depressed. Then, on release to return to its current formatting. Lastly, if the button is calling another sheet have it turn Green when that sheet is active so the end-user knows where they are.
I've pasted something I was given but can't get to work with the style/formatting that I want:
Sub PressDown(MyButton As Shape)
' PressDown Macro
.BevelTopType = msoBevelSoftRound
.BevelTopInset = 12
.BevelTopDepth = 4
Sub PressUp(MyButton As Shape)
' PressUp Macro
.BevelTopType = msoBevelCircle
.BevelTopInset = 6
.BevelTopDepth = 6
Dim shpButton As Shape
Set shpButton = ActiveSheet.Shapes(Application.Caller)
MsgBox "Do some code stuff"