[RESUELTO] Ocultar barras de herramientas con una macro

[jmoterov]

¡Hola!
Este es mi primer contacto con este foro.
Necesito saber como ocultar barras de herramientas con una macro.
Agradezco vuestra ayuda.
Saludos.

[FJCC-ES]

Este código oculta por 2s cada barra de herramientas que está visible y después oculta la barra “campos de control de formulario”

Código: Seleccionar todo

Sub Main
	
  oCurrentController = ThisComponent.CurrentController
  oFrame = oCurrentController.Frame
  oLayoutManager = oFrame.LayoutManager
  aBarras = oLayoutManager.getElements()  
  For i = 0 to UBOUND(aBarras)
  Barra = aBarras(i)
  Print Barra.ResourceURL
  oInterface = Barra.RealInterface
  If Barra.ResourceURL <> "private:resource/menubar/menubar" then 'menubar no tiene el metodo setVisible
  	oInterface.setVisible(False)
  	Wait 2000
  	oInterface.SetVisible(True)  
  end if
  Next i
  FormControls = oLayoutManager.getElement("private:resource/toolbar/formcontrols")
  oRealInterface =FormControls.RealInterface
  oRealInterface.setVisible(False)
  Wait 2000
  oRealInterface.setVisible(True)
End Sub

[jmoterov]

¡Hola, otra vez!
Gracias, FJCC-ES, no es exactamente lo que quiero porque lo que necesito es que al abrir la hoja de cálculo que he diseñado se oculten las barras -para ganar espacio en pantalla y para que se vea más limpia- del mismo modo que cuando las desmarcas en el menu Ver / Barras de herramientas, y que cuando salga del libro vuelvan a quedar activas. Bueno, eso creo que ya lo arreglo yo pero lo de ocultarlas / desactivarlas o lo que sea, no. No sé hacerlo.

[mauricio]

Por que no muestras en Pantalla Completa??

Saludos

[jmoterov]

Perdón, perdón a todos.
Desconocía ese comando Pantalla completa.
Perdón, otra vez.
Con eso soluciono.
De todos modos ¿puedo programar en una macro la ocultación "definitiva" de una barra de herramientas? ¿Cómo?
Gracias.

[mauricio]

Hola...

El código que te mostró mi amigo Francisco trabaja correctamente, pero toma en cuenta que no oculta de forma definitiva si no controlada, prueba con el ejemplo que te anexo...

Saludos

[jmoterov]

Muchísimas gracias.
Con lo de Pantalla completa es suficiente, la activo al abrir el archivo y la desactivo al salir. Perfecto.
Con vuestro permiso, me guardo vuestro código para ocasiones futuras.
Saludos.