Foros


Inicio » Excel

Tópico Nuevo
Contestar
Facebook
Facebook
Twitter
Twitter
Imprimir
Imprimir

Página: 1

Mensaje Autor

Arriba
08/Dic/11 11:07
menú 2003 en excel 2007 y 2010 (macro)

encontré una muy buena macro para tener el menú 2003 en excel 2007 y/o 2010, es muy sencillo, ahí se los dejo:
Code:
Sub MakeOldMenus()
Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim OldMenu As CommandBar

' Delete it, if it exists
On Error Resume Next
Application.CommandBars('Old Menus').Delete
On Error GoTo 0

' Create an old-style toolbar
' Set the last argument to False for a more compact menu
Set OldMenu = Application.CommandBars.Add('Old Menus', , True)

' Copy the controls from Excel's 'Built-in Menus' shortcut menu
With CommandBars('Built-in Menus')
.Controls('&File').Copy OldMenu
.Controls('&Edit').Copy OldMenu
.Controls('&View').Copy OldMenu
.Controls('&Insert').Copy OldMenu
.Controls('F&ormat').Copy OldMenu
.Controls('&Tools').Copy OldMenu
.Controls('&Data').Copy OldMenu
.Controls('&Window').Copy OldMenu
.Controls('&Help').Copy OldMenu
End With

' Make it visible. It appears in the Add-Ins tab
Application.CommandBars('Old Menus').Visible = True
End Sub
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
08/Dic/11 11:14
Re: menú 2003 en excel 2007 y 2010 (macro)

para que funcione en excel en español hay que hacer unos cambio, se los dejo con los cambios:
Code:
Sub CreaExMenu()
' origen: http://spreadsheetpage.com/index.php/tip/old_style_menus_in_excel_2007/
Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim OldMenu As CommandBar

' Delete it, if it exists
On Error Resume Next
Application.CommandBars('Ex Menú').Delete
On Error GoTo 0

' Create an old-style toolbar
' Set the last argument to False for a more compact menu
Set ExMenu = Application.CommandBars.Add('Ex Menú', , True)

' Copy the controls from Excel's 'Built-in Menus' shortcut menu
With CommandBars('Built-in Menus')
.Controls('&Archivo').Copy ExMenu
.Controls('&Edición').Copy ExMenu
.Controls('&Ver').Copy ExMenu
.Controls('&Insertar').Copy ExMenu
.Controls('F&ormato').Copy ExMenu
.Controls('&Herramientas').Copy ExMenu
.Controls('&Datos').Copy ExMenu
.Controls('Ven&tana').Copy ExMenu
.Controls('?').Copy ExMenu
End With

' Make it visible. It appears in the Add-Ins tab
Application.CommandBars('Ex Menú').Visible = True
End Sub
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo


Próximos cursos y eventos
Anuncia tus cursos y eventos

Página: 1