Подсветить кнопку на панеле инструментов

[agregator]

Здравствуйте уважаемые программисты. Подскажите пожалуйста код, чтобы подсветить, выделить (т.е. обвести оранжевым квадратиком) кнопку на панеле инструментов. Хочу доработать код, который меняет значек на кнопке

Sub Вернуть()
    For Each co In Application.CommandBars("Worksheet Menu Bar").Controls
    If co.Caption = "ВЫКЛ" Then co.FaceId = 2150: co.Caption = "ВКЛ": co.OnAction = "Заменить"
    Next
End Sub

[agregator]

Ответ нашёл здесь, утро вечера мудренее

 Sub Вернуть()
    For Each co In Application.CommandBars("Worksheet Menu Bar").Controls
    If co.Caption = "ВЫКЛ" Then co.FaceId = 2150: co.Caption = "ВКЛ": co.OnAction = "Заменить": co.State = msoButtonDown
    Next
End Sub

[DiemonStar]

Подскажите пожалуйста код, чтобы подсветить, выделить (т.е. обвести оранжевым квадратиком) кнопку на панеле инструментов

Может я дурак, но отображение кнопки в нажатом состоянии к оранжевым квадратикам отношения не имеет.

[agregator]

Когда я нашёл ответ, тогда и понял, что оранжевый квадрат означает - кнопка нажата (State = msoButtonDown - состояние кнопка вниз). Ещё нашел Enabled = True (False).
Не совсем понял, чем отличается State = msoButtonDown от State = msoButtonMixed. Внешне кнопка не меняется.