Как выделить ernbdye кнопку в собственном CommandBar?

[Antov]

Создаётся собств. меню и кнопки

Код: Выделить всё

Application.CommandBars.Add ( "xxx") ...
Application.CommandBars( "xxx").Controls.Add ...

Необходимо периодически как то подсвечивать одну из кнопок меню...

Пожалуйста, подскажите как это сделать - весь инет перерыл....
Заранее Спасибо!

[bi-lya]

Если уж совсем ничего найти не можете, может быть такое замутить: по условию менять рисунок кнопки на такой-же, но более яркий (с эффектом подсвечивания), или же по краю окаймленный

[Димитрий]

Можно сделать кнопку нажатой:
CommandBars(1).Controls("myCB").State = msoButtonDown

[Antov]

Можно сделать кнопку нажатой:
CommandBars(1).Controls("myCB").State = msoButtonDown

Многоуважаемый Димитрий!!!!
Спасибо Вам большое!
Дело в том, чтоя очень давно натыкался на данный метод, но он у меня не заработал (видимо я его как то криво применил, или офис чудил), а сейчас попробовал и всё пошло!
Спасибо ещё раз большое!

[Antov]

Понял почему раньше не работало - не была подключена библиотека MicroSoft Office 11.0 Object Library