Pergunte aqui
0

Comando para Maximizar tela do LibreOffice.

perguntadas 2021-01-13 13:05:54 +0100

imagem do gravatar de Schiavinatto

Alguém conhece o comando, via Basic, de Maximizar a tela do LIbreOffice.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

0

respondidas 2021-01-21 19:47:02 +0100

imagem do gravatar de Schiavinatto

updated 2021-01-21 19:47:46 +0100

Olá @Jedison,

Encontrei aqui: https://ask.libreoffice.org/en/questi...

Dei uma tirada de "gordura" .....

Sub Maximized
    ThisComponent.getCurrentController().getFrame().ContainerWindow.IsMaximized = True
End Sub

Sub Minimized
    ThisComponent.getCurrentController().getFrame().ContainerWindow.IsMinimized = True
End Sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Show de bola!!!

imagem do gravatar de JedisonJedison ( 2021-01-21 21:31:00 +0100 )editar
0

respondidas 2021-01-20 14:41:54 +0100

imagem do gravatar de Jedison

Oi Schiavinatto.

Não sei se é isso que você quer, mas as macros abaixo servem respectivamente para desligar e ligar os painéis do CALC:

   sub LimpaTela
rem ----------------------------------------------------------------------
rem define variaveis
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem Obtém acesso ao documento
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ViewRowColumnHeaders"
args1(0).Value = false
   dispatcher.executeDispatch(document, ".uno:ViewRowColumnHeaders", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "InputLineVisible"
args2(0).Value = false
    dispatcher.executeDispatch(document, ".uno:InputLineVisible", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "StatusBarVisible"
args3(0).Value = false
    dispatcher.executeDispatch(document, ".uno:StatusBarVisible", "", 0, args3())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleSheetGrid", "", 0, Array())

end sub


sub RecuperaTela
rem ----------------------------------------------------------------------
rem define variáveis
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem Toma o controle do documento
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "InputLineVisible"
args1(0).Value = true
    dispatcher.executeDispatch(document, ".uno:InputLineVisible", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StatusBarVisible"
args2(0).Value = true
    dispatcher.executeDispatch(document, ".uno:StatusBarVisible", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleSheetGrid", "", 0, Array())

end sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Ah, e se você quer TELA INTEIRA, inclua isso para Ativar:

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FullScreen"
args1(0).Value = true
    dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())

E isso para desativar (ficará acessível o botão flutuante TELA INTEIRA, que pode ser clicado em qualquer momento):

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FullScreen"
args2(0).Value = false
    dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args2())
imagem do gravatar de JedisonJedison ( 2021-01-20 14:55:35 +0100 )editar

Ola @Jedison, estes comando os conheço, o FullScrren, tira o Menu e as Barras de ferramenta etc.. Só necessito realmente Maximizar a tela que esta visível.

Tenho esta macro para tela inteira ( chamo de Modo Aplicativo ) toda navegação entre planilhas é necessário Botões/macros ou Hiperligações.

Continua

imagem do gravatar de SchiavinattoSchiavinatto ( 2021-01-20 16:58:16 +0100 )editar

Continuação

Sub FullScreenON
' xplan = planilha de aberura ( menu do arquivo )
' xtitulo = título que mostra no cabeçãlho da tela
'Para abrir TELA INTEIRA na abertura do arquivo
'Ferramentas / Personalizar / Eventos
'Ao abrir documento
'ligar a MACRO ok.
Dim oSheet As Object
Dim oController As Object
dim args2(0) as new com.sun.star.beans.PropertyValue : args2(0).Name = "FullScreen" : args2(0).Value = true
CreateUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:FullScreen", "", 0, args2())
With ThisComponent.CurrentController
.setActiveSheet(ThisComponent.Sheets.getByName( "Planilha" )) '<== Planilha a Visualizar Inicialmente.
.ColumnRowHeaders = False
.SheetTabs = False
.Frame.LayoutManager.HideCurrentUI = True
.HorizontalScrollBar = False
.VerticalScrollBar = False 
'.Frame.Title = "Título no modo Aplicativo"
end With
end Sub
imagem do gravatar de SchiavinattoSchiavinatto ( 2021-01-20 16:58:43 +0100 )editar

E esta para voltar ao normal ( Modo Edição )

Sub FullScreenOFF
Dim oController As Object
dim args2(0) as new com.sun.star.beans.PropertyValue : args2(0).Name = "FullScreen" : args2(0).Value = false
CreateUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:FullScreen", "", 0, args2())
With ThisComponent.CurrentController
.ColumnRowHeaders = True
.SheetTabs = True
.Frame.LayoutManager.HideCurrentUI = False
.HorizontalScrollBar = False
.VerticalScrollBar = False 
.Frame.ComponentWindow.SetFocus() '<<<< Devolver o foco a janela <<<<'
End With
End Sub
imagem do gravatar de SchiavinattoSchiavinatto ( 2021-01-20 16:59:56 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2021-01-13 13:05:54 +0100

Lidas: 18 vezes

Última atualização: Jan 21