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
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
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: Minimize fullscreen mode with URL.. in Button control
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.
Mas tem macro para minimizar a planilha ?Porque eu quero abrir a planilha ja minimizado para o Dialogo ficar em destaque.
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
Eu vi e ja estou usando @Giberto obrigado !