[Résolu] [Calc] Cacher les barres d'outils à l'ouverture ?

[sebz]

Bonjour,

J'ai trouvé comment cacher les barres outils sur le forum, mais je n'arrive pas à lancer la macro à l'ouverture de mon fichier Calc.

voilà le code :

Code : Tout sélectionner

Sub PysChargement
PysAfficher "private:resource/toolbar/drawbar", false
PysAfficher "private:resource/toolbar/formtextobjectbar", false
PysAfficher "private:resource/toolbar/formcontrols", false
PysAfficher "private:resource/toolbar/formdesign", false
PysAfficher "private:resource/toolbar/formsfilterbar", false
'PysAfficher "private:resource/toolbar/formsnavigationbar", false
PysAfficher "private:resource/toolbar/formsobjectbar", false
PysAfficher "private:resource/toolbar/moreformcontrols", false
PysAfficher "private:resource/toolbar/standardbar", false
PysAfficher "private:resource/toolbar/textobjectbar", false
End Sub

sub PysAfficher(PysNomBarre, PysVal)

dim oFrame as object, layout as object

oFrame = ThisComponent.CurrentController.Frame
layout = oFrame.LayoutManager

If PysVal Then
   layout.showElement(PysNomBarre)
Else
   layout.hideElement(PysNomBarre)
Endif

end sub

Comme vous pouvez le remarquer il y a d'abord une déclaration "PysChargement" puis "PysAfficher"

Lorsque que j'affecte "PysAfficher" à l'ouverture du fichier, cela ne fonctionne pas !

Avez vous une idée sur le sujet ?

[jeanmimi]

Bonjour,
As-tu regardé dans la sécurité des macros par
Outils > Options > OOo > Sécurité
si le niveau d'activation est correctement paramétré ?

Dans ce fichier exemple, avec les macros de PYS, la barre d'outils n'est pas affichée à l'ouverture du document :

[A_math]

bonjour Sebz,

Juste pour être sûr : tu affectes 'PysAfficher' à l'ouverture ou 'PysChargement'?

[jeanmimi]

C'est "PysChargement" mais pense à régler ton niveau de sécurité des Macros pour qu'elle soit activée à l'ouverture du document.

[sebz]

Merci pour votre aides,

Et merci Jeanmimi pour le fichier joint.

J'avais finalement réglé le souci en fin de journée, c'était pas un problème de sécurité Macro car j'avais rajouté le chemin des macros fiable dans les paramètres.

Et j'ai modifié le code, après l'avoir compris, PsyAfficher étant une fonction :

Code : Tout sélectionner

Sub PysOuvrir
PysAfficher ("private:resource/toolbar/formtextobjectbar", true)
PysAfficher ("private:resource/toolbar/standardbar", true)
PysAfficher ("private:resource/menubar/menubar", true)
PysAfficher ("private:resource/toolbar/toolbar", true)
PysAfficher ("private:resource/statusbar/statusbar", true)

End Sub

Sub PysFermer
PysAfficher ("private:resource/toolbar/formtextobjectbar", false)
PysAfficher ("private:resource/toolbar/standardbar", false)
PysAfficher ("private:resource/menubar/menubar", false)
PysAfficher ("private:resource/toolbar/toolbar", false)
PysAfficher ("private:resource/statusbar/statusbar", false)
End Sub

Function PysAfficher(PysNomBarre, PysVal)

dim oFrame as object, layout as object

oFrame = ThisComponent.CurrentController.Frame
layout = oFrame.LayoutManager

If PysVal Then
   layout.showElement(PysNomBarre)
Else
   layout.hideElement(PysNomBarre)
Endif

End Function

Mais j'ai un autre problème, je trouve pas le nom de la barre formule, car je souhaite la fermer aussi.

De plus, comment réouvrir ses barres d'outils, car apparaît les avoir fermer, celles-ci ne sont pas réouvertes dans d'autre fichier.

Et enfin j'ai associé PsyOuvrir, à un raccourci clavier pour réafficher les barres d'outils depuis le fichier.
Mais j'ai un message d'erreur "en anglais" quand je veux utiliser ce raccourci, genre "le nombre de paramètre est incorrecte".

Voilà je continue mes recherches.

[jeanmimi]

C'est une bonne idée d'avoir publié ton code.
Pour remettre l'affichage :
Affichage > Barre d'outils > (en bas de la fenêtre) Réinitialiser

Ces messages donnent une piste pour toutes les barres (assez radicale après test) :
http://user.services.openoffice.org/fr/ ... ule#p14959

[sebz]

C'est une bonne idée d'avoir publié ton code.
Pour remettre l'affichage :
Affichage > Barre d'outils > (en bas de la fenêtre) Réinitialiser

Merci de ton aide, ça réinitialise bien les barres d'outils, mais comment le faire à l'aide d'une macro à la fermeture du fichier ?

J'ai répondu à ma question voir le code "FormatageOuvrir"

J'ai avancé dans le code, la barre de formule se ferme ! et ça grâce au code générer par "l'enregistrement macro".

