 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
5 messages in org.openoffice.fr.progRe: [prog] Masquer toutes les barres ...| From | Sent On | Attachments |
|---|---|---|
| Arnaud POUSSIER | Jul 4, 2005 1:03 am | |
| Jovial | Jul 4, 2005 1:52 am | |
| Jovial | Jul 4, 2005 2:08 am | |
| Arnaud POUSSIER | Jul 4, 2005 2:09 am | |
| Arnaud POUSSIER | Jul 4, 2005 4:00 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] Masquer toutes les barres d'outils | Actions... |
|---|---|---|
| From: | Jovial (o.jo...@free.fr) | |
| Date: | Jul 4, 2005 1:52:53 am | |
| List: | org.openoffice.fr.prog | |
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