Панель команд Меню через цикл - не в состоянии вызвать функции в меню, созданном через цикл - PullRequest
Новая
       27

Панель команд Меню через цикл - не в состоянии вызвать функции в меню, созданном через цикл

0 голосов
/ 28 июня 2019

Мой код создает меню, добавляя кнопки на панели команд, принимая значения из файла Excel, заполняемые пользователем.Поскольку количество пунктов меню не фиксировано, меню создается с помощью цикла.По действию я хочу перейти к названному диапазону в файле Excel.Не в состоянии сделать это.Пожалуйста, помогите. 

Dim myCB As CommandBar 
Set myCPup = myCB.Controls.Add(Type:=msoControlPopup)

For counter = 1 To Main_menu_items_count
   Set myCPBtn = myCPup.Controls.Add(Type:=msoControlButton)
   gorange = Application.WorksheetFunction.Substitute(myrange(counter, 1), " ", "") & "_Home"

    With myCPBtn
       .Style = msoButtonAutomatic
       .Caption = myrange(counter, 1)

       On Error Resume Next
       .OnAction =  Application.Goto(gorange)
   End With
Next
...