Volendo aggiungere un menu personalizzato alla barra di excel 2007 ho trovato questo codice su internet e l'ho provato:
- Codice: Seleziona tutto
Sub InserisciMenu()
Dim ModiMenu As CommandBar
Dim NuovoPopup As CommandBarPopup
Set ModiMenu = CommandBars.Add(Name:="ModiMenu")
With ModiMenu.Controls
Set NuovoPopup = .Add(Type:=msoControlPopup)
NuovoPopup.Caption = "&NuovoMenu"
NuovoPopup.Controls.Add.Caption = "&Voce 1"
NuovoPopup.Controls.Add.Caption = "&Voce 2"
End With
ModiMenu.Protection = msoBarNoCustomize
ModiMenu.Position = msoBarTop
ModiMenu.Visible = True
End Sub
ed ho ottenuto questo risultato :
.
Ora ho due problemi:
1) come elimino il nuovo menu "Componenti aggiuntivi" ?
2) si può cambiare il nome del nuovo menu aggiunto in uno a mio piacimento invece di "Componenti aggiuntivi" (per esempio "NEW") ?
Grazie