Macro para ocultar/exibir determinadas barras de ferramentas

[LeandroVieira]

Olá pessoal!
Procurando alguma macro para ocultar/exibir barras de ferramentas no Calc encontrei um código do fórum OpenOffice:

Sub hideallBars()
Dim doc As Object
Dim frame As Object
Dim lmgr As Object
Dim LayoutElements(4) As String
Dim i As Integer

LayoutElements(0) = "private:resource/toolbar/standardbar"
LayoutElements(1) = "private:resource/toolbar/findbar"
LayoutElements(2) = "private:resource/toolbar/formatobjectbar"
LayoutElements(3) = "private:resource/menubar/menubar"
LayoutElements(4) = "private:resource/statusbar/statusbar"

doc = ThisComponent
frame = doc.CurrentController.Frame
lmgr = frame.LayoutManager
for i = 0 to 4
lmgr.hideElement(LayoutElements(i))
next i
End Sub 

Porém o mesmo não supre toda minha necessidade, pois tenho que ocultar a de Controle de Formulário e a que personalizei nomeando como Macros, quais argumentos devo inserir para fazer isso, tem alguma lista que especifica o argumento para exibir determinada barra de ferramentas?

[schiavinatto]

De uma olhada neste modelo, é algo parecido que necessita ?

https://wiki.documentfoundation.org/images/c/c2/Agendamento_de_Consultas.ods

Desta maneira eliminei todas barras, menus réguas etc, ficou com aparência de Aplicativo.

[LeandroVieira]

Muito obrigado, pela resposta, essa resolveria parcialmente, mas ainda não seria isso, estou pensando em algo do tipo: Criar uma macro que oculte/ exiba determinadas barras de ferramentas, tanto as padrões do programa quanto as personalizadas, acredito que isso agilizaria no desenvolvimento delas uma vez compartilhada com as demais.