Pergunte aqui
0

Ocultar todas as planilhas

perguntadas 2019-08-01 23:39:38 +0200

imagem do gravatar de Leandro Vieira

updated 2019-08-04 23:43:43 +0200

Olá, pessoal! Parece simples, mas alguém sabe como ocultar todas as planilhas, pois sempre fica uma em exibição e não oferece a opção de ocultá-la, o que quero também é ocultar a barra onde elas se localizam.

Outro sim, tentei executar as macros para acessar as planilhas ocultas e não funcionam (como hiperlink).

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2019-08-02 01:13:10 +0200

Ola @Leandro Vieira, tenho estas 2 macros uma aciona modo aplicativo, só fica a planilha (células) todo o resto e subtraído da tela a outra é para retornar.

'=====================================================================
Sub TelaInteiraLigar
'=====================================================================
    'Para abrir TELA INTEIRA na abertura do arquivo
    'Ferramentas / Personalizar / Eventos
    'Ao abrir documento
    'ligar a MACRO ok.
'=====================================================================
dim document, dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    Call IrPara "Inicio.A1"
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())
Dim oController As Object
oController = ThisComponent.CurrentController
With oController
    .ColumnRowHeaders = False
    .SheetTabs = False
    .Frame.LayoutManager.HideCurrentUI = True
end With
end sub

'=====================================================================
Sub TelaInteiraDesligar
'=====================================================================
    'Para desligar TELA INTEIRA, para de Edição
    'Criar um Botão, ligado nesta Macro.
'=====================================================================
dim document, dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")rem 
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())
Dim oController As Object
oController = ThisComponent.CurrentController
With oController
    .ColumnRowHeaders = True
    .SheetTabs = True
    .Frame.LayoutManager.HideCurrentUI = False
    .Frame.ComponentWindow.SetFocus() '<<<< Devolver o foco a janela <<<<'
End With
End Sub

Quanto as macro acessar planilhas ocultas, também não consegui.

Sobre ocultar todas as planilhas também tentei e a última fica sem opção de ocultar.

A saída foi Ocultar todas as Linhas e todas as Colunas, tenho estas macros linkadas em um MENU:

'================================================|
sub Menu_OcultarColunasRestantes   
' da atual até o Fim.
'================================================|
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoRightToEndOfDataSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())
end sub


'================================================|
sub Menu_OcultarLinhasRestantes 
' da atual até o Fim.
'================================================|
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())
end Sub

'======================================================================
sub Menu_LinhasOcultasMostrarTodas
'======================================================================
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A:$A"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:ShowRow", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args2())
end sub


'======================================================================
Sub Menu_ColunasOcultasMostrarTodas
'======================================================================
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A:$AMJ"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:ShowColumn", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args2())
end Sub

-----------------------------------------------------------------------------

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

Agradeço pela resposta, me atentei somente em ocultar essa barra, sem nenhuma aba visível, todavia vou tentar melhorar a resolução ou zoom quando em tela cheia acionada pela macro.

imagem do gravatar de Leandro VieiraLeandro Vieira ( 2019-08-02 01:47:19 +0200 )editar

@Leandro Vieira, sobre a resolução tenho uma pergunta pendente.

https://ask.libreoffice.org/pt-br/que...

Fiz a mesma pergunta na ask, inglesa e na espanhola e nada.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-08-02 05:08:31 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-08-01 23:39:38 +0200

Lidas: 33 vezes

Última atualização: Aug 02