Personalizando Calc como Aplicativo - II

perguntadas 2017-03-04 02:14:00 +0200

updated 2019-04-08 15:41:17 +0200

Na Macro abaixo, tem possibilidade de definir o tamanho da janela em pixel ou percentual da tela, e centralizar na tela ?

Ou melhor fixar o tamanho da janela para não houver alteração pelo usuário ?

Da maneira que esta, a tela é aberta conforme o último salvamento do arquivo.

'========================================================================
Sub AbreTelaInteiraLigar
'=========================================================================
'oSheet = ThisComponent.Sheets.getByName("ESCOLHER ABA")
oController = ThisComponent.CurrentController
With oController
    '.setActiveSheet(oSheet)
    .ColumnRowHeaders = False
    .SheetTabs = False
    .Frame.LayoutManager.HideCurrentUI = True
    .Frame.Title = "Titulo na Janela do Aplicativo" 
    .HorizontalScrollBar = False
    .VerticalScrollBar = False
End With
end sub

.E para retornar:

'=========================================================================
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 <<<<'
    .HorizontalScrollBar = True
    .VerticalScrollBar = True
End With
End Sub

Veja arquivo exemplo.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

como desfaço isso? mais essa macro é muito útil.

imagem do gravatar de claudeciclaudeci ( 2017-08-02 01:46:32 +0200 )editar

Para sair da tela inteira : Ctlr + Shift + J. Ou em um Botão ligue a macro que inclui acima..tem arquivo exemplo...

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2017-08-02 04:26:35 +0200 )editar

deu certo, muito obrigado!!!

imagem do gravatar de claudeciclaudeci ( 2017-08-03 00:39:47 +0200 )editar
1

Bom dia, apenas para complementar a macro .HorizontalScrollBar = False .VerticalScrollBar = False para as barras horizontal e vertical

imagem do gravatar de Júnio VieiraJúnio Vieira ( 2019-04-08 14:34:21 +0200 )editar

Ok, @Júnio Vieira, já incorporado ao código, obrigado.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-04-08 15:42:25 +0200 )editar

Ola @Júnio Vieira, sobre estes comando, conhece algum lugar que tenha a relação deles ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-04-08 16:30:10 +0200 )editar

Bom dia Gilberto, infelizmente não sei, alguns comandos pesquiso como fazer no vba (excel) e faço algumas adaptações para ver se funciona, as vezes dá certo.

imagem do gravatar de Júnio VieiraJúnio Vieira ( 2019-04-10 13:05:19 +0200 )editar

Ok, obrigado.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-04-10 14:13:45 +0200 )editar