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.
[RESUELTO] Ocultar barra de Menús
[RESUELTO] Ocultar barra de Menús
Última edición por roliwar el Vie Mar 04, 2011 10:23 pm, editado 1 vez en total.
OpenOffice 3.1 en Windows Seven
Re: Ocultar barra de Menús
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
OOo 3.3.0: OOO330m20 (Build:9567) en WXP+SP3 y en Ubuntu 10.10
Re: Ocultar barra de Menús
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
Win XP SP3 OpenOffice 3.2.1
Re: Ocultar barra de Menús
GRACIAS cascabel!! funcionó perfectamente.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
OpenOffice 3.1 en Windows Seven