Главное меню, добавление пункта

[Зелёный]

Чтобы сделать невидимым пункт Главного меню "Вставка->cтроки" достаточно написать в коде

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

Application.CommandBars("Worksheet Menu Bar").Controls(4).Controls(2).Visible = False

А каким образом мне добавить свой пункт пеню перед пунктом "Вставка-> строки"?
Выражение

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

         Dim MainMenu As CommandBarControl
         Set MainMenu = Application.CommandBars("Worksheet Menu Bar").
         MainMenu.Caption = "Тест"
         MainMenu.OnAction = "AddSelectRow"

'<- название макроса
Выдает ошибку на второй строке "Object doesn't support this property or method"... Оно и понятно - так и должно быть. Но каким образом мне решить эту задачку?

[Зелёный]

Поспешил и не дописал до конца. Вторая строчка с ошибкой выглядит так:

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

Set MainMenu = Application.CommandBars("Worksheet Menu Bar").Controls(4).Add(Before = 2)

[Зелёный]

Сам себе и отвечу:

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

         Dim MainMenu As CommandBarControl
         Dim MainMenuPopup As CommandBarControl
         
                 Set MainMenu = Application.CommandBars("Worksheet Menu Bar").Controls(4)   
                Set MainMenuPopup = MainMenu.Controls.Add(Type:=msoControlButton, Before:=2)
                 MainMenuPopup.Caption = "Тест"
                 MainMenuPopup.OnAction = "AddSelectRow"
                 Application.CommandBars("Worksheet Menu Bar").Controls(4).Controls(3).Visible = False