Pergunte aqui
1

Minimizar e fechar

perguntadas 2018-07-24 01:02:05 +0200

imagem do gravatar de joaorochaj

updated 2018-07-26 01:08:07 +0200

imagem do gravatar de Grafeno

Tem alguma macro que minimiza o Office CALC e Fecha o Calc?

 Sub FecharPN()

  oDialogo1.EndExecute()

  SaveChanges = True
  ThisWorkbook.Close

End Sub

Estou utilizando o Codigo acima mas esta dando erro quando vai executar

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

2

respondidas 2018-07-24 02:15:54 +0200

updated 2018-07-26 02:56:15 +0200

Ola @joaorochaj, eu uso estas:

'===============================================
Sub ArquivoFecharSemSalvar      'Arquivo ativo.
'===============================================
Dim document As Object
document = thisComponent
document.close(true)
End Sub

'=========================================================================
sub ArquivoSalvarFechar     'Arquivo ativo.
'=========================================================================
Dim document As Object
Dim dispatcher As Object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:CloseWin", "", 0, Array())
end sub

'=========================================================================
sub ArquivoSalvar     'Arquivo ativo.
'=========================================================================
Dim document As Object
Dim dispatcher As Object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
end sub

'================================================|
Sub Minimizar
'================================================|
Dim oContainerWindow As Variant
    oContainerWindow = thisComponent.CurrentController.Frame.ContainerWindow
    oContainerWindow.IsMinimized = True
End Sub

Minimizar encontrei aqui: https://ask.libreoffice.org/en/questi...


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

Mas tem macro para minimizar a planilha ?Porque eu quero abrir a planilha ja minimizado para o Dialogo ficar em destaque.

imagem do gravatar de joaorochajjoaorochaj ( 2018-07-24 03:06:38 +0200 )editar
1

Você pode usar também a seguinte função:

Function FecharNaoSalvar()
    On Error Goto Sair
    oDoc = ThisComponent
        If HasUnoInterfaces(oDoc, "com.sun.star.util.XCloseable") Then
            oDoc.close(True)
        Else
            oDoc.dispose()
        End if
    On Error Goto 0
    Exit Function
    Sair:
    MsgBox "Linha " & Str(Erl) & ": " & Error$, 176, "Erro: Falta de Parâmetro"
    On Error Goto 0
End Function
imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2018-07-24 15:59:24 +0200 )editar

@joaorochaj, Veja complemento em minha resposta.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-07-26 02:57:27 +0200 )editar

Eu vi e ja estou usando @Giberto obrigado !

imagem do gravatar de joaorochajjoaorochaj ( 2018-07-28 05:20:40 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-07-24 01:02:05 +0200

Lidas: 30 vezes

Última atualização: Jul 26