Propiedad OLEMenuGroup
Devuelve o establece el grupo de menús al que pertenece el control emergente de la barra de comandos cuando el grupo de menús del servidor OLE se combina con el grupo de menús de un cliente OLE, es decir, cuando un objeto del tipo aplicación contenedora se incrusta en otra aplicación. MsoOLEMenuGroup de Lectura/Escritura.
| MsoOLEMenuGroup puede ser una de estas constantes de MsoOLEMenuGroup. |
| msoOLEMenuGroupContainer |
| msoOLEMenuGroupEdit |
| msoOLEMenuGroupFile |
| msoOLEMenuGroupHelp |
| msoOLEMenuGroupNone |
| msoOLEMenuGroupObject |
| msoOLEMenuGroupWindow |
Nota Esta propiedad es sólo de lectura para controles integrados.
Comentarios
Esta propiedad permite que las aplicaciones complementarias especifiquen cómo serán representados sus controles de barra de comandos en la aplicación Office. Si ni la aplicación contenedora ni el servidor contienen barras de comandos, se producirá una combinación de menús OLE normal. Se combinarán la barra de menús y todas las barras de herramientas del servidor y ninguna de las barras de herramientas del contenedor. Esta propiedad sólo es relevante para controles emergentes de la barra de menús ya que los menús se combinan por categorías de grupos de menús.
Si las dos aplicaciones que se combinan contienen barras de comandos, los controles de barras de comandos se combinan de acuerdo con la propiedad OLEUsage.
Ejemplo
Este ejemplo comprueba la propiedad OLEMenuGroup de un nuevo control emergente personalizado en la barra de comandos denominada "Custom" y establece la propiedad en msoOLEMenuGroupNone.
Set myControl = CommandBars("Custom").Controls _
.Add(Type:=msoControlPopup,Temporary:=False)
myControl.OLEMenuGroup = msoOLEMenuGroupNone