Macro auto executável ao abrir planilha Calc

Existe alguma maneira de macro auto executável ao abrir uma planilha Calc. Estou montando um controle de Gastos e toda a navegação entre as planilha estão em botões, gostaria de auto executar “Tela inteira” (FullScreen), ao inicial o arquivo.

Encontrei informação sobre Excel, nomeando a macro para “auto-open”, existe algo parecido no Calc.


Olivier, fiz a macro usando WinXP com o gravador, fica diferente da informada. Fiz o procedimento de acionar a Macro Ao iniciar o aplicativo, não funcionou. E ao executar no Ubuntu(14.04.3) a planilha fica embaixo das bordas lateral esquerda e superior, sabe o motivo.

Visão normal.
Seleção_004.png

Visão telainteira
Seleção_005.png

O gravador de macros é o ultimo recurso que eu usaria. Teste minha solução pois ela foi escrita com a API do LibreOffice e funciona. Alem disso eu informei que o evento a ser acionado foi “Ao abrir o arquivo”. Se fizer de seu jeito (Ao inicia o aplicativo) vai forçar a tela inteira cada vez que abrir o LibreOffice com qualquer arquivo.

Ops… só vi na imagem, o evento selecionado, não li o texto abaixo. WinXP funcionou, vou testar no Ubuntu e já volto…

Você terá talvez de cria uma macro para voltar a tela normal quando fechar sua planilha. Tente o evento “Ao preparar para fechar o documento” (não testei).

Voltei… funciona, perfeito…Para voltar a Tela Normal coloquei por botão, “Sair do aplicativo” o usuário aciona, quando terminar de usar.

Claro.

Associe sua macro a um dos eventos do LibreOffice.

Vá em Ferramentas - Personalizar - Eventos, conforme a caixa de dialogo abaixo:

No caso, associe sua macro ao evento Ao abrir o documento.

IMPORTANTE 01: Embaixo dessa caixa de diálogo, escolha o arquivo aberto para onde vc deve salvar a personalização.

IPORTANTE 02: Melhor sua macro estar dentro do próprio arquivo, assim será levada facilemente para outro computador.

A macro para colocar em full screen é a seguinte:

Sub AbreTelaInteira
oSheet = ThisComponent.Sheets.getByName("Planilha 1")
oController = ThisComponent.CurrentController

With oController
    .setActiveSheet(oSheet)
    .ColumnRowHeaders = False
    .SheetTabs = False
    .Frame.LayoutManager.HideCurrentUI = True
End With
End Sub

Para sair da tela inteira : Ctlr + Shift + J

1 Like