Ciao Alex,
Post by alexsi i classici menu tipo file, visualizza,modifica come ha detto mauro.
Prova qualcosa del genere:
'=============>>
Public Sub Tester0010()
Dim CMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Long
Dim cbcCustomMenu As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar"). _
Controls("MyMenu").Delete
On Error GoTo 0
Set cbMainMenuBar = Application.CommandBars _
("Worksheet Menu Bar")
iHelpMenu = cbMainMenuBar.FindControl(ID:=30010).Index
'
Set cbcCustomMenu = cbMainMenuBar.Controls. _
Add(Type:=msoControlPopup, _
Before:=iHelpMenu, _
Temporary:=True)
cbcCustomMenu.Caption = "MyMenu"
With cbcCustomMenu.Controls.Add(Type:=msoControlPopup)
.Caption = "Pippo"
.Tag = "Pippo"
Set CMenu1 = .Controls.Add(Type:=msoControlButton)
With CMenu1
.Caption = "&Sub_Menu1"
.FaceId = 48
.OnAction = "myMacro1"
End With
Set CMenu1 = .Controls.Add(Type:=msoControlButton)
With CMenu1
.Caption = "S&ub_Menu2"
.FaceId = 49
.OnAction = "myMacro2"
End With
End With
End Sub
'<<=============
---
Regards,
Norman