Re: [prog] Masquer toutes les barres d'outils

[Jovial]

Bonjour
regarde ici: http://www.oooforum.org/forum/viewtopic.phtml?t=6890
Sur 1.1.2 le code suivant fonctionne:

Sub MasquerBarres
oFrame = ThisComponent.CurrentController.Frame
 Dim noArgs1()

 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")   
 dispatcher.executeDispatch(oFrame, ".uno:MenuBarVisible", "", 0, 
noArgs1())
 dispatcher.executeDispatch(oFrame, ".uno:ObjectBarVisible", "", 0, 
noArgs1())
 dispatcher.executeDispatch(oFrame, ".uno:OptionBarVisible", "", 0, 
noArgs1())         
 dispatcher.executeDispatch(oFrame, ".uno:NavigationBarVisible", "", 0, 
noArgs1())      
 dispatcher.executeDispatch(oFrame, ".uno:StatusBarVisible", "", 0, 
noArgs1())         
 dispatcher.executeDispatch(oFrame, ".uno:ToolBarVisible", "", 0, 
noArgs1())      
 dispatcher.executeDispatch(oFrame, ".uno:MacroBarVisible", "", 0, 
noArgs1())
 dispatcher.executeDispatch(oFrame, ".uno:FunctionBarVisible", "", 0, 
noArgs1())
                                            
 'on CalcFrames
 dispatcher.executeDispatch(oFrame, ".uno:InputLineVisible", "", 0, 
noArgs1())
End sub

Sub AfficheBarres
oFrame = ThisComponent.CurrentController.Frame
 Dim noArgs1()

 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")   
 dispatcher.executeDispatch(oFrame, ".uno:MenuBarVisible", "", 1, 
noArgs1())
 dispatcher.executeDispatch(oFrame, ".uno:ObjectBarVisible", "", 1, 
noArgs1())
 dispatcher.executeDispatch(oFrame, ".uno:OptionBarVisible", "", 1, 
noArgs1())         
 dispatcher.executeDispatch(oFrame, ".uno:NavigationBarVisible", "", 1, 
noArgs1())      
 dispatcher.executeDispatch(oFrame, ".uno:StatusBarVisible", "", 1, 
noArgs1())         
 dispatcher.executeDispatch(oFrame, ".uno:ToolBarVisible", "", 1, 
noArgs1())      
 dispatcher.executeDispatch(oFrame, ".uno:MacroBarVisible", "", 1, 
noArgs1())
 dispatcher.executeDispatch(oFrame, ".uno:FunctionBarVisible", "", 1, 
noArgs1())
                                            
 'on CalcFrames
 dispatcher.executeDispatch(oFrame, ".uno:InputLineVisible", "", 1, 
noArgs1())
End sub
Jluc

Arnaud POUSSIER a écrit :

Bonjour à tous,
 
Est-il possible de masquer toutes les barres d'outils présente à 
l'ouverture d'un fichier et les retrouver à la fermeture du fichier.
J'avais la macro pour Excel, mais bien évidement incompatibilité totale.
 
Merci de votre aide.
 
Bonne journée
 
Arnaud



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]