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]
