Página 1 de 1
[RESUELTO] Ocultar barra de Menús
Publicado: Vie Mar 04, 2011 4:31 pm
por roliwar
Hola. Estoy incursionando en el mundo de OpenOffice a nivel de macros, y quisiera saber si alguien sabe si es posible ocultar la barra de menus, no me refiero a una barra de herramientas sino a los menus 'Archivo', 'Editar, 'Ver', etc. Aclaro que no me sirve la opción de pantalla completa porque necesito mostrar las barras de formato y otras, la que necesito desactivar es la de Menús, o en su defecto, poder inactivar las opciones de Nuevo, Cerrar y Guardar.
Gracias de antemano.
Re: Ocultar barra de Menús
Publicado: Vie Mar 04, 2011 8:56 pm
por Cascabel
Macros para ocultar y mostrar la barra de menú mediante botones de un formulario (no especificas cuándo la quieres ocultar, es decir, con qué evento ejecutarás la macro):
Código: Seleccionar todo
Sub sBotonOcultarBarraMenu(Event As Object)
Dim oForm As Object
Dim oLayMan As Object
oForm=Event.Source.Model.Parent
oLayMan=oForm.Parent.Parent.CurrentController.Frame.LayoutManager
oLayMan.HideElement("private:resource/menubar/menubar")
End Sub
Sub sBotonMostrarBarraMenu(Event As Object)
Dim oForm As Object
Dim oLayMan As Object
oForm=Event.Source.Model.Parent
oLayMan=oForm.Parent.Parent.CurrentController.Frame.LayoutManager
oLayMan.ShowElement("private:resource/menubar/menubar")
End Sub
Re: Ocultar barra de Menús
Publicado: Vie Mar 04, 2011 9:10 pm
por eltete
Si vas a Herramientas --> Personalizar --> Menús seleccionas el menú que quieras, Archivo, por ejemplo, vas marcando cada Entrada , clicas sobre Modificar y Borras. Esto te dejará vacíos de contenido los menús que quieras
Re: Ocultar barra de Menús
Publicado: Vie Mar 04, 2011 10:22 pm
por roliwar
Cascabel escribió:Macros para ocultar y mostrar la barra de menú mediante botones de un formulario (no especificas cuándo la quieres ocultar, es decir, con qué evento ejecutarás la macro):
Código: Seleccionar todo
Sub sBotonOcultarBarraMenu(Event As Object)
Dim oForm As Object
Dim oLayMan As Object
oForm=Event.Source.Model.Parent
oLayMan=oForm.Parent.Parent.CurrentController.Frame.LayoutManager
oLayMan.HideElement("private:resource/menubar/menubar")
End Sub
Sub sBotonMostrarBarraMenu(Event As Object)
Dim oForm As Object
Dim oLayMan As Object
oForm=Event.Source.Model.Parent
oLayMan=oForm.Parent.Parent.CurrentController.Frame.LayoutManager
oLayMan.ShowElement("private:resource/menubar/menubar")
End Sub
GRACIAS cascabel!! funcionó perfectamente.