Excel - Codigo Menu

   
Vista:

Codigo Menu

Publicado por Jose (75 intervenciones) el 02/05/2008 19:43:13
Que Tal Foro…!
ayuda. Tengo este codio para generar un menu en excel, el cual

Option Explicit

Sub CreateMenu()
Dim cb As CommandBar, cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
DeleteCommandBar ' delete the custom menu if it already exists
Set cb = Application.CommandBars.Add("MyCommandBarName", msoBarTop, True, True)
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Nivel 1"
.Tag = "MyTag"
.BeginGroup = False
End With


Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 2"
.Tag = "SubMenu2"
.BeginGroup = True
End With


Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 3"
.Tag = "SubMenu3"
.BeginGroup = True
End With



Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 4"
.Tag = "SubMenu4"
.BeginGroup = True
End With

Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Nivel 5"
.Tag = "SubMenu5"
.BeginGroup = True
End With


Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&ELIMINAR MENU"
.BeginGroup = True

End With

If cbMenu Is Nothing Then Exit Sub
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Eliminar este menú"
.OnAction = ThisWorkbook.Name & "!DeleteCommandBar"
.Style = msoButtonIconAndCaption
.FaceId = 463
.BeginGroup = True
End With

cb.Visible = True

Set cbSubMenu = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub

Sub DeleteCommandBar()
On Error Resume Next
Application.CommandBars("MyCommandBarName").Delete
On Error GoTo 0
End Sub

Sub Macroname()
MsgBox "AbrirArchivo", vbInformation, ThisWorkbook.Name
End Sub


he numerado por nivel 1,2,3,4,5 etc.
Asi es como lo tengo

Nivel 1
Nivel 2 Nivel 3 Nivel 4 Nivel 5

como se le agregaria abajo del nivel 3, 4 y 5 mas niveles de tal forma que quedara
de la siguiente manera

Nivel 1
Nivel 2 Nivel 3 Nivel 4 Nivel 5
Nivel 2.2 Nivel 3.2 Nivel 4.2 Nivel 5.2




Correr el Codigo

Gracias Foro

chat: jsanzmatz@msn.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Codigo Menu

Publicado por Abraham Valencia (2418 intervenciones) el 03/05/2008 03:30:33
^Pues lee sobre VBA y practica.

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar