The macro below shows how you can change the state of a custom CommandBar button so it displays as depressed or not.
Sub ToggleButtonState()
Dim m As CommandBarControl
Set m = CommandBars("CommandBarName").Controls(1)
If m.State = msoButtonDown Then
m.State = msoButtonUp
Else
m.State = msoButtonDown
End If
Set m = Nothing
End Sub
The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.
