Grupos en barras de herramientas

Hola Roberto, la verdad que he leido un par de veces tu consulta y no logro
captar adecuadamente tu inquetud, podrías ser un poco más específico?



"Hernandez, Roberto" escribió en el mensaje
news:

Saludos al foro:
Quisiera pedir un poco de asesoría.
Con qué comando puedo 'agrupar' items de menú para que sólo se muestren al
hacer click en el nombre del grupo?
Espero haberme expresado correctamente.

hola, Roberto !

Con que comando puedo 'agrupar' items de menu para que solo se muestren al hacer click en el nombre del grupo?

suponiendo que por 'agrupar items de menu'... te refieres a comandos que se ejecuten desde un SUB-menu -?-
como en: [menu] herramientas -> [sub-menu] proteger -> [comando] proteger hoja
como en: [menu] insertar -> [sub-menu] nombre -> [comando] definir... [etc. etc. etc.]
puedes agregar [como sub-menu] un control de tipo 'msoControlPopup' -> a algun menu 'existente'...
y agregar los comandos [abajo de o] al sub-menu con controles de tipo 'msoControlButton' ;)

el siguiente ejemplo [y solo como ejemplo]... agrega 1 sub-menu al menu [existente] de la ayuda
y 'le cuelga' 3 comandos 'dirigidos' a 3 macros [similares por si quieres usar bucles en lugar de uno a uno] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo 'normal' ==Sub Agregar_comandos()
Eliminar_Comandos
With Application.CommandBars("Help")
With .Controls.Add(msoControlPopup, , , , True)
.BeginGroup = True
.Caption = "Mas opciones..."
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 1"
.OnAction = "Comando_1"
End With
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 2"
.OnAction = "Comando_2"
End With
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 3"
.OnAction = "Comando_3"
End With
End With
End With
End Sub
Sub Eliminar_Comandos()
On Error Resume Next
Application.CommandBars("Help").Controls("Mas opciones...").Delete
End Sub
Sub Comando_1()
MsgBox "Accionando el comando 1..."
End Sub
Sub Comando_2()
MsgBox "Accionando el comando 2..."
End Sub
Sub Comando_3()
MsgBox "Accionando el comando 3..."
End Sub

Gracias Hector:
Eso es exactamento lo que necesitaba.
Todos mis menús eran [hasta ahora] del mismo nivel.
Ahora podré crear sub-menús.

Un ejemplo muy bueno el tuyo.

Gracias otra vez.
"Héctor Miguel" escribió en el mensaje
news:

hola, Roberto !

Con que comando puedo 'agrupar' items de menu para que solo se muestren
al hacer click en el nombre del grupo?

suponiendo que por 'agrupar items de menu'... te refieres a comandos que
se ejecuten desde un SUB-menu -?-
como en: [menu] herramientas -> [sub-menu] proteger -> [comando] proteger
hoja
como en: [menu] insertar -> [sub-menu] nombre -> [comando] definir...
[etc. etc. etc.]
puedes agregar [como sub-menu] un control de tipo 'msoControlPopup' -> a
algun menu 'existente'...
y agregar los comandos [abajo de o] al sub-menu con controles de tipo
'msoControlButton' ;)

el siguiente ejemplo [y solo como ejemplo]... agrega 1 sub-menu al menu
[existente] de la ayuda
y 'le cuelga' 3 comandos 'dirigidos' a 3 macros [similares por si quieres
usar bucles en lugar de uno a uno] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo 'normal' ==> Sub Agregar_comandos()
Eliminar_Comandos
With Application.CommandBars("Help")
With .Controls.Add(msoControlPopup, , , , True)
.BeginGroup = True
.Caption = "Mas opciones..."
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 1"
.OnAction = "Comando_1"
End With
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 2"
.OnAction = "Comando_2"
End With
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 3"
.OnAction = "Comando_3"
End With
End With
End With
End Sub
Sub Eliminar_Comandos()
On Error Resume Next
Application.CommandBars("Help").Controls("Mas opciones...").Delete
End Sub
Sub Comando_1()
MsgBox "Accionando el comando 1..."
End Sub
Sub Comando_2()
MsgBox "Accionando el comando 2..."
End Sub
Sub Comando_3()
MsgBox "Accionando el comando 3..."
End Sub

Gracias por tu atención Julio.
En realidad lo que quiero es crear Sub-menús en una barra de herramientas.
Por ejemplo como en el menú Herramientas -> Proteger -> [aquí hay
submenús] -Proteger Hoja, Proteger Libro, etc.
Como verás Héctor Miguel me ha dado un ejemplo que me sirve.
Gracias de nuevo por tu interés.

"julio gonzales rodriguez" escribió en el mensaje
news:uq0Wee%

Hola Roberto, la verdad que he leido un par de veces tu consulta y no
logro captar adecuadamente tu inquetud, podrías ser un poco más
específico?



"Hernandez, Roberto" escribió en el mensaje
news:

Saludos al foro:
Quisiera pedir un poco de asesoría.
Con qué comando puedo 'agrupar' items de menú para que sólo se muestren
al hacer click en el nombre del grupo?
Espero haberme expresado correctamente.

Héctor.
Abuso de tu sabiduría...
Se pueden crear barras de menús en formularios?
O sea que si oculto la aplicación y muestro sólo un formulario, puede éste
último tener barras de menús?
Gracias de antemano.

"Héctor Miguel" escribió en el mensaje
news:

hola, Roberto !

Con que comando puedo 'agrupar' items de menu para que solo se muestren
al hacer click en el nombre del grupo?

suponiendo que por 'agrupar items de menu'... te refieres a comandos que
se ejecuten desde un SUB-menu -?-
como en: [menu] herramientas -> [sub-menu] proteger -> [comando] proteger
hoja
como en: [menu] insertar -> [sub-menu] nombre -> [comando] definir...
[etc. etc. etc.]
puedes agregar [como sub-menu] un control de tipo 'msoControlPopup' -> a
algun menu 'existente'...
y agregar los comandos [abajo de o] al sub-menu con controles de tipo
'msoControlButton' ;)

el siguiente ejemplo [y solo como ejemplo]... agrega 1 sub-menu al menu
[existente] de la ayuda
y 'le cuelga' 3 comandos 'dirigidos' a 3 macros [similares por si quieres
usar bucles en lugar de uno a uno] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo 'normal' ==> Sub Agregar_comandos()
Eliminar_Comandos
With Application.CommandBars("Help")
With .Controls.Add(msoControlPopup, , , , True)
.BeginGroup = True
.Caption = "Mas opciones..."
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 1"
.OnAction = "Comando_1"
End With
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 2"
.OnAction = "Comando_2"
End With
With .Controls.Add(msoControlButton, , , , True)
.Caption = "Opcion 3"
.OnAction = "Comando_3"
End With
End With
End With
End Sub
Sub Eliminar_Comandos()
On Error Resume Next
Application.CommandBars("Help").Controls("Mas opciones...").Delete
End Sub
Sub Comando_1()
MsgBox "Accionando el comando 1..."
End Sub
Sub Comando_2()
MsgBox "Accionando el comando 2..."
End Sub
Sub Comando_3()
MsgBox "Accionando el comando 3..."
End Sub