[pt-br-usuarios] Personalizando Calc como Aplicativo

classic Classic list List threaded Threaded
1 message Options
Gilberto Schiavinatto Gilberto Schiavinatto
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[pt-br-usuarios] Personalizando Calc como Aplicativo

Montei um aplicativo que toda a navegação entre abas é por botões.

Tenho duas macros principais: 1a. Abre tela inteira ( oculta bordas,
menus, abas)

'=========================================================================
Sub AbreTelaInteiraLigar
'=========================================================================
'oSheet = ThisComponent.Sheets.getByName("ESCOLHER ABA")
oController = ThisComponent.CurrentController
With oController
     '.setActiveSheet(oSheet)
     .ColumnRowHeaders = False
     .SheetTabs = False
     .Frame.LayoutManager.HideCurrentUI = True
End With
end sub


a 2a. é para retornar ao normal.

'=========================================================================
Sub AbreTelaInteiraDesligar
'=========================================================================
'oSheet = ThisComponent.Sheets.getByName("ESCOLHER ABA")
oController = ThisComponent.CurrentController
With oController
    ' .setActiveSheet(oSheet)
     .ColumnRowHeaders = True
     .SheetTabs = True
     .Frame.LayoutManager.HideCurrentUI = False
End With
End Sub


Porém é preciso clicar em uma célula qualquer para mostrar as barras de
ferramentas, já tentei inserir ir para uma célula, mas não funciona.

Pergunta qual comando que falta para ativar as Barras de ferramentas.


--
Você está recebendo e-mails da lista [hidden email]
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para [hidden email]
# Cancelar sua assinatura: mande e-mail vazio para:
  [hidden email]
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/
Loading...