Una volta scritta una macro di Excel , si vuole spesso un modo semplice per lanciarlo. Molti utenti scelgono una scorciatoia da tastiera tradizionale , mentre altri selezionare un altro metodo , come ad esempio un pulsante di comando che esegue la macro quando si fa clic . Se hai scritto una macro davvero eccezionale , tuttavia , si potrebbe desiderare di metterlo direttamente nel menu di Excel . In Excel 2003, utilizzare Visual Basic, Applications Edition (VBA ) per creare una nuova voce di menu . Aggiungere tutte le opzioni che si desidera . Rompere le opzioni in gruppi di linee di sezione , e avrai un menu personalizzato professionale. Istruzioni
1

Inizio Excel 2003.
2

Aprire l'editor di Visual Basic. Selezionare " Strumenti ", quindi " Macro ", quindi " Visual Basic Editor " dal menu .
3

Inserire un modulo in bianco per il vostro codice . Selezionare "Inserisci ", poi "Modulo " dal menu .
4

Inizia una nuova subprocedure . Digitare quanto segue :

CustomMenu Sub ( ) per

Excel aggiunge automaticamente un'istruzione "End Sub "
5

definire le variabili . . Digitare quanto segue: tra il "Sub " e "End Sub " dichiarazioni :

Dim MenuObject Come CommandBarPopup

Dim MenuItem As Object
6

eliminare tutte le istanze esistenti di il tuo menu personalizzato . Questo impedisce che duplica se si esegue il codice più di una volta . Digitare quanto segue: . .

On Error Resume Next

Application.CommandBars ( 1 ) Controls ( " & My Macro " ) Cancellare

On Error GoTo 0 < br > Pagina 7

opzione Crea un nuovo menu chiamato "My Macro ". Utilizzare un valore di parametro di 10 nella dichiarazione "Set" per posizionarlo prima " Guida ", il 10 ° punto del menu di Excel . Digitare quanto segue : .

MenuObject = Application.CommandBars ( 1) Controls.Add ( Type : = msoControlPopup , Prima: = 10 , temporanea : = True ) per

MenuObject.Caption = " & My Macro "
8

Aggiungi due voci al menu , con una linea di sezione tra di loro. Creare la linea di sezione impostando la proprietà " BeginGroup " nella seconda voce di

Set MenuItem = MenuObject.Controls.Add ( Type : = msoControlButton ) "True".

MenuItem.OnAction = " NomeMacro "

MenuItem.Caption = " & Run"

Set MenuItem = MenuObject.Controls.Add ( Type : = msoControlButton ) per

MenuItem.OnAction = "Informazioni "

MenuItem.Caption = " & Informazioni su Macro "

MenuItem.BeginGroup = True
9

Eseguire il codice . Selezionare "Esegui ", quindi " Esegui Sub /UserForm " dal menu . Quando si torna al foglio di calcolo, si vedrà " My Macro " nel menu , prima di "Aiuto ". Clicca per visualizzare le due opzioni di menu , separati da una linea di sezione .