Создание собственного меню в Excel и добавление действий к ним

вот есть код Создание и Удаление Меню нужно чтобы при нажатии на Содержание выводилось окно сообщения с информацией о разработчике ( к примеру фамилия) Sub Delete_Menu() On Error Resume Next CommandBars(1).Controls("Мои итоги").Delete On Error GoTo 0 End Sub Sub AddNewMenu() Dim NewMenu As CommandBarPopup Dim NMenuItem As CommandBarButton Dim PodMenu As CommandBarPopup Call Delete_Menu Set NewMenu = CommandBars(1).Controls.Add(Type:=m soControlPopup) NewMenu.Caption = "Мои итоги" Set NMenuItem = NewMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Мастер" .FaceId = 69 End With Set NMenuItem = NewMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Диаграмма..." .FaceId = 435 End With Set PodMenu = NewMenu.Controls.Add(Type:=msoContr olPopup) With PodMenu .Caption = "Справка" End With Set NMenuItem = PodMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Содержание" .FaceId = 575 End With Set NMenuItem = PodMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Ресурсы" .FaceId = 592 End With End Sub
2 ответа

А при нажатии на другие "разделы"?2 варианта:
With NMenuItem
.Caption = "Содержание"
.FaceId = 575
'.OnAction = ThisWorkbook.Name & "!ВАША_ПРОЦЕДУРА1"
.OnAction = "ВАША_ПРОЦЕДУРА1"
End With
'......
End Sub

Sub ВАША_ПРОЦЕДУРА1()
MsgBox "Разработчик: " & vbNewLine & _
"ragnar1035" & vbNewLine & _
"Новичок", vbCritical
End Sub


Поглядите это:Создание панели инструментов для надстройки http://excelvba.ru/tools/CommandBarФорма "О программе..." с гиперссылкой и бегущей строкой http://excelvba.ru/code/frmAbout