Je corrige car la macro fonctionne comme une bascule, c'est donc la même
qui affiche ou masque les barre, par contre attention il faut prévoir un
bouton pour tout réafficher, car on n'a même plus accès aux menu avec
Alt, alors que avec l'affichage plein écran on le conserve.
Jluc
Bonjour
regarde ici: http://www.oooforum.org/forum/viewtopic.phtml?t=6890
Sur 1.1.2 le code suivant fonctionne:
Sub AfficherMasquerBarres
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
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
5 messages in org.openoffice.fr.progRe: [prog] Masquer toutes les barres ...
