Merci François, La macro fonctionne très bien pour l'outil "standard" mais la barre "formatage" reste visible. Yannick
----- Original Message ----- From: "Francois Gatto" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, March 09, 2007 11:31 AM Subject: Re: [users-fr] affichage des barres d outils > rens-ggd85.la-roche-sur-yon a écrit : > > bonjour, > > j'ai un petit souci que je n'arrive pas à gèrer : > > j'ai créée, d'après un fichier base de données Open 2.0 un formulaire.odt. > > Dans ce formulaire j'ai créé également une macro "ouverture de documentet" > > une macro "fermeture de document" qui annule la macro "ouverture". > > Je voudrais que la macro "ouverture de document" puisse empêcher l'affichage > > systématique de la barre d'outils "formatage" et la barre d'outils "normal". > > J'ai essayé mais ces barres s'affichent systématiquement sur le formulaire. > > Comment faire? cette macro est t'elle possible ou existe t'il une autre > > manip? > > Merci > > Yannick > > > > Peut-être cela t'aidera t-il : > > Sub ShowHide_Bar > 'Pour OOo V2 > dim sUrl as string > dim oFlm as variant > sUrl = "private:resource/toolbar/standardbar" > oFlm = ThisComponent.CurrentController.Frame.LayoutManager > > ' private:resource/toolbar/alignmentbar > ' private:resource/toolbar/arrowshapes > ' private:resource/toolbar/basicshapes > ' private:resource/toolbar/calloutshapes > ' private:resource/toolbar/colorbar > ' private:resource/toolbar/drawbar > ' private:resource/toolbar/drawobjectbar > ' private:resource/toolbar/extrusionobjectbar > ' private:resource/toolbar/fontworkobjectbar > ' private:resource/toolbar/fontworkshapetypes > ' private:resource/toolbar/formatobjectbar > ' private:resource/toolbar/formcontrols > ' private:resource/toolbar/formdesign > ' private:resource/toolbar/formsfilterbar > ' private:resource/toolbar/formsnavigationbar > ' private:resource/toolbar/formsobjectbar > ' private:resource/toolbar/formtextobjectbar > ' private:resource/toolbar/fullscreenbar > ' private:resource/toolbar/graphicobjectbar > ' private:resource/toolbar/insertbar > ' private:resource/toolbar/insertcellsbar > ' private:resource/toolbar/insertobjectbar > ' private:resource/toolbar/mediaobjectbar > ' private:resource/toolbar/moreformcontrols > ' private:resource/toolbar/previewbar > ' private:resource/toolbar/standardbar > ' private:resource/toolbar/starshapes > ' private:resource/toolbar/symbolshapes > ' private:resource/toolbar/textobjectbar > ' private:resource/toolbar/toolbar > ' private:resource/toolbar/viewerbar > > if oFlm.IsElementVisible(sUrl) then > oFlm.hideElement(sUrl) > else > oFlm.showElement(sUrl) > endif > end sub > > Francois > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -------------------------------------------------------------------------- ------------- > Orange vous informe que cet e-mail a ete controle par l'anti-virus mail. > Aucun virus connu a ce jour par nos services n'a ete detecte. > > > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
