............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

No encuentro solucion Menu personalizado de Excel

Ver el tema anterior Ver el tema siguiente Ir abajo

No encuentro solucion Menu personalizado de Excel

Mensaje por papillon52 el Mar Ago 18, 2009 11:16 pm

Hola amigo GalileoGali.,
Buenas noches. Te comento
Formule un menu personalizado en VBA excel. a decir verdad lo baje por internet y lo adapte a mis necesidades y funciono, el problema que me encuentro es que borra el menu principal de las hojas en excel y queda unicamente - mi menu -. Bien, cuando abro otro libro excel ya con informacion, adopta - mi menu - no aparece el menu propio de excel, esto hace que tengo que trabajar primero con el libro de - mi menu - cerrarlo y ahora si poder trabajar con otros libros., yo quiciera saber si existe alguna funcion, o metodo en VBA o del propio Excel, que el proceso sea unicamente en - mi menu - independiente de los demas libros... De antemano te agradeceria me ayudaras o me dieras un apoyo u opinion...
Saludos y Gracias.
Ernesto Reza

papillon52

Masculino Cantidad de envíos : 5
Edad : 65
Ciudad - Pais : Colima, Mexico
Version de Excel : manejo los tres el xp -2003 y 2007 poco.
Fecha de inscripción : 14/08/2009

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por P@li el Miér Ago 19, 2009 8:09 am

Ernesto

Quizás puedas trabajar sobre los eventos activate y deactivate del objeto workbook (obviamente del libro que estás usando). Haciendo que se reestablezcan los menues cuando desactivas el libro y que se creen los menues al activar el libro.

Para reestablecerlos podés usar algo así:
Application.CommandBars("Cell").Reset
Application.CommandBars("Worksheet Menu Bar").Reset

Saludos.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por papillon52 el Jue Ago 20, 2009 2:06 pm

[quote="P@li"] Ernesto

A que cary, no me funciono, parece que no me di muy bien a entender o parese estar muy complicado. "mi menu personalizado" afecta a todos los libros que abra (con informacion), los unicos que no afecta son los nuevos y eso es lo que me tiene con esperanza que si se pueda hacer unico en un solo libro... pero de cualquier manera muchas gracias.
Seguire intentandolo...

papillon52

Masculino Cantidad de envíos : 5
Edad : 65
Ciudad - Pais : Colima, Mexico
Version de Excel : manejo los tres el xp -2003 y 2007 poco.
Fecha de inscripción : 14/08/2009

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por P@li el Jue Ago 20, 2009 2:10 pm

Ernesto,
Podés subir el archivo para que podemos verlo?
Quizás así podamos entender mejor tu problema, y en función de ello plantear una solución.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por papillon52 el Vie Ago 21, 2009 12:45 am

[quote="P@li"]Ernesto,
Creo pedir algo no muy comun, No imposible, pero bueno!!....
Quiero trabajar con dos o mas libros de excel abiertos con sus menus correspondientes, el personalizado con "Mi menu" y los demas con sus menus propios de Excel.... Bueno aqui esta la rutina:
Sub CreateMenu()
Dim cb As CommandBar
Dim cbMenu As CommandBarControl
Dim cbSubMenu As CommandBarControl
Dim cbButton As CommandBarButton
'---------------------------------------------------------
On Error Resume Next
Application.CommandBars("Mi_Menu").Delete '--> Borra el Mi_menú si existe.
On Error GoTo 0
'---
'crea una barra nueva de menú para reemplazar la barra incorporada de menú
Set cb = Application.CommandBars.Add("Mi_Menu", msoBarTop, True, True)
'---
'crea un menú nuevo en un commandbar existente (las próximas líneas)
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Mi Menú"
.Tag = "MyTag"
.BeginGroup = False
.TooltipText = "principal"
End With

If cbMenu Is Nothing Then Exit Sub 'No encontró el menú..

