[Basic] Barre de menus : ajout, suppression

Vos meilleures macros et portions de code sont publiées dans cette section.
Aucun support sur une question de programmation ici !

Modérateur: Vilains modOOs

Règles du forum
Aucune question dans cette section !
Celle-ci rassemble les meilleures macros et portions de code. Vous pouvez en revanche commenter ou argumenter le code exposé. Vous pouvez même remercier l'auteur (cela fait toujours plaisir) en indiquant par exemple dans quel cadre ou contexte vous en avez eu l'utilité.
Si vous avez à poster quelque chose, faites-le depuis la section Macros et API et demandez à un modérateur de l'y déplacer.

[Basic] Barre de menus : ajout, suppression

Messagepar Alain de La Chaume » 08 Juin 2009 17:23

Bonjour à tous.
Comme j'ai un peu galéré pour trouver comment ajouter/supprimer un menu de la barre du même nom, je mets à dispo ce que j'ai enfin pu faire, me disant que ça pourrait peut-être intéresser quelqu'un.
Pièces jointes
menu_Creer_V4.odt
(19.88 Kio) Téléchargé 972 fois
(API-culteur et pêcheur de macros en mode loisirs occasionnels, mais toujours les pieds dans l'OO)
AOO 4.1.2 sous Linux Xubuntu Voyager 14.04 (x86_64)
Avatar de l’utilisateur
Alain de La Chaume
HédOOniste
HédOOniste
 
Message(s) : 1500
Inscrit le : 28 Sep 2008 13:56
Localisation : ʇsǝnoo,ꞁ ɐ ʇuǝɯǝʇǝꞁdɯoↃ

Re: [Basic] Barre de menus : ajout, suppression

Messagepar jjk » 08 Juin 2009 22:00

Et comment que ça va nous intéresser !!
Merci en tout cas.
OpenOffice 3.1.1 sous XP-SP2 et LibreOffice 3.5.0 sous Win 7
jjk
HédOOniste
HédOOniste
 
Message(s) : 1696
Inscrit le : 27 Oct 2008 15:30

Re: [Basic] Barre de menus : ajout, suppression

Messagepar A_math » 09 Juin 2009 12:19

Merci,

Je ne sais pas quand ni pourquoi faire exactement mais je me doute que cela me servira un jour. :super:
Alain

3.0.1 portable sous XP SP3 (boulot) et 3.0.0 sous Mandriva 2009.0
Avatar de l’utilisateur
A_math
Membre OOrganisé
Membre OOrganisé
 
Message(s) : 82
Inscrit le : 13 Jan 2008 00:38

Re: [Basic] Barre de menus : ajout, suppression

Messagepar ThierryF » 22 Juin 2011 13:24

Bonjour,

J'ai lancé ton fichier --> menu_Creer_V4.odt
et mes menus on disparus.

Il semblerait donc que la barre initiale soit affectée.
Après une vérif supplémentaire, il faut que toutes les fenêtres OOo soit fermées.
Dans mon cas, j'avais laissé Calc ouvert et en rouvrant Writer la barre de menu n'était pas réinitialisée.

Tout cela pour te remercier pour ce code.
:super: grand merci Alain
et de plus tu habites dans un lieu que j'affectionne énormément.
Thierry
Dom : OOo 3.3 & LibO 3.4.1 sous Win 7
Bur : OOo 3.3 sous Win XP
ThierryF
Membre lOOyal
Membre lOOyal
 
Message(s) : 27
Inscrit le : 09 Juin 2011 13:36

Re: [Basic] Barre de menus : ajout, suppression

Messagepar Alain de La Chaume » 22 Juin 2011 21:50

Bonjour.. soir,

Ouf ! J'ai cru qu'il s'agissait d'une réclamation... :P
Merci donc à vous aussi (coucou Léa) d'encourager les petits participants libres
à un projet libre... ... et gratuit en plus. :wink:

Bien cordialement, Alain
(API-culteur et pêcheur de macros en mode loisirs occasionnels, mais toujours les pieds dans l'OO)
AOO 4.1.2 sous Linux Xubuntu Voyager 14.04 (x86_64)
Avatar de l’utilisateur
Alain de La Chaume
HédOOniste
HédOOniste
 
Message(s) : 1500
Inscrit le : 28 Sep 2008 13:56
Localisation : ʇsǝnoo,ꞁ ɐ ʇuǝɯǝʇǝꞁdɯoↃ

Re: [Basic] Barre de menus : ajout, suppression

Messagepar Dude » 13 Sep 2011 20:07

Autre méthode pour la création d'un menu à plusieurs niveaux :
Image
MenuDynamique.odt
(13.4 Kio) Téléchargé 505 fois
Avatar de l’utilisateur
Dude
Grand Maître de l'OOffice
Grand Maître de l'OOffice
 
Message(s) : 18102
Inscrit le : 03 Mars 2006 08:45
Localisation : 127.0.0.1

Re: [Basic] Barre de menus : ajout, suppression

Messagepar ThierryT » 28 Déc 2015 18:48

Bonsoir,

Pour répondre au besoin de remettre tous les menus dans les fichiers ouverts, je vous joins le code suivant où il faut appeler la fonction DocumentsOuverts qui scrute l'ensemble des documents ouverts dans l'application LO ou AOO:

Code : Tout sélectionner   AgrandirRéduire
'---------------------------------------------------------------------
sub menusRestaurer(nomModule as string)
    dim sMenuBar as string
    dim oConfMgr, oConfModule, oDefSet

   sMenuBar = "private:resource/menubar/menubar"
       
   oConfMgr = createUnoService(_
             "com.sun.star.ui.ModuleUIConfigurationManagerSupplier")
   oConfModule = oConfMgr.getUIConfigurationManager(nomModule)
   oDefSet = oConfModule.getDefaultSettings(sMenuBar)
   oConfModule.replaceSettings(sMenuBar, oDefSet)
   end sub
'---------------------------------------------------------------------

Sub DocumentsOuverts()
   'pensez à sauvegarder vos documents
   dim lesDocs, laCollection, leDoc

   on error resume next
   lesDocs = StarDesktop.Components
   laCollection = lesDocs.createEnumeration
   while laCollection.hasMoreElements
      leDoc = laCollection.nextElement
      ' Reconnaître les types de documents ouverts
      ' -> restaurer les menus dans les applications de LO ou AOO
      menusRestaurer (leDoc.Identifier)
   wend
End Sub
LibreOffice 5.1.0.3 x64 / AOO 4.1.2 sous Windows 8.1 (64 bits)
ThierryT
Membre OOrganisé
Membre OOrganisé
 
Message(s) : 80
Inscrit le : 10 Nov 2012 18:05


Retour vers Suprême de code

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité