Minimizar e fechar

[joaorochaj]

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

[schiavinatto]

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.

[joaorochaj]

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

[RonaldoElias]

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

[schiavinatto]

@joaorochaj, Veja complemento em minha resposta.

[joaorochaj]

Eu vi e ja estou usando @Giberto obrigado !