|
Quand vous avez fini d'écrire une macro Excel, vous souhaitez souvent un moyen facile de le lancer. De nombreux utilisateurs choisissent un raccourci clavier traditionnel , tandis que d'autres choisissent une autre méthode, comme un bouton de commande qui exécute la macro lorsque vous cliquez dessus . Si vous avez écrit une macro exceptionnel , cependant, vous voudrez peut-être de le placer directement dans le menu Excel. Dans Excel 2003, utilisez Visual Basic pour Applications ( VBA) pour créer un nouvel élément de menu. Ajoutez autant d'options que vous le souhaitez . Cassez les options en groupes avec des lignes de coupe , et vous aurez un menu personnalisé professionnel. Instructions
1 Démarrer Excel 2003.
2 Ouvrez Visual Basic Editor . Sélectionnez " Outils ", puis " Macro ", puis " Visual Basic Editor" dans le menu.
3 insérer un module vierge pour votre code. Sélectionnez " Insérer ", puis " Module " dans le menu .
4 Démarrer une nouvelle sous-procédure . Tapez la commande suivante :
Sous PersoMenu ()
Excel va automatiquement ajouter une instruction " End Sub "
5 définir des variables . . Tapez la commande suivante entre le "Sub" et les déclarations " End Sub" :
MenuObject As CommandBarPopup
MenuItem As Object
6 Supprimer toutes les instances existantes de votre menu personnalisé . Cela évite les doublons si vous exécutez le code plus d'une fois . Tapez la commande suivante : . .
On Error Resume Next
Application.CommandBars ( 1) Commandes ( " & My Macro" ) Supprimer
On Error GoTo 0 < br > Photos 7 créer une nouvelle option de menu «My Macro ». Utilisez une valeur de paramètre de 10 dans la déclaration "Set" pour le placer devant " Aide", le point 10 dans le menu Excel. Tapez la commande suivante : .
Set MenuObject = Application.CommandBars (1) Controls.Add (Type: = msoControlPopup , Avant: = 10, temporaire : = True)
MenuObject.Caption = " & My Macro "
8 Ajoutez deux éléments au menu , avec une ligne de coupe entre eux. Créer la ligne de coupe en définissant la propriété " BeginGroup " dans le deuxième point à
Set MenuItem = MenuObject.Controls.Add (Type: = msoControlButton ) «vrai».
MenuItem.OnAction = " MacroName "
MenuItem.Caption = "& Run"
Set MenuItem = MenuObject.Controls.Add (Type: = msoControlButton )
MenuItem.OnAction = " À propos "
MenuItem.Caption =" & propos Macro "
MenuItem.BeginGroup = True
9 exécuter le code. Cliquez sur "Exécuter ", puis " Exécuter Sub /UserForm " dans le menu . Lorsque vous revenez à la feuille de calcul , vous verrez "Ma Macro" dans le menu , avant " d'aide". Cliquez pour afficher les deux options de menu , séparés par une ligne de coupe .
|
