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.