Bonsoir Yannick,
As tu bien essayé avec la textobjectbar ?
Francois
rens-ggd85.la-roche-sur-yon a écrit :
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]
