CommandBars

[corgi]

проблема - пишу такую фигню

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

Dim NewMenu As Object
   
    Set NewMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(type:=msoControlButton, Temporary:=True)
    NewMenu.Caption = "консолидация"
    NewMenu.OnAction = "consolid"


в результате названия нет а tooltip есть????
а если заменить на msoControlPopup то все в порядке - где я не прав

[Calvin]

Я пока это программно не проверял, но по-быстрячку с помощью НАСТРОЙКИ посмотрел в свойства нового созданного меню и задал параметр "Только текст (всегда)" вместо "Основной стиль" и Caption стал виден