With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Modulo 1"
.OnAction = ThisWorkbook.Name & "!DatosEmpresa"
.FaceId = 5
End With

With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Modulo 2"
.OnAction = ThisWorkbook.Name & "!DatosEmpresa"
.FaceId = 22 '471 '9
End With

'Crea un Submenu...(1)
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Imprimir"
.Tag = "SubMenu1"
.BeginGroup = True
End With
'Submenu de (1.1)
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Reporte 1"
.OnAction = ThisWorkbook.Name & "!ImprimirNOM"
.Style = msoButtonIconAndCaption
.FaceId = 9
.State = msoButtonDown
End With
'Submenu de (1.2)
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Reporte 2"
.OnAction = ThisWorkbook.Name & "!ImprimirRN"
.Style = msoButtonIconAndCaption
.FaceId = 45
.State = msoButtonDown
End With
'--------
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Modulo 4"
.OnAction = ThisWorkbook.Name & "!XXXX"
End With

With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Salir"
.OnAction = ThisWorkbook.Name & "!Salir"
End With

'--------------------------------------------- hasta aqui el menú principal
'Crea otro Menu
'----> Menú de Ayuda <----
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Ayuda"
.Tag = "MyTag"
.BeginGroup = False
.TooltipText = "Manual"
End With
'---> SubMenú de Ayuda
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Manual de Operación"
.OnAction = ThisWorkbook.Name & "!Ayuda"
.FaceId = 19
End With
'---> SubMenú de Ayuda
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Acerca de "
.OnAction = ThisWorkbook.Name & "!Acerca"
.FaceId = 29
End With
'----------------------------------------------
' Muestra el Mi menú
cb.Visible = True
Set cbSubMenu = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub
'Rutina para borrar Mi Menu y reestablecer el menu principal...
Sub Borrar_Mi_Menu()
On Error Resume Next
Application.CommandBars("Mi_Menu").Delete
On Error GoTo 0
End Sub
.''

papillon52

Masculino Cantidad de envíos : 5
Edad : 65
Ciudad - Pais : Colima, Mexico
Version de Excel : manejo los tres el xp -2003 y 2007 poco.
Fecha de inscripción : 14/08/2009

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por papillon52 el Mar Ago 25, 2009 2:14 am

[quote="papillon52"][quote="P@li"]

Muchas gracias amigo, ya encontre la respuesta a mi duda.
de cualquier manera agradecido, a ver si para la otra.
Gracia.

papillon52

Masculino Cantidad de envíos : 5
Edad : 65
Ciudad - Pais : Colima, Mexico
Version de Excel : manejo los tres el xp -2003 y 2007 poco.
Fecha de inscripción : 14/08/2009

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por GalileoGali el Mar Ago 25, 2009 7:23 am

papillon52 escribió:

Muchas gracias amigo, ya encontre la respuesta a mi duda.
de cualquier manera agradecido, a ver si para la otra.
Gracia.


Bueno sería que pudiéramos enterarnos de cual fue la solucion, para provecho de todos

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por papillon52 el Mar Ago 25, 2009 7:37 pm

[quote="GalileoGali"][quote="papillon52"]

Con mucho gusto lo compartimos: (disculpa, debi a ver hecho esto).
Utilice en Thisworkbook uno para activar o otra para desactivar (cambia el menu)
Hace las funciones, cuando abro otro libro no exhibe "Mi-menu", si no, el propio que el
libro trae.
Private Sub Workbook_activate()
Application.CommandBars("Mi_Menu").Visible = True
End Sub
Y en el desactivate: Visible = False
Asi de simple y asi de facil... esto me dio resultado.
Saludos.
papillon52.

papillon52

Masculino Cantidad de envíos : 5
Edad : 65
Ciudad - Pais : Colima, Mexico
Version de Excel : manejo los tres el xp -2003 y 2007 poco.
Fecha de inscripción : 14/08/2009

Volver arriba Ir abajo

Re: No encuentro solucion Menu personalizado de Excel

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.