Cómo agregar una línea de sección al menú de VBA con Excel

Cuando termine de escribir una macro de Excel , a menudo se desea una manera fácil de poner en marcha. Muchos usuarios optan por un atajo de teclado tradicional, mientras que otros seleccionan otro método , como un botón de comando que se ejecuta la macro cuando se hace clic . Si has escrito una macro realmente excepcional , sin embargo , es posible que desee colocar directamente en el menú de Excel. En Excel 2003 , utilice Visual Basic para Aplicaciones ( VBA ) para crear un nuevo elemento de menú . Añadir tantas opciones como desee . Romper las opciones en grupos con líneas de corte , y usted tendrá un menú personalizado profesional. Instrucciones
1

Inicie Excel 2003 .
2

Abra el Editor de Visual Basic . Seleccione " Herramientas ", luego " Macro " y luego " Editor de Visual Basic " en el menú .
3

Inserte un módulo en blanco para su código. Seleccione "Insertar " y luego " Módulo " en el menú .
4

Iniciar un subprocedimiento . Escriba lo siguiente:

Sub CustomMenu ()

Excel agregará automáticamente un "Sub End" declaración
5

Definir variables. . Escriba el siguiente código entre el "Sub " y declaraciones " End Sub " :

MenuObject As CommandBarPopup

MenuItem Dim As Object
6

Eliminar todas las instancias existentes de su menú personalizado . Esto evita duplicados si ejecuta el código más de una vez. Escriba lo siguiente: . .

On Error Resume Next
Application.CommandBars

( 1 ) Controles ( " & My Macro" ) Eliminar

On Error GoTo 0
Página 7

Crear un nuevo menú llamado " Mi Macro ". Utilice un valor de parámetro de 10 en la declaración " Set" para colocarlo antes de " Ayuda ", el décimo punto del menú Excel. Escriba lo siguiente: .

Set MenuObject = Application.CommandBars ( 1 ) Controls.Add (tipo : = msoControlPopup , Antes: = 10 , temporal : = True )

MenuObject.Caption = " & My Macro "
8

Agregar dos elementos al menú , con una línea de corte entre ellos. Crear la línea de corte estableciendo la propiedad " BeginGroup " en el segundo punto de

Set MenuItem = MenuObject.Controls.Add (tipo : = msoControlButton ) "Es cierto . "

MenuItem.OnAction = " NombreDeMacro "

MenuItem.Caption = "& Run"

Set MenuItem = MenuObject.Controls.Add (tipo : = msoControlButton )

MenuItem.OnAction = " Acerca de "

MenuItem.Caption =" & Acerca Macro "

MenuItem.BeginGroup = True
9

Ejecute el código. Seleccione " Ejecutar " y luego " Ejecutar Sub /UserForm " en el menú . Cuando regrese a la hoja de cálculo , se verá "Mi Macro" en el menú, antes de la " ayuda". Pulsa aquí para ver las dos opciones de menú, separados por una línea de sección .