J'arrive aussi à réouvrir la barre de menu !

Voilà mon problème de barres d'outils est résolu
Je suis heureux de partager ce code!
C'est grâce à votre aide que j'y suis arrivé

Voici le code :

Code : Tout sélectionner

rem---------------------------------------Pour Ouvrir les barres d'outils et la barre de formule
Sub PysOuvrir
PysAfficher ("private:resource/toolbar/formtextobjectbar", true)
PysAfficher ("private:resource/toolbar/standardbar", true)
PysAfficher ("private:resource/menubar/menubar", true)
PysAfficher ("private:resource/toolbar/toolbar", true)
PysAfficher ("private:resource/statusbar/statusbar", true)
PysAfficher ("private:resource/toolbar/formatobjectbar", true)

rem ----------------------------------------------Pour ouvrir la barre de formule

dim document1   as object
dim dispatcher1 as object

document1   = ThisComponent.CurrentController.Frame
dispatcher1 = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "InputLineVisible"
args1(0).Value = true

dispatcher1.executeDispatch(document1, ".uno:InputLineVisible", "", 0, args1())

End Sub


rem---------------------------------------Pour Fermer les barres d'outils et la barre de formule
Sub PysFermer
PysAfficher ("private:resource/toolbar/formtextobjectbar", false)
PysAfficher ("private:resource/toolbar/standardbar", false)
PysAfficher ("private:resource/menubar/menubar", false)
PysAfficher ("private:resource/toolbar/toolbar", false)
PysAfficher ("private:resource/statusbar/statusbar", false)
PysAfficher ("private:resource/toolbar/formatobjectbar", false)


rem ----------------------------------------------Pour fermer la barre de formule

dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "InputLineVisible"
args1(0).Value = false

dispatcher.executeDispatch(document, ".uno:InputLineVisible", "", 0, args1())


End Sub

rem----------------------------------fonction pour ouvrir et fermer les barres d'outils

Function PysAfficher(PysNomBarre, PysVal)

dim oFrame as object, layout as object

oFrame = ThisComponent.CurrentController.Frame
layout = oFrame.LayoutManager

If PysVal Then
   layout.showElement(PysNomBarre)
Else
   layout.hideElement(PysNomBarre)
Endif

End Function


rem --------------------------------Pour afficher le menu à l'aide d'un raccourci clavier
Sub MenuAfficher 
dim oFrame1 as object, layout1 as object

oFrame1 = ThisComponent.CurrentController.Frame
layout1 = oFrame1.LayoutManager

layout1.showElement("private:resource/menubar/menubar")

End Sub


rem---------------------------------Pour réouvrir les barre d'outils et la barre de formule à la fermeture du fichier 
rem---------------------------------------- appliquer cette macro à l'événement "fermer le document"
Sub FormatageOuvrir
dim layout3 as object, oFrame3 as object


oFrame3 = ThisComponent.CurrentController.Frame
layout3 = oFrame3.LayoutManager

rem layout2.hideElement("private:resource/toolbar/formatobjectbar")
layout3.showElement("private:resource/toolbar/formatobjectbar")
layout3.showElement("private:resource/toolbar/standardbar")
layout3.showElement("private:resource/toolbar/toolbar")
layout3.showElement("private:resource/statusbar/statusbar")

dim document3   as object
dim dispatcher3 as object
rem ----------------------------------------------------------------------
rem get access to the document
document3   = ThisComponent.CurrentController.Frame
dispatcher3 = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "InputLineVisible"
args1(0).Value = true

dispatcher3.executeDispatch(document3, ".uno:InputLineVisible", "", 0, args1())


End Sub

Une petite précision

Veiller à ce que les barre d'outils soit présentes, lorsque vous créer un nouveau document Calc.

Sinon réinitialiser les barres d'outils et fermer Calc, pas la peine d'enregistrer le nouveau document.

Parceque si les barres d'outils ne sont pas présentes lorsque l'on ouvre un nouveau document calc , le code ne fonctionnera pas.

[tromelin]

Hello,
J'ai suivi le fil de discussion et cette macro est bien intéressante.
c'est quoi Pys... ?
1) est-il possible d'assigner la macro non pas à l'évènement "ouverture du classeur" mais à 1 bouton placé sur la feuille ?
2) A contrario, comment revenir à l'affichage des barres d'outils, toujours à partir d'un 2ème bouton ?
Merci de votre contribution
Tromelin
Windox XP SP3, Open Office.org 2.4

[MrPropre]

Bonjour,

Nous nous devons de verrouiller ce fil de discussion. Nous vous rappelons les règles de ce forum et notamment la n° 7
Un sujet = le problème d'une seule personne

Comme vous avez pu le lire, ce sujet est désormais résolu. Si vous avez également ce problème, c'est que ce dernier est différent. Votre configuration n'est peut être pas la même que celle de l'auteur de ce fil.

Dans ce cas et pour des raisons de lisibilité sur ce forum, nous vous demandons de créer une nouvelle question en rappelant que vous avez le même problème que dans ce fil.

Merci de votre collaboration.