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

[ragnar1035]

вот есть код Создание и Удаление Меню
нужно чтобы при нажатии на Содержание выводилось окно сообщения с информацией о разработчике ( к примеру фамилия)

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

[Hugo121]

А при нажатии на другие "разделы"?

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

[EducatedFool]

Поглядите это:

Создание панели инструментов для надстройки
http://excelvba.ru/tools/CommandBar

Форма "О программе..." с гиперссылкой и бегущей строкой
http://excelvba.ru/code/frmAbout