====== OpenOffice / LibreOffice ======
===== Makro Fenster minimieren =====

<code vb>
Declare Function ShowWindow Lib "user32" _
    (ByVal lHwnd As Long, _
    ByVal lCmdShow As Long) As Boolean
    
sub MinimizeWindow
   dim frame
   dim window
   dim handle
   
    frame  = StarDesktop.getActiveFrame()
    window = frame.getContainerWindow()
    handle = window.getWindowHandle(dimarray(), 1) ' 1=WIN32
    'msgbox handle
    ShowWindow( handle, 2 )
    		'Hide 		0 	SW_HIDE
		'Show 		5 	SW_SHOW
		'Minimize 	2 	SW_MINIMIZE
		'Maximize	3 	SW_MAXIMIZE 
   
end sub
</code>
[[https://forum.openoffice.org/en/forum/viewtopic.php?t=32094|Quelle]]\\
{{:openoffice:macros:fullscreen.ods|}}