Хитрая кнопка на своей панели инструментов

[Bagir]

Хочу поместить вот такую кнопку на свою панель инструментов. При клине по меню, я показываю только основные пункты. Ну а если нажму на кнопку, хочу чтобы были видны все.
Пока решил задачу используя msoControlPopup вместо той кнопки. Вот что в итоге получилось. Состряпал простенький пример. Работает, хоть и не без грешка. Зацените. Но все же хотелось бы кнопку как на скрине.

[EducatedFool]

Bagir, возможности формирования панели инструментов при помощи VBA, достаточно ограничены.

Программно мы можем добавить на панель только элементы управления 5 типов:

' список допустимых элементов управления на пользовательской панели инструментов

• msoControlButton
• msoControlEdit
• msoControlComboBox
• msoControlDropdown
• msoControlPopup

http://excelvba.ru/tools/CommandBar

Тут и половины того, что есть в стандартном интерфейсе Excel, не реализуешь.
А то, что вы просите, — это вообще из другой сферы
(появлением этой кнопки «заведует» сам Excel, — до этого программно точно никак не добраться)

[Bagir]

Да, такова правда жизни Спасибо EducatedFool, что подтвердили мое предположение. Но все же прятать элементы своего меню хочется. Посмотрите пример, может что предложите? Ввиду того, что используется msoControlPopup вместо желанной кнопки, при наведении на него мышки справа открывается квадратик пустого меню. Если это побороть, то будет вполне съедобно.
Есть вариант использовать не msoControlPopup, а msoControlButton. Но при нажатии меню закроется. Можно в дальнейшем сразу его открыть с нужными элементами используя

.SetFocus
SendKeys "{DOWN}"

но тогда меню прыгает. А это тоже не красиво.