[CDR 2024] Создание своего меню

[ruvimc]

Как создать свою панель инструментов с подменю?
Что-то типа такого:

Application.CommandBars.Add("TestMenu")
Set btnMenu = CommandBars("TestMenu").Controls.AddCustomButton("2cc24a3e-fe24-4708-9a74-9c75406eebcd",  "Menu")

Вот так я умею создавать панель и кнопку на ней. Но вот чтобы создать меню и подменю - не знаю как.
Можете привести пример? Спасибо!

 

[_MBK_]

Можете привести пример?

Хороший вопрос всегда содержит бОльшую часть ответа. Вы сами пример привели, там и посмотрите как реализовано.

 

[eugeny]

гуглите строчку: application.commandbars.add submenu
вот вам сходу два примера:

How to add Sub Menu under Sub Menu in VBA Excel?

Set subMenu = menutext.Controls.add(Type:=msoControlButton, ID:=3, before:=2) With subMenu .Caption = "MainMenu" .Enabled = True End With Set subMenu =

stackoverflow.com

Set a CommandBar "Popup" submenu icon dynamically

I'm just trying to confirm this: In Office 2003, I want to create a custom submenu--what is known in CommandBar parlance as a popup (msoControlPopup)--at runtime, and set an image for it. With a

stackoverflow.com