Pergunte aqui
1

Macro para ocultar/exibir determinadas barras de ferramentas

perguntadas 2018-06-28 00:25:33 +0200

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

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?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2018-06-28 00:48:42 +0200

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

https://wiki.documentfoundation.org/i...

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

editar assinalar como ofensivo Excluir Link mais

Comentários

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.

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2018-07-01 21:29:56 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-06-28 00:25:33 +0200

Lidas: 67 vezes

Última atualização: Jun 28 '18