Pergunte aqui
1

Personalizando Calc como Aplicativo

perguntadas 2017-02-13 01:55:08 +0100

updated 2017-05-24 18:38:01 +0100

imagem do gravatar de Grafeno

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)

a 2a. é para retornar ao normal.

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.

arquivo exemplo

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

2

respondidas 2017-02-18 17:18:21 +0100

imagem do gravatar de Grafeno

updated 2017-02-18 17:19:48 +0100

Boa tarde,

Possível solução: devolver o foco à janela acrescentado a linha .Frame.ComponentWindow.SetFocus()

'========================================================================='
Sub AbreTelaInteiraDesligar
'========================================================================='
'oSheet = ThisComponent.Sheets.getByName("ESCOLHER ABA")'
oController = ThisComponent.CurrentController

With oController
   ' .setActiveSheet(oSheet)'
    .ColumnRowHeaders = True
    .SheetTabs = True
    .Frame.LayoutManager.HideCurrentUI = False
    .Frame.ComponentWindow.SetFocus() '<<<< Devolver o foco a janela <<<<'
End With
End Sub

Testado no LibreOffice 5.2.5.1, Ubuntu 16.04 LTS

Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Oi @Grafeno, tinha certeza que seria a sua resposta, obrigado novamente.

Abraço

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-02-19 02:30:47 +0100 )editar

Gilberto, é sempre um prazer ajudar. Obrigado pelo retorno!

imagem do gravatar de GrafenoGrafeno ( 2017-02-19 15:39:25 +0100 )editar

Aproveitando o assunto abordado, tem como alterar o titulo da janela quando ativamos o modo "aplicativo"? pois se repararmos ainda continua aparecendo o nome do arquivo - Libre Office Calc...

imagem do gravatar de Juan.rbaJuan.rba ( 2017-02-21 17:52:07 +0100 )editar
1

@Juan.rba, para alterar o título da janela inclua a linha .Frame.Title = "Novo Título" . Atte, Grafeno.

imagem do gravatar de GrafenoGrafeno ( 2017-02-22 15:45:16 +0100 )editar

muito obrigado @Grafeno.

imagem do gravatar de Juan.rbaJuan.rba ( 2017-02-22 17:40:14 +0100 )editar

só mais uma duvida, é possível alterar o ícone?

imagem do gravatar de Juan.rbaJuan.rba ( 2017-02-22 18:41:46 +0100 )editar

Deve ser possível, mas eu desconheço como...

imagem do gravatar de GrafenoGrafeno ( 2017-02-25 23:31:20 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-02-13 01:55:08 +0100

Lidas: 42 vezes

Última atualização: Feb 18