[RESUELTO] Ocultar barra de Menús

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
roliwar
Mensajes: 52
Registrado: Vie Feb 25, 2011 1:22 am

[RESUELTO] Ocultar barra de Menús

Mensaje 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.
Última edición por roliwar el Vie Mar 04, 2011 10:23 pm, editado 1 vez en total.
OpenOffice 3.1 en Windows Seven
Cascabel
Mensajes: 283
Registrado: Mié Nov 11, 2009 10:53 am

Re: Ocultar barra de Menús

Mensaje 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
OOo 3.3.0: OOO330m20 (Build:9567) en WXP+SP3 y en Ubuntu 10.10
Avatar de Usuario
eltete
Mensajes: 261
Registrado: Lun Oct 25, 2010 8:47 pm
Ubicación: Sant Cugat del Vallés - España

Re: Ocultar barra de Menús

Mensaje 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
Win XP SP3 OpenOffice 3.2.1
roliwar
Mensajes: 52
Registrado: Vie Feb 25, 2011 1:22 am

Re: Ocultar barra de Menús

Mensaje 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.
OpenOffice 3.1 en Windows Seven
Responder